Je n'arrive pas à solutionner mon code VBA
Bonjour,
je suis en train de créer un formulaire personnaliser. avec NOM, PRENOM , Adresse mail,
en dessous modifier, quitter, nouveau contact.
j'ai presque fini, mais voila , ca l 'active pas et ca me met des erreurs en jaune.
je vous joint mon code, si quelqu un pouvait m'aider à comprendre...
Merci
Option Explicit
Dim Ws As Worksheet
Private Sub toggleButton3_Click()
Unload Me
End Sub
Private Sub UserForm1()
Dim J As Long
Dim I As Integer
Set Ws = Sheets("FORMULAIRE2") 'Attention ce nom doit correspondre au nom de votre ONGLET
With Me.ComboBox1
For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("A" & J)
Next J
End With
For I = 1 To 8
Me.Controls("TextBox" & I).Visible = True 'affiche les données dans les textbox
Next I
End Sub
Private Sub ToggleButton2_Click()
End Sub
If MsgBox("Etes-vous certain de vouloir modifier ce produit ?", vbYesNo, "Demande de confirmation") = vbYes Then
Dim Ligne As Long
Dim I As Integer
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
For I = 1 To 8
If Me.Controls("TextBox" & I).Visible = True Then
Ws.Cells(Ligne, I + 1) = Me.Controls("TextBox" & I)
End If
Next I
End If
Private Sub ToggleButton1_Click()
Dim L As Integer
If MsgBox("Etes-vous certain de vouloir INSERER ce nouveau contact ?", vbYesNo, "Demande de confirmation") = vbYes Then
L = Sheets("FORMULAIRE2").Range("a65536").End(x1Up).Row + 1
Range("A" & L).Value = TextBox1 'Insère la donnée de la liste déroulante dans la colonne A
Range("B" & L).Value = TextBox2 'Insère la donne de la textbox1 dans la colonne B
'et à suivre....
Range("C" & L).Value = TextBox3
End If
Bonjour,
Tu auras beaucoup plus de chances d'avoir la réponse précise à ta question ... si tu joins ton fichier ....
Re,
Tu as quelques erreurs d'inattention ...
Dans ta userform, tu n'as que des TexttBoxes ...et dans ton initialisation, tu ajoutes des données à un Combobox ...???
Ci-joint, une première modif ...
oui, j 'ai fais quelques erreures, je débute :/
La ca me met Private Sub ToggleButton1_Click() en jaune.
pourquoi ?
et ca me surligne end(x1Up)
calyban a écrit :oui, j 'ai fais quelques erreures, je débute :/
La ca me met Private Sub ToggleButton1_Click() en jaune.
pourquoi ?
et ca me surligne end(x1Up)
L'instruction End Sub doit se trouver à la fin de ta procédure ... pas au début ...
Au fait, je te l'avais déjà corrigé ....
oui j'ai vu seulement, lorsque j'ai ouvert ton fichier, cela m'a mis en bleu etjaunes certaines variables,
ca me surligne maintenant ma textbox3
ci joint le dossier