Boucle en détresse

Sub Macro1()
Dim Prueba As Range 'déclare la variable Prueba
Dim playa As Range 'décalre la variable playa
Dim x As Byte 'décalre la variable x
Dim z As Byte 'décalre la variable y
Dim valeur() 'décalre la variable valeur (tableau)
y = 1 'pour tester mon exemple (ton code y fait référence)
'définit la variable playa
Set playa = Application.Union(Cells(y, 4), Cells(y, 7), Cells(y, 9), Cells(y, 11), Cells(y, 13), Cells(y, 16))
'boucle sur toutes les cellule 'Prueba' de la plage 'playa'
For Each Prueba In playa
If Prueba <> '' Then 'condition : si la cellule n'est pas vide
GoTo idem 'va à la balise 'idem' (sans afficher le message 'Toutes vides : A')
End If 'fin de la condition
Next Prueba 'prochaine cellule 'Prueba'de la plage 'playa'
MsgBox 'Toutes vides : A' 'message (place ici ton code)
Exit Sub 'sort de la procédure
idem: 'balise
x = 0 'définit la variable x
'boucle sur toutes les cellule 'Prueba' de la plage 'playa'
For Each Prueba In playa
ReDim Preserve valeur(x) 'redefinit la taille du tableau 'valeur'
valeur(x) = Prueba.Value 'definie la valeur x du tableau 'valeur'
For z = 0 To x 'boucle sur toutes les valeurs du tableau
If valeur(x) <> valeur(z) Then 'condition : si une des valeur est différente,
GoTo fin 'va à la balise 'fin' (sans afficher le message 'Toutes Identiques : B')
End If 'fin de la condition
Next z 'prochaine valeur du tableau
x = x + 1 'redéfinit la variable x
Next Prueba 'prochaine cellule 'Prueba' de la plage 'playa'
MsgBox 'Toutes Identiques : B' 'message (place ici ton code)
Exit Sub 'sort de la procédure
fin: 'balise
MsgBox 'C' 'message (place ici ton code)
End Sub

Cliquez pour agrandir...