Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…