Recherche d'un mot clé dans une ligne, et si mot clé alors copie
Fermé
Bowooo
Messages postés
37
Date d'inscription
vendredi 8 juin 2012
Statut
Membre
Dernière intervention
12 mars 2015
-
12 mars 2015 à 14:58
Maurice - 13 mars 2015 à 10:20
Maurice - 13 mars 2015 à 10:20
A voir également:
- Recherche d'un mot clé dans une ligne, et si mot clé alors copie
- Clé windows 10 gratuit - Guide
- Cle usb non reconnu - Guide
- Identifiant et mot de passe - Guide
- Clé bootable windows 10 - Guide
- Voir mot de passe wifi android - Guide
4 réponses
Bonjour
Je pense a une macro comme ca
a lancer dans Feuille A
A+
Maurice
Je pense a une macro comme ca
a lancer dans Feuille A
Sub CopyMotCle() Application.ScreenUpdating = False MotCle = "MOTCLE" For L = 2 To Range("A" & Rows.Count).End(xlUp).Row If UCase(Range("A" & L).Value) = MotCle Then Nlig = Feuil2.Range("A" & Rows.Count).End(xlUp).Row + 1 Rows(L).Copy Feuil2.Range("A" & Nlig).PasteSpecial xlPasteValues End If Next Application.ScreenUpdating = True Application.CutCopyMode = False End Sub
A+
Maurice
Bowooo
Messages postés
37
Date d'inscription
vendredi 8 juin 2012
Statut
Membre
Dernière intervention
12 mars 2015
4
12 mars 2015 à 15:59
12 mars 2015 à 15:59
Hello, merci de ta réponse aussi rapide !
Malheureusement ça ne fonctionne pas :(
1)Est ce que ça serait la faute des "variables" (?) : la feuille et la colonne portant le même nom, ça doit l'embrouiller non ?
2) Serait ce la faute de mes lignes ? Car elles contiennent des infos du genre :
127.0.0.1 - - [02/Mar/2015:00:16:33 +0100] "GET /rdc/images/MotCle/filet.jpg HTTP/1.1" 200 5055 "https://blablabla.do" "Mozilla/5.0 Gecko/20100101 Firefox/24.0"
Malheureusement ça ne fonctionne pas :(
1)Est ce que ça serait la faute des "variables" (?) : la feuille et la colonne portant le même nom, ça doit l'embrouiller non ?
2) Serait ce la faute de mes lignes ? Car elles contiennent des infos du genre :
127.0.0.1 - - [02/Mar/2015:00:16:33 +0100] "GET /rdc/images/MotCle/filet.jpg HTTP/1.1" 200 5055 "https://blablabla.do" "Mozilla/5.0 Gecko/20100101 Firefox/24.0"
Bonjour
Voila 2 macro a toi de choisiz
A+
Maurice
Voila 2 macro a toi de choisiz
Sub CopyMotCle() Application.ScreenUpdating = False For L = 2 To Range("A" & Rows.Count).End(xlUp).Row MotCl = Split(Cells(L, 1).Value, "MotCle") If UBound(MotCl) = 1 Then Nlig = Feuil2.Range("A" & Rows.Count).End(xlUp).Row + 1 Rows(L).Copy Feuil2.Range("A" & Nlig).PasteSpecial xlPasteValues End If Next Application.ScreenUpdating = True Application.CutCopyMode = False End Sub ' Copy & Suprime MotCle Sub SupMotCle() Application.ScreenUpdating = False NombLig = Range("A" & Rows.Count).End(xlUp).Row For L = NombLig To 2 Step -1 MotCl = Split(Cells(L, 1).Value, "MotCle") If UBound(MotCl) = 1 Then Nlig = Feuil2.Range("A" & Rows.Count).End(xlUp).Row + 1 Rows(L).Copy Feuil2.Range("A" & Nlig).PasteSpecial xlPasteValues Rows(L).Delete End If Next Application.ScreenUpdating = True Application.CutCopyMode = False End Sub
A+
Maurice