Aide pour creer un macro
Fermé
seb0079807
Messages postés
3
Date d'inscription
mercredi 12 septembre 2007
Statut
Membre
Dernière intervention
22 octobre 2007
-
12 sept. 2007 à 15:26
seb0079807 Messages postés 3 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 22 octobre 2007 - 13 sept. 2007 à 14:59
seb0079807 Messages postés 3 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 22 octobre 2007 - 13 sept. 2007 à 14:59
A voir également:
- Aide pour creer un macro
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Créer un compte instagram - Guide
- Créer un compte facebook - Guide
- Creer adresse mail - Guide
1 réponse
seb0079807
Messages postés
3
Date d'inscription
mercredi 12 septembre 2007
Statut
Membre
Dernière intervention
22 octobre 2007
13 sept. 2007 à 14:59
13 sept. 2007 à 14:59
J'ai crée le code suivant:
Private Sub CommandButton1_Click()
Worksheets("label").Range("b4").Value = Worksheets("planning").Range("a2").Value
Worksheets("label").Range("b5").Value = Worksheets("planning").Range("c2").Value
Worksheets("label").Range("b6").Value = Worksheets("planning").Range("d2").Value
Worksheets("label").Range("h4").Value = Worksheets("planning").Range("b2").Value
Worksheets("label").Range("h5").Value = Worksheets("planning").Range("f2").Value
End Sub
Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Worksheets("label").PrintOut
End Sub
Mais je voudrais créer une boucle pour automatiser mais je ne sais pas comment faire ?
Est-ce que quelqu'un sais m'aider ?
Private Sub CommandButton1_Click()
Worksheets("label").Range("b4").Value = Worksheets("planning").Range("a2").Value
Worksheets("label").Range("b5").Value = Worksheets("planning").Range("c2").Value
Worksheets("label").Range("b6").Value = Worksheets("planning").Range("d2").Value
Worksheets("label").Range("h4").Value = Worksheets("planning").Range("b2").Value
Worksheets("label").Range("h5").Value = Worksheets("planning").Range("f2").Value
End Sub
Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Worksheets("label").PrintOut
End Sub
Mais je voudrais créer une boucle pour automatiser mais je ne sais pas comment faire ?
Est-ce que quelqu'un sais m'aider ?