Discussion :

[doudou8mc]

Bonjour à tous et à toutes,

j'aimerai écrire un code vba pour que la macro parcours la plage (u4253) colonne par colonne et si une cellule à la même valeur que la précedente, elle n'affiche rien .(Ex: si "X48"= 163 , X49=163, X50=163,X51=163, X....., les X49 et les suivaltes ne doivent rien afficher.).

Merci d'avance pour votre précieuse aide .

[Jean-Philippe André]

salut,
des exemples de boucles imbriquées :

Code :

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

1
2
3
4
5
For i = 0 to 1
   For j = 0 to 1
      Debug.Print i*2+j
   Next j
Next i

autre exemple :

Code :

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

1
2
3
4
5
6
7
For i = 1 to 100
   For j = i+1 to 100
      If Range("A" & j).value = Range("A" & i).value Then
         Range("A" & j).value = ""
      End If
   Next j
Next i

attention à utiliser les bons termes lorsque tu exposes une problématique

[Gorfael]

Salut doudou8mc et le forum
Pas sûr, l'explication étant ce qu"elle est :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
Dim X As Long, Y As Integer, Z As Integer
For Y = 21 To 24
    For X = 42 To 52
        If Not (IsEmpty(Cells(X, Y))) And Cells(X, Y) = Cells(X + 1, Y) Then
            For Z = 1 To 52 - X
                If Cells(X, Y) <> Cells(X + Z, Y) Then
                    Range(Cells(X + 1, Y), Cells(X + Z - 1, Y)).ClearContents
                    Exit For
                End If
            Next Z
        End If
    Next X
Next Y
End Sub

Pas envie de commenter, me semblant suffisamment clair, mais si ce n'est pas le cas, demander des explications
A+