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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
533
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
497
Réponses
5
Affichages
398
Retour