Défi: Compléter une feuille excel avec une userform
KoXsss
Messages postés3Date d'inscriptionmercredi 28 juillet 2004StatutMembreDernière intervention 4 août 2004
-
28 juil. 2004 à 14:28
HFanny
Messages postés699Date d'inscriptionmercredi 19 février 2003StatutMembreDernière intervention13 mai 2011
-
28 juil. 2004 à 17:32
Je suis un grande débutante ...!!! Et j'essaie de remplir un tableau, par ligne, grâce aux infos mises dans la user form.
Le but est qu'à chaque fois que l'on appuie sur "valider " l'ensemble des infos soient mises sur la ligne suivante de la feuille excel. (j'ai tenté une incrémentation mais aie aie aie ...)
Merci aux balèzes pour leur aide...
Voici mon code
Pour mon bouton valider:
Public Sub Bt_Valider_Click()
i = i + 1
End Sub
Pour faire un "reset" et revenir en haut du tableau de ma feuille excel:
Public Sub CommandButton3_Click()
Dim i As Integer
i = 2
End Sub
Pour fermer sans enregistrer "quitter":
Private Sub CommandButton1_Click()
Unload UserForm1
End Sub
Ensuite les codes concernant mes différents boutons et entrées
------------------------------------
Private Sub ComboBox1_Change()
[C[i]] = UserForm1.ComboBox1
End Sub
Private Sub OptionButton1_Click()
If Controls("OptionButton1").Value = True Then
[D[i]] = "Panne " & Controls("OptionButton1").Caption
End If
End Sub
Private Sub OptionButton2_Click()
If Controls("OptionButton2").Value = True Then
[D[i]] = "Panne ne nécessitant " & Controls("OptionButton2").Caption
End If
End Sub
Private Sub OptionButton3_Click()
If Controls("OptionButton3").Value = True Then
[I[i]] = "Il y a eu modification du " & Controls("OptionButton3").Caption
End If
End Sub
Private Sub OptionButton4_Click()
If Controls("OptionButton4").Value = True Then
[F[i]] = "Il y a création d'un " & Controls("OptionButton4").Caption
End If
End Sub
Private Sub OptionButton5_Click()
If Controls("OptionButton5").Value = True Then
[G[i]] = "Il y a création d'une " & Controls("OptionButton5").Caption
End If
End Sub
Private Sub OptionButton6_Click()
If Controls("OptionButton6").Value = True Then
[H[i]] = "Il y a eu " & Controls("OptionButton6").Caption
End If
End Sub
Private Sub TextBox1_Change()
[A[i]] = UserForm1.TextBox1
End Sub
Private Sub TextBox2_Change()
[B[i]] = UserForm1.TextBox2
End Sub
Private Sub TextBox3_Change()
[E[i]] = UserForm1.TextBox3
End Sub
Private Sub TextBox4_Change()
[J[i]] = UserForm1.TextBox4
End Sub
:blush) Cookie
A voir également:
Défi: Compléter une feuille excel avec une userform
HFanny
Messages postés699Date d'inscriptionmercredi 19 février 2003StatutMembreDernière intervention13 mai 201120 28 juil. 2004 à 17:32
Bonjour,
je n'ai pas lu tout ton code, mais je vais te donner la marche à suivre :
exemple avec une userform comportant 2 textbox : txtnom et txtprenom, deux radios boutons pour le sexe : opthomme et optfemme, ainsi qu'un bouton de validation cmdOK.
Lorsque tu veux insérer une personne en dernière ligne de ton tableau Excel, il faut que tu trouves cette dernière ligne, puis que tu y mettes tes données.
Voici le code que tu dois mettre sur le clic du bouton cmdOK :
'ici on recherche la dernière ligne vide
Dim cellule As Range
Set cellule = Range("A1")
While Not IsEmpty(cellule)
Set cellule = cellule.Offset(1,0)
Wend
'une fois fait, on copie les données
cellule = txtnom.Value
cellule.Offset(0,1) = txtprenom.Value
If optHomme = true Then
cellule.Offset(0,2) = H
Else
cellule.Offset(0,2= = F
End If
Voilà en gros comment tu peux faire.
Si tu ne comprends pas ce code, dis le.