Bonjour a tous,
j'ai une macro qui doit rapatrier des donnes de plusieurs feuilles ( variable nom ), pour savoir de quelle feuille viennent les donnees je souhaiterai remplir une colonne avec le nom de la feuille pour chaque ligne non vide ( la colonne O est la derniere a chaque fois ).
Mais j'ai un bug, ca ne marche pas quand je n'ai pas de ligne ou une seule, ma macro s'affolle et me rempli ma feuille avec le nom de la feuille
J'ai fait la bidouille suivant, c'est peut etre pas ce qu'il y a de mieux ... mais ca marcher jusqu a ce que je tombe sur une feuille avec une ligne ....
j'ai une macro qui doit rapatrier des donnes de plusieurs feuilles ( variable nom ), pour savoir de quelle feuille viennent les donnees je souhaiterai remplir une colonne avec le nom de la feuille pour chaque ligne non vide ( la colonne O est la derniere a chaque fois ).
Mais j'ai un bug, ca ne marche pas quand je n'ai pas de ligne ou une seule, ma macro s'affolle et me rempli ma feuille avec le nom de la feuille
J'ai fait la bidouille suivant, c'est peut etre pas ce qu'il y a de mieux ... mais ca marcher jusqu a ce que je tombe sur une feuille avec une ligne ....
Code:
....
Sheets(nom).Select
'recup data pour affichage semaine
If Range("O1").Value = "" Then
Range("O1").Select
Range(Selection, Selection.End(xlDown)).Select
For Each cellule In Selection
cellule.Offset(0, 1).FormulaR1C1 = nom
Next
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets(nom).Activate
Range("A1").Activate
While IsEmpty(ActiveCell) = False
ActiveCell.Offset(1, 0).Activate
Wend
ActiveSheet.Paste
End If
....