Code nouveau bouton
loulou225
Messages postés
14
Statut
Membre
-
jordane45 Messages postés 40053 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 40053 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
je vous remercie pour toute vos réponses elle m'ont permi d'avancer .
la quant je compile on me demande dans la boite de Dialogue si "" Confirmez-vous l'insertion de ce nouveau contact '' OUI/NON . et lorsque je clik sur oui on m'envoi une autre boite de Dialogue pour me dire :
erreur d'execution '9'
L'indice n'appartient pas à la selection
voici le code ;
merci de me répondre .
EDIT : Ajout des balises de code.
je vous remercie pour toute vos réponses elle m'ont permi d'avancer .
la quant je compile on me demande dans la boite de Dialogue si "" Confirmez-vous l'insertion de ce nouveau contact '' OUI/NON . et lorsque je clik sur oui on m'envoi une autre boite de Dialogue pour me dire :
erreur d'execution '9'
L'indice n'appartient pas à la selection
voici le code ;
Private Sub CommandButton3_Click()
Dim L As Integer
If MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
L = Sheets("Clients").Range("a65536").End(xlUp).Row + 1
Range("A" & L).Value = ComboBox1
Range("B" & L).Value = ComboBox2
Range("C" & L).Value = TextBox1
Range("D" & L).Value = TextBox2
Range("E" & L).Value = TextBox3
Range("F" & L).Value = TextBox4
Range("G" & L).Value = TextBox5
Range("H" & L).Value = TextBox6
Range("I" & L).Value = TextBox7
Range("J" & L).Value = TextBox8
Range("K" & L).Value = TextBox9
Range("L" & L).Value = TextBox10
Range("M" & L).Value = TextBox11
Range("N" & L).Value = TextBox12
End If
End Sub
merci de me répondre .
EDIT : Ajout des balises de code.
A voir également:
- Code nouveau bouton
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
- Créer un nouveau compte gmail - Guide
4 réponses
Bonjour,
Sur quelle ligne te met-il cette erreur ?
Au passage... ajoute les ".value" après les elements de ton userform...
Sur quelle ligne te met-il cette erreur ?
Au passage... ajoute les ".value" après les elements de ton userform...
Dim L As Long
If MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
L = Range("A" & Rows.Count).End(xlUp).Row +1
Range("A" & L).Value = ComboBox1.value
Range("B" & L).Value = ComboBox2.value
Range("C" & L).Value = TextBox1.value
' etc...
Voici la partie qui est marquée en jaune :
L = Sheets("Clients").Range("a65536").End(xlUp).Row + 1
cordialement
L = Sheets("Clients").Range("a65536").End(xlUp).Row + 1
cordialement
Tu as déjà des lignes dans ta feuille ?
Sinon..ça pourrait expliquer ton souci...
A tout hasard....
Teste ceci :
Sinon..ça pourrait expliquer ton souci...
A tout hasard....
Teste ceci :
Dim L As Long
If MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
L = Sheets("Clients").Range("A" & Rows.Count).End(xlUp).Row +1
merci pour votre réponse j'aimerai savoir de quelle feuille vous parler ...? la feuille d'excel ou le formulaire ???
avec votre code j'ai toujours la même erreur mais cette fois ci une erreur a ce niveau
"" With Sheets("Clients") ''
c'est marqué en jaune .
voici le code :
merci pour la réponse .
EDIT : Ajout des balises de code
avec votre code j'ai toujours la même erreur mais cette fois ci une erreur a ce niveau
"" With Sheets("Clients") ''
c'est marqué en jaune .
voici le code :
Private Sub CommandButton3_Click()
Dim L As Integer
If MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
With Sheets("Clients")
L = .Range("A65536").End(xlUp).Row + 1
.Range("A" & L).Value = ComboBox1
.Range("B" & L).Value = ComboBox2
.Range("C" & L).Value = TextBox1
.Range("D" & L).Value = TextBox2
.Range("E" & L).Value = TextBox3
.Range("F" & L).Value = TextBox4
.Range("G" & L).Value = TextBox5
.Range("H" & L).Value = TextBox6
.Range("I" & L).Value = TextBox7
.Range("J" & L).Value = TextBox8
.Range("K" & L).Value = TextBox9
.Range("L" & L).Value = TextBox10
.Range("M" & L).Value = TextBox11
.Range("N" & L).Value = TextBox12
End With
End If
End Sub
merci pour la réponse .
EDIT : Ajout des balises de code
déjà ..
Merci de bien vouloir utiliser la coloration syntaxique (les balises de code) lorsque tu postes du code sur le forum.
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
Ensuite :
Ben de la feuille sur laquelle tu essayes de coller tes valeurs....
En l'occurrence : "Clients"
Je ne vois nul part dans ton code où tu as utilisé "mon" code....
Donc.. pour t'aider un peu...
Essaye CE CODE :
Avant de poser une question, merci de lire la charte du site.
Cordialement, Jordane
Merci de bien vouloir utiliser la coloration syntaxique (les balises de code) lorsque tu postes du code sur le forum.
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
Ensuite :
j'aimerai savoir de quelle feuille vous parler
Ben de la feuille sur laquelle tu essayes de coller tes valeurs....
En l'occurrence : "Clients"
avec votre code j'ai toujours la même erreur
Je ne vois nul part dans ton code où tu as utilisé "mon" code....
Donc.. pour t'aider un peu...
Essaye CE CODE :
Private Sub CommandButton3_Click()
'Dim L As Integer
Dim L As Long
If MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
With Sheets("Clients")
' L = .Range("A65536").End(xlUp).Row + 1
L = .Range("A" & Rows.Count).End(xlUp).Row +1
.Range("A" & L).Value = ComboBox1.value
.Range("B" & L).Value = ComboBox2.value
.Range("C" & L).Value = TextBox1.value
.Range("D" & L).Value = TextBox2.value
.Range("E" & L).Value = TextBox3.value
.Range("F" & L).Value = TextBox4.value
.Range("G" & L).Value = TextBox5.value
.Range("H" & L).Value = TextBox6.value
.Range("I" & L).Value = TextBox7.value
.Range("J" & L).Value = TextBox8.value
.Range("K" & L).Value = TextBox9.value
.Range("L" & L).Value = TextBox10.value
.Range("M" & L).Value = TextBox11.value
.Range("N" & L).Value = TextBox12.value
End With
End If
End Sub
Avant de poser une question, merci de lire la charte du site.
Cordialement, Jordane
