[macro] boucle bugée
Salut tout le monde,
Ca faisait un petit moment que j'etais pas venu vous embetez, j'avance doucement dans ma macro et la j'ai un bug :
je recupere des lignes sur plusieurs feuilles differentes, comme je veux connaitre de quelle feuille cela vient je rempli la colonne P avec le nom de la feuille pour chaque ligne non vide
Voici mon code :
Le probleme c'est quand je n'ai pas de ligne ou une seule ca rempli une infinite de ligne et que du coup le copier coller ne marche plus
Si une ame charitable pouvait jeter un oeil a mon bazar, merci d avance
Salut tout le monde,
Ca faisait un petit moment que j'etais pas venu vous embetez, j'avance doucement dans ma macro et la j'ai un bug :
je recupere des lignes sur plusieurs feuilles differentes, comme je veux connaitre de quelle feuille cela vient je rempli la colonne P avec le nom de la feuille pour chaque ligne non vide
Voici mon code :
Code:
'recup data pour affichage semaine
If Range("O1").Value = "" Then GoTo 777
Range("O1").Select
Range(Selection, Selection.End(xlDown)).Select
For Each cellule In Selection
cellule.Offset(0, 1).FormulaR1C1 = nomsemcd
Next
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Week").Select
Range("A1").Select
While IsEmpty(ActiveCell) = False
ActiveCell.Offset(1, 0).Activate
Wend
ActiveSheet.Paste
Si une ame charitable pouvait jeter un oeil a mon bazar, merci d avance
Dernière édition: