Comparer uune plage de cellules
Fermé
manu
-
5 mai 2011 à 15:38
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 6 mai 2011 à 15:13
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 6 mai 2011 à 15:13
A voir également:
- Comparer uune plage de cellules
- Excel additionner des cellules - Guide
- Verrouiller cellules excel - Guide
- Comparer prix amazon - Guide
- Si plage de cellule contient texte alors ✓ - Forum Excel
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? - Forum Musique / Radio / Clip
1 réponse
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
288
6 mai 2011 à 15:13
6 mai 2011 à 15:13
l'action a exécuter sera l'affichage d'un message.
Sub comparePlage()
' cette macro compare la plage A1H1 avec I1P1 puis
' elle compare la ligne suivante A2H2 avec I2P2
Dim c1 As Variant
Dim i As Integer
Dim j As Integer
Dim k As Integer
derlig = Range("a65635").End(xlUp).Row
For j = 1 To derlig
For Each c1 In Range("A1:H1")
For i = 9 To 15
If c1.Value = Cells(j, i).Value Then
k = k + 1
End If
Next i
Next
If k > 2 Then
s = MsgBox("Nombre de valeurs trouvées : " & k, vbInformation, "informations")
k = 0
' on exucete ce que l'on veut
End If
Next j
End Sub
