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
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
A voir également:
- Aide pour réaliser une macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Réaliser un organigramme - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro logiciel - Télécharger - Organisation
1 réponse
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
525
15 avril 2015 à 10:45
15 avril 2015 à 10:45
Bonjour,
A+
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+
15 avril 2015 à 10:59
Ça fonctionne à merveille :)
Bonne journée et encore merci :)