Discussion :

[Vbamateur]

Bonjour à tous,

Je sollicite votre aide pour m'aider à comprendre mon erreur dans mon code.
En effet, je souhaite qu'il efface les données de colonnes dont les cellules sont identiques.

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub organisation()
Dim i, j As Integer
For j = 1 To 12
For i = 1678 To 1 Step -1
    If Cells(i, j).Value = Cells(i - 1, j).Value Then
    Cells(i, j).Value = ""
    End If
Next i
Next j
End Sub

Le fait est que le debogueur me dit qu'il y a une erreur 1004 mais je ne comprends pas pourquoi. Ca me semble juste pourtant....
Merci de votre aide
Vbamateur

[Marc-L]

Bonjour, bonjour !

Simple erreur de logique : quand i vaut 1, combien vaut i-1 et y-a-t-il une ligne correspondante ?‼


______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

______________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[Vbamateur]

Suis-je bête... J'aurais dû y penser tout seul.
Merci.

Bonne continuation,
Vbamateur.