Chercher mot colonne et copier toute la ligne asssociéeRésolu

Question

Bonjour,

J'ai un petit soucis avec ma macro VB pour Excel. Je souhaite rechercher un gp de mots dans la colonne 1 par exemple "Total bonbons" et copier toutes les lignes (entières) qui contiennent "Total bonbons" dans une autre feuille.

Sub lala()

Sheets("feuil1").Select
Range("A1").Select
Dim i As Integer
Dim Début As Integer
i = 1
LigneA = ActiveCell.Row 
Cells(LigneA, 1).Select 
Selection.End(xlDown).Select
LigneZ = ActiveCell.Row




For Début = LigneA To LigneZ


If Cells(Début, 1) = "Total Plateau" Then
Selection.EntireRow.Copy
Sheets("feuil2").Select
Range("A" & i).Select
ActiveSheet.Paste
i = i + 1
End If


Next Début
End Sub

Merci par avance pour votre aide

cs_Orohena · Accepted Answer

Ajoute l'instruction Sheets("Feuil1").Select après i = i + 1

@+

PCPT · Answer

déplacé de VB.NET vers VBA

cs_Orohena · Answer

Bonjour bimome78

Peux-tu tester le code ci-dessous (j'ai mis les modifs en caractères gras)





Sub lala()

Sheets("feuil1").Select
Range("A1").Select
Dim i As Integer
Dim Début As long
i =  1
LigneA = ActiveCell.Row 
Cells(LigneA, 1).Select 
Selection.End(xlDown).Select
LigneZ = ActiveCell.Row





For Début = LigneA To LigneZ



If Cells(Début, 1) = "Total Plateau" Then
 Cells(Début,1).Select 
Selection.EntireRow.Copy
Sheets("feuil2").Select
Range("A" & i).Select
ActiveSheet.Paste
i  = i + 1
End If




Next Début
End Sub



Je te conseille d'indenter ton code et d'éviter les caractères nationaux

Cordialement

bimone78 · Answer

Salut ce code ne marche pas complétement, il copie seulement une ligne sur la feuille 2 contenant le terme recherché, moi j'aimerai que la macro copie toutes les lignes contenant ce terme là.

Merci

bimone78 · Answer

ça marche nikel Merci

Chercher mot colonne et copier toute la ligne asssociée

5 réponses

Votre réponse

Discussions similaires