XL 2019 copier des cellules sur une autres feuilles en fonction de multiple conditions avec un code vba

miral20

XLDnaute Nouveau
Je souhaite copier des cellules sur une autres feuilles en fonction de multiple conditions, dans le sens ou :
Si dans ma feuille "HTTP_URL" colonne E il y a le mot "URI: https://www.google.dz/" copier tous les valeurs de ce mot qui existe dans la colonne F & G vers la feuille "resume " dans le tableaux (B18:C22) et ainsi de suite pour chaque mot de la colonne E.
Votre aide me sera précieuse...
Cordialement.
Merci, merci, merci.....

Voici mon code

Sub Mac()

Sheets("HTTP_URL").Select
derl = Range("E" & Rows.Count).End(xlUp).Row

j = 18
For i = 2 To derl

If Range("E" & i) = "URI: https://www.google.dz/" Then
Acces = Range("F" & i)
Niv = Range("G" & i)

Sheets("resume").Select
Range("B" & j) = Acces
Range("C" & j) = Niv

Sheets("HTTP_URL").Select
j = j + 1
End If


Next i
Sheets("resume").Select

End Sub
 

Pièces jointes

  • MACRO.xlsx
    16.3 KB · Affichages: 4

Discussions similaires

Statistiques des forums

Discussions
312 867
Messages
2 093 041
Membres
105 618
dernier inscrit
albertdu13