aide sur userfom

[julie999]

bonjour
j'aimerais avoir un coup de main sur les userform
j'ai crée un userfom simple mais je n'arrive pas a le finaliser

j'ai mis les éléments sur le fichier excel ci joint

reste la validation de donné a faire
fonction des boutons imprimer et quitter
et recuperer les valeurs nb palette et poids palette pour les inscrire sur le cmr correspondant

Julie

 

[Modeste]

Re : aide sur userfom

Bonjour Julie,

Si tu as déjà créé ton UserForm, pourquoi déposer un fichier ... qui ne le contient pas? Ce serait tout de même plus aisé!
D'autre part, même s'il n'est pas parfait, joins également le code que tu as déjà écrit (ça montrera que tu n'attends pas simplement du "tout cuit")

Allez, courage! 😛

 

[julie999]

Re : aide sur userfom

Bonjour modeste ,le fil
voici le fichier avec l'userform
j'ai supprimer me bouton quitter
Julie

 

[mutzik]

Re : aide sur userfom

bonjour,

une simple liste de validation pour choisir la ville
deux cellules en dessous pour les autres données
ça devrait suffire ...
pourquoi compliquer avec un userform, surtout qu'il n'y a aucun code ...

les feuilles CMR semblent identiques, pour quoi en avoir 3
une seule, on remplit la ville automatiquement et puis voili ...

 

[julie999]

Re : aide sur userfom

re
oui en effet les 3 cmr sont identique seul les adresses que je mettrais ensuite seront differente
pour la liste des villes j'ai trouvé la solution
reste a reporter les 2 celulles du dessous(nb palette et poids dans les cmr et le code pour imprimer le cmr selectionné avec la validation donné
julie

 

[Si...]

Re : aide sur userfom

salut

Si... tu tiens à ton UsF inclus ce code :

Private Sub UserForm_Initialize()
  ComboBox1.List() = Array("Paris", "Lens", "Lyon")
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If Not IsNumeric(TextBox1) Then TextBox1 = "": Cancel = True
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If Not IsNumeric(TextBox1) Then TextBox2 = "": Cancel = True
End Sub

Private Sub CommandButton1_Click()
   If ComboBox1 = "" Or TextBox1 = "" Or TextBox2 = "" Then Exit Sub
   With Sheets("CMR " & ComboBox1.Text)
    .[E41] = TextBox1
    .[J41] = TextBox2 & " kg"
    Unload Me
    .PrintPreview 'plutôt qu'une impression directe, pour contrôler éventuellement
  End With
End Sub

 

[julie999]

Re : aide sur userfom

re si,modeste le fil
impeccable c'est tout a fait ce que je voulais
les codes sont différents pour les userform par rapport aux macro
merci Julie

 

[stefan373]

Re : aide sur userfom

Bonsoir julie999 et le forum,

Voilà ce que j'ai réalisé. A voir si cela vous convient. 🙂

A+ Stéfan