Comparer une cellule a une plage de cellules
Résolu/Fermé
kikou93
Messages postés
417
Date d'inscription
mardi 4 février 2014
Statut
Membre
Dernière intervention
24 septembre 2018
-
30 mars 2017 à 13:06
kikou93 Messages postés 417 Date d'inscription mardi 4 février 2014 Statut Membre Dernière intervention 24 septembre 2018 - 30 mars 2017 à 14:26
kikou93 Messages postés 417 Date d'inscription mardi 4 février 2014 Statut Membre Dernière intervention 24 septembre 2018 - 30 mars 2017 à 14:26
A voir également:
- Comparer une cellule a une plage de cellules
- Aller à la ligne dans une cellule excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Bloquer une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- 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 Graphisme
1 réponse
kikou93
Messages postés
417
Date d'inscription
mardi 4 février 2014
Statut
Membre
Dernière intervention
24 septembre 2018
1
30 mars 2017 à 14:26
30 mars 2017 à 14:26
J'ai fini par trouver où se situe l'erreur, il faut ajouter un "Exit For" quand la condition est vérifiée sinon il continue les recherche
Sub Fonction2()
Dim FL1 As Worksheet
Set FL1 = Worksheets("Feuil1")
Dim Lig As Integer
For Lig = 6 To 36
If FL1.Cells(1, 1).Value = FL1.Cells(Lig, 5).Value Then
Range("B1").Value = FL1.Cells(Lig, 1).Value
Range("C1").Value = FL1.Cells(Lig, 2).Value
Range("D1").Value = FL1.Cells(Lig, 3).Value
Range("E1").Value = FL1.Cells(Lig, 4).Value
Range("F1").Value = FL1.Cells(Lig, 5).Value
Exit For
Else
Range("B1").Value = ""
Range("C1").Value = ""
Range("D1").Value = ""
Range("E1").Value = ""
Range("F1").Value = ""
End If
Next
Set FL1 = Nothing
End Sub
Sub Fonction2()
Dim FL1 As Worksheet
Set FL1 = Worksheets("Feuil1")
Dim Lig As Integer
For Lig = 6 To 36
If FL1.Cells(1, 1).Value = FL1.Cells(Lig, 5).Value Then
Range("B1").Value = FL1.Cells(Lig, 1).Value
Range("C1").Value = FL1.Cells(Lig, 2).Value
Range("D1").Value = FL1.Cells(Lig, 3).Value
Range("E1").Value = FL1.Cells(Lig, 4).Value
Range("F1").Value = FL1.Cells(Lig, 5).Value
Exit For
Else
Range("B1").Value = ""
Range("C1").Value = ""
Range("D1").Value = ""
Range("E1").Value = ""
Range("F1").Value = ""
End If
Next
Set FL1 = Nothing
End Sub