Option Explicit ' Déclaration obligatoire des variables ici i
Sub essai_A()
Dim i As Integer ' variable i
Application.ScreenUpdating = False ' Ecran figé
Sheets("BD").Activate ' feuille BD activée
For i = 7 To 10 ' boucle de la ligne 7 à 10
If Sheets("BD").Range("A11") = Cells(i, 2) Then ' si la cellule A11 (colonne cachée dans BD) et égale à la cellule se trouvant dans la colonne B ligne 7 à 10 alors
Range(Cells(i, 2), Cells(i, 3)).Copy Sheets("résultat").Cells(i, 1)' les cellules(colonneB-C) trouvée sont copiées dans la feuille résultat même ligne (i) et colonne A
Exit For ' Arrêt forçé de la macro ou boucle
End If ' fin de la condition
Next i ' fin de la boucle
Sheets("Feuil1").Activate ' feuille Feuil1 activée
Sheets("Feuil1").Range("C6") = 3 ' la cellule C6 de la feuille 1(cachée) prend la valeur 3 pour effacer la liste déroulante
Application.ScreenUpdating = True ' Ecran redevient normal
End Sub
Sub essai_B()
Dim i As Integer
Application.ScreenUpdating = False
Sheets("BD").Activate
For i = 7 To 10
If Sheets("BD").Range("A12") = Cells(i, 2) Then ' cellule A12
Range(Cells(i, 2), Cells(i, 3)).Copy Sheets("résultat").Cells(i, 1)
Exit For
End If
Next i
Sheets("Feuil1").Activate
Sheets("Feuil1").Range("C8") = 3 ' cellule C8
Application.ScreenUpdating = True
End Sub