FORUM Tom's Hardware » Programmation » Autre » macro excel
 

macro excel

Il y a 421 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici
Ajouter une réponse



 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet : macro excel
 
Plus d'informations

Bonjour,je cherche à créer une macro qui, lorsque que je sélectionne une cellule colore les cellules à sa gauche et à sa droit ainsi que la 4ième cellule avant et après... comment faire ?

G.M.G.V.S.O.
Profil : Modo matériel
Plus d'informations

Tu devrais lire:
http://www.presence-pc.com/forum/p [...] 2941-1.htm

:o

Ici on ne donnes pas du code tout fait, par contre on t'aideras sans problème à corriger un bout de programme que tu as fait mais qui aurais des bugs ;)


---------------
SPAM & WAREZ = Ban!
Ultimate Boot CD | Memtest+
Mon bar préféré à Lyon ! | Bijoux Fantaisie de Créateur !
Plus d'informations

oh ok oui pardon... en fait j'ai tout trouvé sauf la commande qui dirait "on prend la cellule d'après" par exemple si je sélectionne la cellule B4 je veux que B5 et B3 se colorent en rouge... mais que ça marche pour toutes les cellules. en fait il me manque la syntaxe pour dire ça
Voilà ce que ça donne

If ActiveCell.FormulaR1C1 = "X" Then
ActiveCell.Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Range("X" + 1) (ça je sais que c n'importe quoi mais je trouve pas) .Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Range("X" - 1).Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
End Sub
voilà... si vous pouvez m'aider....

le corps s'évade, les idées persistent.
Plus d'informations

Comme je commence, il fallait que je m'entraine alors voilà!
c'est peut-etre un peu barbare pour les habitués mais moi, je me comprend :D

Code :
  1. Sub colorcel()
  2. Dim cel As Range
  3. Dim adr As String
  4. For Each cel In Selection
  5.     adr = cel.Address
  6. Next
  7. Range(adr).Offset(0, -1) = RGB(255, 0, 0)
  8. Range(adr).Offset(0, 1) = RGB(255, 0, 0)
  9. Range(adr).Offset(4, 0) = RGB(255, 0, 0)
  10. Range(adr).Offset(-4, 0) = RGB(255, 0, 0)
  11. End Sub



sauf que je me rappelai plus comment on mettait la couleur complètement dans la case. Alors là tu te retrouve avec écrit 255 dans les cases qui t'intéresse.
d'ailleurs si tu trouve la commande pour mettre la couleur en fond, ca m'intéresse.

le corps s'évade, les idées persistent.
Plus d'informations

ca y ai, c'est trouvé:

Code :
  1. range(adr).offset(0,-1).interior.color = rgb(255,0,0)


et ca pour les 4 lignes...enfin si tu veux du rouge partout

Plus d'informations

MERCI !!!! c super ça marche merci beaucoup.... vraiment c cool, encore merci

le corps s'évade, les idées persistent.
Plus d'informations

n'empeche que t'aurais put te creuser un chouïa (oui oui ca s'écrit comme ca) la tête, c'était pas sorcier...!


Aller à :
Ajouter une réponse
  FORUM Tom's Hardware » Programmation » Autre » macro excel
 

Annonces Google