Formulaire pour remplir tableau

Bonjour à tout le monde

ceci est mon deuxième message sur le forum.

Je suis débutant en vba , je commence à bosser sur formulaire qui rempli un tableau.

J'ai fait le formulaire par contre je bloque sur la partie pour faire passer ce que l'utilisateur aura saisi et le mettre dans le tableau (après avoir appuyer sur un bouton "valider")

Le fichier est mal organisé cependant, je mets le bout de code que j'ai écrit :

Private Sub Valider_Click()

Sheets("Affaire").Activate

If ComboBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Then

MsgBox ("Vous n'avez pas saisie toutes les informations requises")

Else

'recherche de l'indice de premiere ligne dispo

Dim Lin As Integer

Lin = 3

While IsEmpty(Range("B" & Lin)) = False

Lin = Lin + 1

Wend

'remplir dans premiere ligne dispo

Range(“B” & Lin).Value = TextBox2 ????

Range(“C” & Lin) = ComboBox1

Range(“D” & Lin) = TextBox3

Unload Ajouter_Affaire

End If

End Sub

Le problème est dans la partie en rouge.

Merci d'avance pour vos clarifications

Bonjour CmMiro,

Ce qui fonctionne chez moi c'est ceci :

Private Sub CommandButton_Valider_Click()
Range("A1") = TextBox.Value 'La cellule A1 prendra la valeur entré dans le champs de l'UF
Unload Mon_UserFrom 'Ferme l'UF
End Sub

Dans ton bout de code je ne vois pas le ".Value" qui suit tes TextBox & Combox.

Essaye et reviens vers nous

Bonsoir,

C'est quelque peu brouillon et peu efficace : variable non déclarées en tête de procédure (avant tout code exécutable), activation de feuille, objets Range non qualifiés, etc.

Théoriquement, rien ne devrait cependant l'empêcher de fonctionner ! Mais Juice n'a pas tort en soulevant la question des propriétés par défaut des contrôles, j'y insiste régulièrement aussi car VBA paraît quelque peu instable dans leur prise en compte.

Maintenant on ne voit que le code et on ne sait donc pas à quels éléments il réfère et si ceux-ci sont conformes...

Cordialement.

Bonjour,

merci de vos réponses, je vais essayer de prendre en compte vos remarques et si ça bloque toujours j'organiserai mon code et je le posterai pour plus de clarté .

Cordialement,

Rebonjour,

Ça donne le même problème, je vous mets mon fichier pour mieux comprendre ce que je souhaite faire

Merci d'avance pour vos réponses.

116monclasseurvba.xlsm (28.59 Ko)

CmMiro,

L'erreur venait de la déclaration de ta variable "Lin" . Je te propose donc de remplacer dans ton code :

Dim Lin As Integer
Lin = 3
While IsEmpty(Range("B" & Lin)) = False
Lin = Lin + 1
Wend
'remplir dans premiere ligne dispo
Range(“B” & Lin) = TextBox1.Value
Range(“C” & Lin) = ComboBox1.Value
Range(“D” & Lin) = TextBox2.Value

Par ceci :

Dim Lin As Long
Lin = 3
Do While Not IsEmpty(Range("B" & Lin))
Lin = Lin + 1
Loop
'remplir dans premiere ligne dispo
Range("B" & Lin) = TextBox1.Value
Range("C" & Lin) = ComboBox1.Value
Range("D" & Lin) = TextBox2.Value
Unload UserForm1

J'ai tester avec ce que je te donne et sa fonctionne pou ce que tu veux faire

Restant à ta disposition pour toute autre info !

rebonjour,

Merci, ça a marché.

Je vous remercie tous pour votre aide

Cordialement,

Rechercher des sujets similaires à "formulaire remplir tableau"