aide sur userfom

Modeste

XLDnaute Barbatruc

• 24 Janvier 2013

• #2

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! 😛

 

Vote positif 0 Vote négatif

J

julie999

XLDnaute Occasionnel

• 24 Janvier 2013

• #3

Re : aide sur userfom

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

 

Pièces jointes

• test userform1.xlsm

  62.4 KB · Affichages: 40
• test userform1.xlsm

  62.4 KB · Affichages: 46
• test userform1.xlsm

  62.4 KB · Affichages: 47

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 24 Janvier 2013

• #4

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 ...

 

Vote positif 0 Vote négatif

J

julie999

XLDnaute Occasionnel

• 24 Janvier 2013

• #5

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

 

Pièces jointes

• test userform1.xlsm

  63.2 KB · Affichages: 42
• test userform1.xlsm

  63.2 KB · Affichages: 50
• test userform1.xlsm

  63.2 KB · Affichages: 47

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 24 Janvier 2013

• #6

Re : aide sur userfom

salut

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

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

 

Vote positif 0 Vote négatif

J

julie999

XLDnaute Occasionnel

• 24 Janvier 2013

• #7

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

 

Vote positif 0 Vote négatif

S

stefan373

XLDnaute Occasionnel

• 24 Janvier 2013

• #8

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

 

Pièces jointes

• julie999.xls

  149 KB · Affichages: 46

Vote positif 0 Vote négatif