Macro imparfaite
bonjour,
j'ai une macro que j'ai adapter a mes besoin, mais lors de la fusion des onglets
la macro ne prend pas la ligne entiere si il y a une cellule vide dans celle ci
si quelqu'un a une idée
merci
Sub ab()
Dim bb As Byte
Dim q As Byte
Dim cb As Long
bb = ActiveWorkbook.Worksheets.Count
Sheets("fusion").Cells.Delete
For q = 1 To bb
If Worksheets(q).Name <> "fusion" And Worksheets(q).Name <> "feuil2" And Worksheets(q).Name <> "Feuil1" Then
cb = Worksheets("fusion").Range("A65536").End(xlUp).Row + 1
Worksheets(q).Range("A1").CurrentRegion.Copy Sheets("fusion").Cells(cb, 1)
End If
Next q
End SubBonjour,
regarde l'aide excel sur CurrentRegion, ce n'est pas du tout ce que tu attends j'ai l'impression.
Et il faudrait peut être expliquer ce que tu veux faire. On ne va pas se baser sur un code que tu annonces faux.
Pourquoi boucler sur toutes les lignes alors que tu n'y fais aucun test pour savoir si tu dois la copier ?????
eric
tu as raison, je n'étais pas très clair...
j'ai trouvé ce que je voulais , je le met si cela intérresse quelqu'un
cdt
Sub fusiononglets()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "a" And ws.Name <> "b" And ws.Name <> "c" Then
Application.ScreenUpdating = False
ws.Activate
Range("A1:" & [a1].SpecialCells(xlCellTypeLastCell).Address).Copy
Sheets("fusion").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Next ws
End Sub