Discussion :

[getstarted]

Bonjour,

J'ai rédigé le code suivant, mais au vu du message d'erreur émis à l'exécution la syntaxe de ma deuxième condition est erronée. Je voudrais que pour chaque ligne de l'intervalle donné, excel vérifie que la valeur de la cellule de la colonne 3 soit égale à celle de la cellule supérieure.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim lin As Integer
For lin = 1 To 15000
If Cells(lin, 5).Value = "positif"  And Cells(lin, 3).Value = Cells(lin-1,3).Value Then
       Range(Cells(lin, 6), Cells(lin, 7)).Copy Cells(lin - 1, 15)
       Cells(lin, 5).EntireRow.Delete Shift:=xlUp
End If
Next lin

Comment puis-je rédiger cette condition ?

[Philippe Tulliez]

Bonjour,
Ta boucle For lin = 1 To 15000 et Cells(lin-1,3).Value génère inévitablement une erreur. Cela équivaut à Cells(0, 3) en début de boucle.

[getstarted]

Tellement simple pourtant ^^'
Donc résolu en définissant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For lin = 2 To 15000

Merci !