Discussion :

[bowoo]

Bonjour à tous,

Ma problématique est la suivante :
J'ai un fichier excel, contenant 2 feuilles : A et B
J'aimerais si possible rechercher un mot clé dans la feuille A, colonne A, par exemple "motCle". Si il y a "motCle", alors Excel me copie la ligne entière et me la colle dans la feuille B.

Je suis donc tombé sur de tonnes d'exemples en VBA, mais j'ai du mal avec tout ça : j'ai tenté de modifier un script mais sans succès :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub CutData()
Dim motCle
Dim i As Byte
Dim C As Range
Dim F As String
Dim Ligne As Long
    'On définit les mots clés
    motCle = Array("motCle")
    'On effectue la recherche de chaque mot cle dans la colonne A de la sheet1 qui s appelle A
    For i = 0 To UBound(motCle)
        Do
            Set C = Worksheets("A").Columns(A).Find(motCle(i), LookIn:=xlValues, lookat:=xlPart)
            'Si le mot clé est trouvé
            If Not C Is Nothing Then
                'On définit le nom de la feuille où sera effectuée la copie
                F = "B" & (i + 2)
                With Worksheets(A)
                    'On définit la ligne où sera effectué le collage
                    Ligne = .Range("A" & Rows.Count).End(xlUp).Row + 1
                    'On effectue le copier / coller
                    C.EntireRow.Copy .Range("A" & Ligne)
                End With
            End If
        Loop While Not C Is Nothing
    Next i
End Sub

Merci de votre aide

[parmi]

Bonjour,

Il te manque des guillemets autour du A de la colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set C = Worksheets("A").Columns("A").Find(motCle(i), LookIn:=xlValues, lookat:=xlPart)

[parmi]

Et ici aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Worksheets("A")

[bowoo]

Hello, merci de tes réponse :) !!

ça ne fonctionne malheureusement pas, je pense que je me perd avec les A, qui peuvent être ou une feuille ou une colonne, si ça te dérange pas, je modifie les noms des feuilles ?
Avec F1 et F2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub CutData()
Dim motCle
Dim i As Byte
Dim C As Range
Dim F As String
Dim Ligne As Long
    'On définit les mots clés
    motCle = Array("motCle")
    'On effectue la recherche de chaque mot cle dans la colonne A de la sheet1 qui s appelle F1
    For i = 0 To UBound(motCle)
        Do
            Set C = Worksheets("F1").Columns("A").Find(motCle(i), LookIn:=xlValues, lookat:=xlPart)
            'Si le mot clé est trouvé
            If Not C Is Nothing Then
                'On définit le nom de la feuille où sera effectuée la copie
                F = "F2" & (i + 2)
                With Worksheets("F2")
                    'On définit la ligne où sera effectué le collage
                    Ligne = .Range("A" & Rows.Count).End(xlUp).Row + 1
                    'On effectue le copier / coller
                    C.EntireRow.Copy .Range("F1" & Ligne)
                End With
            End If
        Loop While Not C Is Nothing
    Next i
End Sub

Comme ça ?

[parmi]

Quand Excel indique une erreur, clique Débogage pour voir sur quelle ligne apparaît celle-ci...

F = "F2" & (i + 2)

F va égaler "F22" au premier passage.
Qu'est-ce que tu veux faire avec ceci ?

C.EntireRow.Copy .Range("F1" & Ligne)

Ici, ça ne peut pas fonctionner puisque tu copies toute la ligne et essaie de la copier en F (Excel va déclencher une erreur - tu peux l'essayer manuellement)
De plus il y a une erreur avec le "F1 & Ligne"
J'irais plus ainsi (sans tester)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

C.EntireRow.Copy .Range("A" & Ligne)

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim MonMot as String
MonMot = "motCle"
 
With Worksheets("F1")
   .Row(.Range(.Cells(1,1),.Cells(.Cells(.Rows.Count,1).End(xlUp).Row,1).Find(MonMot).Row).Copy
End With
 
With Worksheets("F2")
   .Row(.Rows.Count).End(xlUp).Row + 1).PasteSpecial(xlPasteAll)
End With