Macro Excel 2007
evevdll
Messages postés
82
Statut
Membre
-
Le Pingou Messages postés 12713 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12713 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai créé un UserForm pour lequel j'ai saisi le code suivant. Les valeurs se placent dans ma feuille de calcul en ligne 15 (Colonne A à F). Cependant, j'aimerai pouvoir ajouter des données jusqu'à la ligne 22 au maximum. Je ne sais pas comment faire pour que dès que j'ai fini avec la ligne 15, je commence à saisir sur les lignes suivantes (plage totale de saisie : A15 à F22).
Merci de bien vouloir m'aider à régler ce gros problème (pour moi).
A bientôt de vous lire
Eve
Private Sub UserForm_Activate()
CbRef.AddItem "VAD"
CbRef.AddItem "FORM"
CbRef.AddItem "VAC"
CbRef.AddItem "PEC"
CbRef.AddItem "FRM"
CbRef.AddItem "FRE"
CbRef.AddItem "APP"
CbType.AddItem "H"
CbType.AddItem "S"
End Sub
Private Sub CbRef_AfterUpdate()
Range("A15") = CbRef.Value
End Sub
Private Sub TxtDesignation_AfterUpdate()
Range("B15") = txtDesignation.Value
End Sub
Private Sub CbType_AfterUpdate()
Range("C15") = CbType.Value
End Sub
Private Sub TxtPrixUnitaire_AfterUpdate()
Range("D15") = TxtPrixUnitaire.Value
End Sub
Private Sub TxtQuantite_AfterUpdate()
Range("E15") = TxtQuantite.Value
End Sub
Private Sub TxtPourcentageRemise_Change()
Range("F15") = TxtPourcentageRemise.Value
End Sub
Private Sub CmdSuivant_Click()
End Sub
J'ai créé un UserForm pour lequel j'ai saisi le code suivant. Les valeurs se placent dans ma feuille de calcul en ligne 15 (Colonne A à F). Cependant, j'aimerai pouvoir ajouter des données jusqu'à la ligne 22 au maximum. Je ne sais pas comment faire pour que dès que j'ai fini avec la ligne 15, je commence à saisir sur les lignes suivantes (plage totale de saisie : A15 à F22).
Merci de bien vouloir m'aider à régler ce gros problème (pour moi).
A bientôt de vous lire
Eve
Private Sub UserForm_Activate()
CbRef.AddItem "VAD"
CbRef.AddItem "FORM"
CbRef.AddItem "VAC"
CbRef.AddItem "PEC"
CbRef.AddItem "FRM"
CbRef.AddItem "FRE"
CbRef.AddItem "APP"
CbType.AddItem "H"
CbType.AddItem "S"
End Sub
Private Sub CbRef_AfterUpdate()
Range("A15") = CbRef.Value
End Sub
Private Sub TxtDesignation_AfterUpdate()
Range("B15") = txtDesignation.Value
End Sub
Private Sub CbType_AfterUpdate()
Range("C15") = CbType.Value
End Sub
Private Sub TxtPrixUnitaire_AfterUpdate()
Range("D15") = TxtPrixUnitaire.Value
End Sub
Private Sub TxtQuantite_AfterUpdate()
Range("E15") = TxtQuantite.Value
End Sub
Private Sub TxtPourcentageRemise_Change()
Range("F15") = TxtPourcentageRemise.Value
End Sub
Private Sub CmdSuivant_Click()
End Sub
A voir également:
- Macro Excel 2007
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Save as pdf office 2007 - Télécharger - Bureautique
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
1 réponse
Bonjour,
Pas simple de comprendre, avec votre exemple sur https://www.cjoint.com/ et poster le lien , cela aiderait à comprendre.
Pas simple de comprendre, avec votre exemple sur https://www.cjoint.com/ et poster le lien , cela aiderait à comprendre.