Discussion :

[annelaure0903]

Bonjour à tous et à toutes,

Je vous remercie déjà de tous vos conseils précieux en VBA, ils m'ont déjà rendu un Service un nombre incalculable de fois ^^

Cette fois-ci, j'essaie de créer une macro de recherche, puis copier coller dans un nouvel onglet.
Je m'explique, j'aimerais pouvoir rechercher dans l'intégralité de mon classeur toutes les cellules commencant par un texte défini dans une Inputbox (par exemple "20180618_"), puis copier-coller la ligne entière dans un nouvel onglet

J'ai bidouillé un truc comme cela, mais je n'arrive pas à avoir le résultat voulu:

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
28
29
30
31
Private Sub Combobox1_change()
 
Dim recap As Worksheet
 
Dim arTemp() As String 'variable tableau pour la fonction Findall
Dim ValCherchee As String
    ValCherchee = ComboBox1.Value
 
 
Dim Nom_Feuil As String
Nom_Feuil = Worksheets.UsedRange
 
Dim DataColumn  As Integer
    DataColumn = 2                  'Plage de cellules où chercher les données
 
Dim ma_plage As String
    ma_plage = "B1:B1000"
'---------------------------------------------------------------
bFound = FindAll(ValCherchee, Sheets(Nom_Feuil), ma_plage, arTemp())
'---------------------------------------------------------------
 
For bFound = 2 To lastRow
    If bFound= true Then
        bFound.EntireRow.Copy recap.Cells(irecap, 1)
 
        irecap = irecap + 1
    End If
 
Next
 
End Sub

Je suis une Quiche, je sais... Merci par Avance !
Anne-Laure

[halaster08]

Cette fois-ci, j'essaie de créer une macro de recherche, puis copier coller dans un nouvel onglet.
Je m'explique, j'aimerais pouvoir rechercher dans l'intégralité de mon classeur toutes les cellules commencant par un texte défini dans une Inputbox (par exemple "20180618_"), puis copier-coller la ligne entière dans un nouvel onglet

Bonjour,
Je te conseille de lire ce tuto sur les filtres avancée: https://philippetulliez.developpez.c...dvancedfilter/
Avec un critère calculé sur ta colonne B qui vérifie que les premiers caractères sont égaux a la valeur de ton inputbox tu auras le résultat que tu souhaites.

[annelaure0903]

Merci pour ta réponse, mais je gaLére toujours autant. J'ai modifié mon type de fichier à la base pour me rendre la tâche plus simple.

Je voudrais que ma macro me parcourt tous les onglets, et si la cellule en A est vide, alors me copier-coller la ligne entière Sous mon nouvel onglet.

J'ai rebidouillé ce truc, qui me semble plus simple à lire mais qui ne fonctionne toujours pas... j'ai fait une erreur de compilation d'après Excel, mais je ne trouve pas où...:

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
Dim Wsheet As Worksheets
Dim C As Range
Dim LigneAjout As Integer
 
Dim Wsheet As Worksheets
Dim C As Range
Dim LigneAjout As Integer
 
Dim WS_Count As Integer
Dim ws As Integer
 
WS_Count = ActiveWorkbook.Worksheets.Count
 
Set C = .Range("A2" & .Rows.Count).End(xlUp).Row
 
 
If Wsheet.Name <> "SYNTHESE" Then
    For ws = 1 To WS_Count
 
                If IsEmpty(C) Then
                    LigneAjout = Worksheets("SYNTHESE").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
                    C.EntireRow.Copy Worksheets("SYNTHESE").Range("A" & LigneAjout)
                End If
 
 
    Next ws
End If

Merci beaucoup par Avance !

[halaster08]

Pense a utiliser la balise code(bouton #)c'est plus lisible

j'ai fait une erreur de compilation d'après Excel, mais je ne trouve pas où

VBA te surligne la ligne fautive en jaune normalement

Code :

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

1
2
3
Dim C As Range
 
Set C = .Range("A2" & .Rows.Count).End(xlUp).Row

tu affectes un nombre a un range

[annelaure0903]

Exact !
Je suis vraiment une quiche! J'ai corrigé ainsi, mais maintenant c'est mon .Rows.Count dans le

Code :

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

Set C = .Range("A2;A" & .Rows.Count).End(xlUp).Row

qui plante...

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
Dim Wsheet As Worksheets
Dim C As Range
Dim LigneAjout As Integer
 
Dim WS_Count As Integer
Dim ws As Integer
 
WS_Count = ActiveWorkbook.Worksheets.Count
 
Set C = .Range("A2;A" & .Rows.Count).End(xlUp).Row
 
 
If Wsheet.Name <> "SYNTHESE" Then
    For ws = 1 To WS_Count
 
                If IsEmpty(C) Then
                    LigneAjout = Worksheets("SYNTHESE").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
                    C.EntireRow.Copy Worksheets("SYNTHESE").Range("A" & LigneAjout)
                End If
 
 
    Next ws
End If

Merci beaucoup pour ton Aide et ta réactivité !

[pijaku]

Bonjour,

Je suis vraiment une quiche!

Exact !

Code :

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

Set C = .Range("A2;A" & .Rows.Count).End(xlUp).Row

Pourquoi le point devant Range alors que tu n'as pas de bloc With?
pourquoi le point-virgule ( à la place des deux points ( entre A2 et A?