N'arrive pas a faire une boucle de 60 itéra

benda.h Messages postés 1 Statut Membre -
ccm81 Messages postés 11033 Statut Membre - 5 juin 2012 à 14:51

Bonjour,

Je veux faire un petit code de comparaison de cellules que voici:

Sub comparaison()

Dim i As Integer

For i = 7 To 30

If Range("c" & i).Value <> Range("D" & i).Value Then

Range("c" & i).Select
Selection.Interior.ColorIndex = 6

End If

Next i

End Sub
Le probleme est que je n'arrive pas à faire une boucle de plus de 60 itérations !
Auriez vous une idée?

Afficher la suite

A voir également:

1 réponse

Réponse 1 / 1

ccm81 Messages postés 11033 Statut Membre 2 434

bonjour
ton code fonctionne très bien avec ... 100 itérations

Sub comparaison()
Dim i As Integer
For i = 1 To 100
If Range("C" & i).Value <> Range("D" & i).Value Then
  Range("C" & i).Interior.ColorIndex = 6
End If
Next i
End Sub

bonne suite

Discussions similaires

Mon pc s'allume et s'éteint en boucle

Mon ordinateur s'allume et s'eteint en boucle

m3 en m2 : comment convertir ?

Mise à disposition de boucle locale dédiée

Où est la touche HOME sur clavier Azerty

N'arrive pas a faire une boucle de 60 itéra

1 réponse

Votre réponse

Discussions similaires

Newsletters