Aide pour creer un macro
seb0079807
Messages postés
3
Statut
Membre
-
seb0079807 Messages postés 3 Statut Membre -
seb0079807 Messages postés 3 Statut Membre -
Bonjour à tous,
Est-ce que quelqu'un sais m'aider ?
En fait a partir d'un fichier excel qui contient des données suivantes client,type de machine,type de mat,numéro de commande,numéro de machine,numéro de serie de la machine.
Je voudrais faire une fiche de travail (toujours en excel mais dans un autre fichier) avec ces éléménts en en tête qui apparaissent automatiquement par exemple en appuyant sur enter sur le dernier elements qui est numero de serie de la machine.
Et en plus en appuyant sur enter tous ces elements s'affiche dans l'en tête de la fiche de travail mais elle s'imprime automatiquement.
Est-ce possible ? Je pense que c'est possible car j'ai déja vu cela dans d'autre société.
Est-ce que quelqu'un sais m'aider ?
En fait a partir d'un fichier excel qui contient des données suivantes client,type de machine,type de mat,numéro de commande,numéro de machine,numéro de serie de la machine.
Je voudrais faire une fiche de travail (toujours en excel mais dans un autre fichier) avec ces éléménts en en tête qui apparaissent automatiquement par exemple en appuyant sur enter sur le dernier elements qui est numero de serie de la machine.
Et en plus en appuyant sur enter tous ces elements s'affiche dans l'en tête de la fiche de travail mais elle s'imprime automatiquement.
Est-ce possible ? Je pense que c'est possible car j'ai déja vu cela dans d'autre société.
A voir également:
- Aide pour creer un macro
- Créer un lien pour partager des photos - Guide
- Comment créer un groupe whatsapp - Guide
- Créer un compte google - Guide
- Créer un compte gmail - Guide
- Creer un fichier .bat - Guide
1 réponse
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 ?