bonjour,
Pourriez-vous m'aider à résoudre le problème de la macro si dessous ?
Dans mon fichier, dans l'onglet "Formation 213" j'ai un tableau que j'incrémente ligne/ ligne avec des données. Pour une même ligne, les données des colonnes H à O, je veux que la macro copie la cellule H+numéro de ligne en cours, la colle en E7 dans l'onglet "convocation formation" et imprime la feuille en cours. Puis revenir sur l'onglet "Formation 2013", copie I+numéro de ligne en cours...etc jusqu'à ce qu'elle rencontre une cellule vide.
Pour l'instant, elle ne fait pas de boucle et s'arrête à la 1ère cellule de la plage, soit H+numéro de la ligne en cours
lorsque que je teste avec un Range définie, exemple range ("H66"), ça marche bien mais dès que j'active la variable i pour déterminer la plage variable, soit Range("H" & i & ":O" & i), cela ne fonctionne plus
Avez-vous une idée pour résoudre mon problème ?
Merci
Sub Macro1()
Sheets("Formations 2013").Select
Dim Cell As Range, Plage As Range
Range("H" & Cells.Rows.Count).End(xlUp).Select
i = ActiveCell.Row
Set Plage = Range("H" & i & ":O" & i)
'Set Plage = Range("H6:O6")
For Each Cell In Plage
ActiveCell.Select
Selection.Copy
Sheets("Convocation Formation").Select
Range("E7").Select
ActiveSheet.Paste
'Impression convoc vierge
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
If IsEmpty(Cell) Then
Exit For
End If
Sheets("Formations 2013").Select
Next Cell
End Sub
Pourriez-vous m'aider à résoudre le problème de la macro si dessous ?
Dans mon fichier, dans l'onglet "Formation 213" j'ai un tableau que j'incrémente ligne/ ligne avec des données. Pour une même ligne, les données des colonnes H à O, je veux que la macro copie la cellule H+numéro de ligne en cours, la colle en E7 dans l'onglet "convocation formation" et imprime la feuille en cours. Puis revenir sur l'onglet "Formation 2013", copie I+numéro de ligne en cours...etc jusqu'à ce qu'elle rencontre une cellule vide.
Pour l'instant, elle ne fait pas de boucle et s'arrête à la 1ère cellule de la plage, soit H+numéro de la ligne en cours
lorsque que je teste avec un Range définie, exemple range ("H66"), ça marche bien mais dès que j'active la variable i pour déterminer la plage variable, soit Range("H" & i & ":O" & i), cela ne fonctionne plus
Avez-vous une idée pour résoudre mon problème ?
Merci
Sub Macro1()
Sheets("Formations 2013").Select
Dim Cell As Range, Plage As Range
Range("H" & Cells.Rows.Count).End(xlUp).Select
i = ActiveCell.Row
Set Plage = Range("H" & i & ":O" & i)
'Set Plage = Range("H6:O6")
For Each Cell In Plage
ActiveCell.Select
Selection.Copy
Sheets("Convocation Formation").Select
Range("E7").Select
ActiveSheet.Paste
'Impression convoc vierge
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
If IsEmpty(Cell) Then
Exit For
End If
Sheets("Formations 2013").Select
Next Cell
End Sub
Dernière édition: