Aide pour réaliser une macro

Fermé

LeLutin68 Messages postés 12 Date d'inscription mercredi 15 avril 2015 Statut Membre Dernière intervention 16 février 2022 - 15 avril 2015 à 09:50
LeLutin68 Messages postés 12 Date d'inscription mercredi 15 avril 2015 Statut Membre Dernière intervention 16 février 2022 - 15 avril 2015 à 10:59

Bonjour à tous et à toutes,

Je souhaite réaliser une macro qui puisse permettre :
1.Copier une valeur d'une liste (sheet1) puis la copier dans la cellule d'une autre feuille (sheet2)
2.imprimer la feuille (sheet2)
3.Copier la valeur suivante de la liste (sheet1) dans la feuille (sheet2)
3.imprimer la feuille (sheet2)
etc.... jusqu'à fin de la liste.

Le principe est que j'ai un formulaire dans la feuille (sheet1) qui se met à jour automatique quand je renseigne une donnée dans une cellule (R7), je souhaiterai qu'il puisse se mettre à jour automatiquement + impression en utilisant les données présentes dans la colonne A de la feuille (sheet2)..

Pourriez vous m'aider à réaliser ma première macro ?:)

Voici le principe pour une valeur (je souhaite que cela puisse s'enchainer pour toute les valeurs de la liste)

'Sub Macro1()

Sheets("sheet2").Activate 'Active la feuille où se trouve ma liste
Range("A1").Select 'Sélection de la première valeur de ma liste
Application.CutCopyMode = False
Selection.Copy 'Copie de la première valeur de ma liste
Sheets("sheet1").Activate 'Active la feuille où se trouve mon formulaire
Range("R7").Select 'Selectionne la cellule à mettre à jour
ActiveSheet.Paste 'Colle la valeur de ma liste
ActiveSheet.PrintOut 'Imprime le formulaire

End Sub

Merci d'avance & bonne journée

Alexandre

A voir également:

Aide pour réaliser une macro
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Réaliser un organigramme - Guide

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
15 avril 2015 à 10:45

Bonjour,

Sub Test()
Dim WsS As Worksheet 'Feuille source
Dim WsC As Worksheet 'Feuille cible
Dim Cel As Range
    Set WsS = Worksheets("sheet2") 'feuille où se trouve la liste
    Set WsC = Worksheets("sheet1") ''feuille où se trouve le formulaire
    For Each Cel In WsS.Range("A1:A" & WsS.Range("A" & Rows.Count).End(xlUp).Row)
        Cel.Copy WsC.Range("R7")
        WsC.PrintOut
    Next Cel
    Set WsC = Nothing: Set WsS = Nothing
End Sub

A+

LeLutin68 Messages postés 12 Date d'inscription mercredi 15 avril 2015 Statut Membre Dernière intervention 16 février 2022
15 avril 2015 à 10:59

Merci infiniment Gyrus ! qu'elle efficacité
Ça fonctionne à merveille :)

Bonne journée et encore merci :)

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

VBA pour Excel pour les nuls

recup couleur de cellule sans macro

Lien de téléchargement de nbLettre.xla

Discussions similaires

Newsletters