Bonjour,
Je pilote un fichier Excel depuis vba Access, donc je ne sais pas si je suis au bon endroit, dans la mesure où c'est un peu un mélange des deux.

Je cherche dans une partie d'une colonne à effacer le contenu de ma cellule Bi si elle est égale à la cellule Bi-1
J'ai rédigé ce code, mais lors de l'exécution, l'appli fait comme si elle ne la voyait pas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
i = 7
Do While i < 7 + Lign1 + 1
For i = 7 To 7 + Lign1
    If range("B" & i) = range("B" & i - 1) Then
        range("B" & i).ClearContents
        MsgBox "coucou"
    End If
Next
i = i + 1
Loop
Je ne comprends pas : ça me semblait bien sur le moment...

Merci d'avance de votre aide.

Arzawe