Formulaire

[David2a]

Bonjour à tous,

C'est un appel à l'aide car j'ai un souci sur mon formulaire. J'ai un petit fichier Excel où j'ai créé un formulaire.
Quand je peux VALIDER mes informations, il me met une source dans UserForm1 (fichier Word joint). Il doit y avoir une erreur que je ne trouve pas.....

Merci d'avance pour la correction.

Bien cordialement.

David

 

[mutzik]

Re : Formulaire

bonjour,

avec le fichier excel, cela aurait été beaucoup plus pratique ...

 

[David2a]

Re : Formulaire

Merci de bien vouloir m'aider.

Je ne peux vous envoyer le fichier Excel car il me dit qu'il est trop volumineux. Pourtant, c'est un petit tableau Excel de 6 lignes et d'environ 15 colonnes.

Je ne sais pas comment faire pour vous l'expédier.....

 

[riton00]

Re : Formulaire

Bonjour David2a

Merci de bien vouloir m'aider.

Je ne peux vous envoyer le fichier Excel car il me dit qu'il est trop volumineux. Pourtant, c'est un petit tableau Excel de 6 lignes et d'environ 15 colonnes.

Je ne sais pas comment faire pour vous l'expédier.....

Au cas ou! Jusqu'à 15 Mo tu peux l'envoyer gratuitement par:
Accueil de Cjoint.com

Slts

 

[13GIBE59]

Re : Formulaire

Bonjour tout le monde, bonjour David2a.

@David2a :

Que veut dire cette phrase : Quand je peux VALIDER mes informations, il me met une source dans UserForm1 ?? 😕

Un conseil pour éclairer tes codes vba : nommes tes boutons (CommandButtonValider, CommandButtonFermer, etc...). Idem pour tes combo.

JB

 

[David2a]

Re : Formulaire

Voici le lien... J'espère que cela marche.

Document Cjoint

 

[David2a]

Re : Formulaire

Je viens d’expédier le fichier avec le lien joint.

Merci pour le conseil, c'est super gentil.

 

[13GIBE59]

Re : Formulaire

Chez moi, ton fichier est plein de hiéroglyphes, et j'ai pas suivi le stage Champollion niveau 3...😛

 

[laetitia90]

Re : Formulaire

bonjour tous 🙂🙂
perso je l'ecrirais comme cela pas de RowSource dans propriétee de la combo

code user

Dim y As Byte
Private Sub userform_initialize()
ComboBox1.List = Feuil12.Range("a2:t" & Feuil12.Cells(Rows.Count, 1).End(3).Row).Value
End Sub
Private Sub ComboBox1_Click()
 For y = 2 To 20: Me("TextBox" & y) = ComboBox1.List(ComboBox1.ListIndex, y - 1): Next y
End Sub
Private Sub CommandButton1_Click()
If MsgBox("confirmez-vous l'ajout des RES?", vbYesNo, "confirmation") = vbYes Then
 For y = 2 To 20: Feuil12.Cells(ComboBox1.ListCount + 2, y) = Me("TextBox" & y).Value: Next y
 Feuil12.Cells(ComboBox1.ListCount + 2, 1) = ComboBox1
 End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub

 

[David2a]

Re : Formulaire

Bonjour,

J'ai enfin réussi à enregistrer mon fichier en ZIP.

Encore merci à tous de votre, c'est super gentil.

Bien cordialement

David2a