copier valeur cellule active feuille 1 en feuille 2 et imprimer
1 réponse
jean sterpin
Bonjour,
mon classeur,
feuille 1 une trentaine de colonnes, près de 1000 lignes
colonne 1 mon numéro d'ordre
autres colonnes = diverses infos
feuille 2
je recopie manuellement en D8 mon numéro d'ordre ,
et grâce à la formule recherche(v) toutes les infos placées en feuille 1
sont mises en page avec titre, bref de manière présentable
ensuite j'imprime feuille 2
et je passe au n° d'ordre suivant
comment automatiser cette procédure, macro ?? car j'ai presque 1000
lignes...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ardus Petus
Bonsoir,
Sub printall() Dim rngNumordre As Range Dim rngVar As Range Dim c As Range With Worksheets("Feuil1") Set rngNumordre = .Range( _ Cells(1, "A"), _ Cells(Rows.Count, "A").End(xlUp)) End With With Worksheets("Feuil2") For Each c In rngNumordre .Range("D8") = c.Value .PrintOut Next c End With End Sub
Cordialement, -- AP
"jean sterpin" a écrit dans le message de news:444ce12f$0$32735$
Bonjour, mon classeur, feuille 1 une trentaine de colonnes, près de 1000 lignes colonne 1 mon numéro d'ordre autres colonnes = diverses infos
feuille 2 je recopie manuellement en D8 mon numéro d'ordre , et grâce à la formule recherche(v) toutes les infos placées en feuille 1 sont mises en page avec titre, bref de manière présentable ensuite j'imprime feuille 2
et je passe au n° d'ordre suivant
comment automatiser cette procédure, macro ?? car j'ai presque 1000 lignes...
merci si quelqu'un peut me renseigner,
jean sterpin
Bonsoir,
Sub printall()
Dim rngNumordre As Range
Dim rngVar As Range
Dim c As Range
With Worksheets("Feuil1")
Set rngNumordre = .Range( _
Cells(1, "A"), _
Cells(Rows.Count, "A").End(xlUp))
End With
With Worksheets("Feuil2")
For Each c In rngNumordre
.Range("D8") = c.Value
.PrintOut
Next c
End With
End Sub
Cordialement,
--
AP
"jean sterpin" <jeanster@skynet.be> a écrit dans le message de
news:444ce12f$0$32735$ba620e4c@news.skynet.be...
Bonjour,
mon classeur,
feuille 1 une trentaine de colonnes, près de 1000 lignes
colonne 1 mon numéro d'ordre
autres colonnes = diverses infos
feuille 2
je recopie manuellement en D8 mon numéro d'ordre ,
et grâce à la formule recherche(v) toutes les infos placées en feuille 1
sont mises en page avec titre, bref de manière présentable
ensuite j'imprime feuille 2
et je passe au n° d'ordre suivant
comment automatiser cette procédure, macro ?? car j'ai presque 1000
lignes...
Sub printall() Dim rngNumordre As Range Dim rngVar As Range Dim c As Range With Worksheets("Feuil1") Set rngNumordre = .Range( _ Cells(1, "A"), _ Cells(Rows.Count, "A").End(xlUp)) End With With Worksheets("Feuil2") For Each c In rngNumordre .Range("D8") = c.Value .PrintOut Next c End With End Sub
Cordialement, -- AP
"jean sterpin" a écrit dans le message de news:444ce12f$0$32735$
Bonjour, mon classeur, feuille 1 une trentaine de colonnes, près de 1000 lignes colonne 1 mon numéro d'ordre autres colonnes = diverses infos
feuille 2 je recopie manuellement en D8 mon numéro d'ordre , et grâce à la formule recherche(v) toutes les infos placées en feuille 1 sont mises en page avec titre, bref de manière présentable ensuite j'imprime feuille 2
et je passe au n° d'ordre suivant
comment automatiser cette procédure, macro ?? car j'ai presque 1000 lignes...