J
JJ
Guest
Bonjour, je n'ai pas réussi a faire fonctionner les macros écrites, il y a toujours des messages d'erreur d'exécution et incompréhensibles??
J'ai repris une petite macro simple sur le site qui me colorie les nombres en col A présents AUSSI quelque part dans la Col B:
Sub toto()
Dim ref As Range, c As Range
For Each ref In Range('a1:a1000')
For Each c in Range('b1:b1000')
If ref = c Then
ref.Interior.ColorIndex=3
End If
Next
Next
end Sub
la macro marche mais est très longue à s'exécuter,
peut on la modifier pour qu'elle s'arrête dès que la cellule col A est vide (au lieu d'aller jusqu' a1000) et aussi que , si la col B devient vide, alors le tri s'arrête et passe a la cellule suivante col A?
il faudrait pas écrire if Val(ref)=Val(c).... (au lieu de ref=c ) au cas ou la cellule A serait 300 et la colonne B: 0300 ?
Merci et bon WE
JJ
J'ai repris une petite macro simple sur le site qui me colorie les nombres en col A présents AUSSI quelque part dans la Col B:
Sub toto()
Dim ref As Range, c As Range
For Each ref In Range('a1:a1000')
For Each c in Range('b1:b1000')
If ref = c Then
ref.Interior.ColorIndex=3
End If
Next
Next
end Sub
la macro marche mais est très longue à s'exécuter,
peut on la modifier pour qu'elle s'arrête dès que la cellule col A est vide (au lieu d'aller jusqu' a1000) et aussi que , si la col B devient vide, alors le tri s'arrête et passe a la cellule suivante col A?
il faudrait pas écrire if Val(ref)=Val(c).... (au lieu de ref=c ) au cas ou la cellule A serait 300 et la colonne B: 0300 ?
Merci et bon WE
JJ
