Macro Excel 2007

evevdll Messages postés 82 Statut Membre -  
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
A voir également:

1 réponse

Le Pingou Messages postés 12713 Date d'inscription   Statut Contributeur Dernière intervention   1 467
 
Bonjour,
Pas simple de comprendre, avec votre exemple sur https://www.cjoint.com/ et poster le lien , cela aiderait à comprendre.
0