Macro VBA Findall - Copier-coller

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:

---

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

Citation:

---

Envoyé par annelaure0903

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.

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:

---

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 !

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

Citation:

---

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:

---

1 2 3

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

---

tu affectes un nombre a un range

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

Code:

---

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

---

qui plante...

Code:

---

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é !

Bonjour,

Citation:

---

Envoyé par annelaure0903

Je suis vraiment une quiche!

---

Exact !

Code:

---

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?