Code VBA excel faire une boucle pour chaque feuille Résolu/Fermé

Question

Salut à tous,

je débute en code VBA je voulais faire une macro pour copier des données de fichiers excel et les regrouper dans un fichier. Je construis la macro étape par étape.

Pour le moment je bloque sur le fait d'appliquer la boucle (for (if end if ) next) pour chaque feuille du classeur source.

J'ai essayé avec une boucle dans la boucle en remplaçant le numéro de feuille par une lettre (wb1.worksheets(a) pour une boucle for a = 1 to 12), mais ça ne fonctionne pas.  J'ai tenté avec For each Ws in Worksheet mais j'ai l'impression que quelque chose m'échappe, je ne sais pas comme faire les itérations dans chaque feuille.

Merci de votre aide si vous avez des idées

Bonne soirée

Sub CopyData()
'WB1 source
'WB2 destination

Dim WB1 As Workbook
Dim WB2 As Workbook

'Dont update the screen - makes it work faster
Application.ScreenUpdating = False

'Open the other workbook
'Input the FULL path to the file, including its extension

Set WB2 = ActiveWorkbook
Set WB1 = Workbooks.Open("C:\Users\user\Documents\Dossier Source.xlsx")
'derniere ligne
Dim LastRow As Long
Dim LastRow2 As Long

LastRow = WB1.Worksheet(1).Cells(Rows.Count, 2).End(xlUp).Row
LastRow2 = WB2.Worksheets(1).Cells(Rows.Count, 5).End(xlUp).Row
For i = 6 To LastRow
If WB1.Worksheet(1).Cells(i, 2).Value = "ASQ1" Then
WB1.Worksheet(1).Cells(i, 3).Copy _
WB2.Worksheet(1).Celles(LastRow2 + 1, 5)

Application.CutCopyMode = False

End If
Next

'Close the workbook from which we just got some data and make sure not to save it in case accidental changes were made to it.

WB1.Close SaveChanges:=False

'Turn on screen updating again - makes Excel usable
Application.ScreenUpdating = True

End Sub

jordane45 · Answer

Bonjour

Dans le code que tu nous montres, je ne vois aucune boucle sur les feuilles... Impossible donc de te dire où tu as fait une erreur

akb213 · Answer

Ah j'ai pas mis le code car il fonctionne pas le voilà , merci :)

Sub CopyData()
'WB1 source
'WB2 destination

Dim WB1 As Workbook
Dim WB2 As Workbook

'Dont update the screen - makes it work faster
Application.ScreenUpdating = False

'Open the other workbook
'Input the FULL path to the file, including its extension

Set WB2 = ActiveWorkbook
Set WB1 = Workbooks.Open("C:\Users\user\Documents\Dossier Source.xlsx")
'derniere ligne
Dim LastRow As Long
Dim LastRow2 As Long

LastRow = WB1.Worksheet(1).Cells(Rows.Count, 2).End(xlUp).Row
LastRow2 = WB2.Worksheets(1).Cells(Rows.Count, 5).End(xlUp).Row
For a = 1 to 11
'a le numéro de la feuille du classeur 
For i = 6 To LastRow
If WB1.Worksheet(a).Cells(i, 2).Value = "ASQ1" Then
WB1.Worksheet(a).Cells(i, 3).Copy _
WB2.Worksheet(a).Celles(LastRow2 + 1, 5)

Application.CutCopyMode = False

End If
Next
Next

'Close the workbook from which we just got some data and make sure not to save it in case accidental changes were made to it.

WB1.Close SaveChanges:=False

'Turn on screen updating again - makes Excel usable
Application.ScreenUpdating = True

End Sub

Tessel75 · Answer

De toutes les faons, quand on teste un code, et à moins d'être assez sûr de soi, la première chose à  faire est de le faire tourner "en pas à pas". Ainsi tu peux vérifier que ce que tu demandes est bien fait et correspond à ce que tu attends; alors tu peux voir à quelle ligne ça coince et où ton écriture est incorrecte.

Après, si tu ne parviens pas à trouver la réponse à la ligne fautive, alors on peut te répondre et chercher comment en sortir.

Bon courage.

akb213 · Answer

Bonjour,
j'ai crée un nouveau fichier  j'ai retapé le code en étant concentré, ça fonctionne la boucle dans la boucle. 
Merci pour votre aide

For a = 1 To 10

For i = 14 To LastRow

LastRowDist = WB2.Worksheets(a).Cells(Rows.Count, 3).End(xlUp).Row
If WB1.Worksheets(a).Cells(i, 3).Value = "CQ-300" Then

WB1.Worksheets(a).Cells(i, 11).Copy _
WB2.Worksheets(a).Cells(LastRowDist + 1, 3)

Application.CutCopyMode = False

End If
Next

Code VBA excel faire une boucle pour chaque feuille

4 réponses

Discussions similaires