Recherche d'un terme dans une colonne et copie de la ligne correspondante
Fermé
Dedudelefabs
Messages postés
8
Date d'inscription
samedi 4 janvier 2020
Statut
Membre
Dernière intervention
6 janvier 2020
-
Modifié le 5 janv. 2020 à 23:42
M-12 Messages postés 1329 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 10 mars 2023 - 6 janv. 2020 à 07:14
M-12 Messages postés 1329 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 10 mars 2023 - 6 janv. 2020 à 07:14
A voir également:
- Recherche d'un terme dans une colonne et copie de la ligne correspondante
- Copiez la ligne indiquant aux moteurs de recherche de ne pas référencer la page. ✓ - Forum Référencement
- Déplacer une colonne excel - Guide
- Recherche musique - Guide
- Recherche par image - Guide
- Aller à la ligne excel - Guide
3 réponses
M-12
Messages postés
1329
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
10 mars 2023
294
Modifié le 6 janv. 2020 à 07:16
Modifié le 6 janv. 2020 à 07:16
Re,
Je ne suis pas devin et j'ai modifié suivant le code placé dans le post
Sur mon écran, je ne vois pas ton écran,
alors....
Je ne suis pas devin et j'ai modifié suivant le code placé dans le post
Sur mon écran, je ne vois pas ton écran,
alors....
Sheets("Encodage").Rows(lig).ClearContents
M-12
Messages postés
1329
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
10 mars 2023
294
Modifié le 6 janv. 2020 à 06:16
Modifié le 6 janv. 2020 à 06:16
Bonjour
Teste avec ce code
Teste avec ce code
Option Explicit
Sub Encodage()
Dim cell As Range, lig%
Sheets("Encodage").Activate
Application.ScreenUpdating = False
For Each cell In Sheets("Encodage").Range("M3:M" & Sheets("Encodage").Range("M65536").End(xlUp).Row)
If cell.Value = "ruche1" Then
lig = cell.Row
Sheets("Ruche 1").Rows("5:5").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Encodage").Range(Cells(lig, "A"), Cells(lig, "L")).Copy Destination:=Sheets("Ruche 1").Rows(5)
Sheets("Encodage").Rows("3:3").ClearContents
End If
Next
Application.ScreenUpdating = True
End Sub
Dedudelefabs
Messages postés
8
Date d'inscription
samedi 4 janvier 2020
Statut
Membre
Dernière intervention
6 janvier 2020
6 janv. 2020 à 07:09
6 janv. 2020 à 07:09
Merci M-12 on y est presque.
Ca copie ce que ca doit copier au bon endroit. Le problème est l'effacement. Il efface uniquement la première ligne de la page d'origine, la ligne 3 (qui contient justement dans mon test le mot ruche1) puis quand il passe sur la 3ème par exemple, il la copie mais ne l'efface pas... le Clear content s'applique à 3:3 (ca veut dire ligne 3 ??) or il devrait s'appliquer à la ligne qu'il vient de trouver et qu'il vient de copier or celle ci varie à chaque fois. Comment donc modifier cela ?
Ca copie ce que ca doit copier au bon endroit. Le problème est l'effacement. Il efface uniquement la première ligne de la page d'origine, la ligne 3 (qui contient justement dans mon test le mot ruche1) puis quand il passe sur la 3ème par exemple, il la copie mais ne l'efface pas... le Clear content s'applique à 3:3 (ca veut dire ligne 3 ??) or il devrait s'appliquer à la ligne qu'il vient de trouver et qu'il vient de copier or celle ci varie à chaque fois. Comment donc modifier cela ?