Erreur 5 sur double boucle For
Résolu/Fermé
A voir également:
- Erreur 5 sur double boucle For
- Double ecran - Guide
- Whatsapp double sim - Guide
- Erreur 0x80070643 - Guide
- Double appel - Guide
- Double authentification google - Guide
1 réponse
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
21 mai 2015 à 11:20
21 mai 2015 à 11:20
Bonjour,
Essaie comme cela :
A+
Essaie comme cela :
Sub recherche()
Dim Ligne As Integer, val1 As Integer, val2 As Integer
Dim i As Byte, j As Byte
For i = 1 To 5
val1 = Asc(Cells(i, 1))
For j = 1 To 5
val2 = Asc(Cells(j, 2))
If val1 = val2 Then
Ligne = Ligne + 1
Cells(Ligne, 3) = Cells(i, 1)
End If
Next j
Next i
End Sub
A+
21 mai 2015 à 11:40
merci a+