1 réponse
je suppose que pour les valeur identiques, elles ne se trouve pas toujours sur la même ligne. c'est jamais "pas grand chose"
selectionne la premiere case, parcoure les autres et compare si tu le retrouves dans les suivantes.
après déclaration des variables:
Range("B1").Select 'premiere case
variable = Select.formula
for I = 1 to 1000 '(par exemple)
if Range("C"&I").Select .fomula= variable then
Selection.Interior.ColorIndex = 36 'passe en jaune
end if
next I
puis tu recommence pour la colonne suivante
if Range("D"&I).selec....
quand c'est fini tu passe à la ligne 2 colonne B et tu recommence.
pour ça tu ecrit le code précédent dans un
for J=1 to la longueur de ta colonne
'avec Range("B"J).Select 'premiere case
next J
plus fort : pour te déplacer Horrizontalement et verticalement, tu peux aussi utiliser Select.offset(X,Y)
Eric
Attention : je n'ai pas testé le Code, A débugger certainement.
selectionne la premiere case, parcoure les autres et compare si tu le retrouves dans les suivantes.
après déclaration des variables:
Range("B1").Select 'premiere case
variable = Select.formula
for I = 1 to 1000 '(par exemple)
if Range("C"&I").Select .fomula= variable then
Selection.Interior.ColorIndex = 36 'passe en jaune
end if
next I
puis tu recommence pour la colonne suivante
if Range("D"&I).selec....
quand c'est fini tu passe à la ligne 2 colonne B et tu recommence.
pour ça tu ecrit le code précédent dans un
for J=1 to la longueur de ta colonne
'avec Range("B"J).Select 'premiere case
next J
plus fort : pour te déplacer Horrizontalement et verticalement, tu peux aussi utiliser Select.offset(X,Y)
Eric
Attention : je n'ai pas testé le Code, A débugger certainement.
27 août 2003 à 14:29
Merci