Code nouveau bouton
Fermé
loulou225
Messages postés
11
Date d'inscription
mercredi 26 novembre 2014
Statut
Membre
Dernière intervention
4 septembre 2015
-
Modifié par jordane45 le 8/12/2014 à 18:07
jordane45 Messages postés 37253 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 mars 2023 - 8 déc. 2014 à 18:58
jordane45 Messages postés 37253 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 mars 2023 - 8 déc. 2014 à 18:58
A voir également:
- Code nouveau bouton
- Bouton on off ✓ - Forum Loisirs / Divertissements
- Tirexo nouveau site - Guide
- Code asci - Guide
- Code 80072efe ✓ - Forum Windows
- Freewifi secure code ✓ - Forum Réseau
4 réponses
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
4 551
8 déc. 2014 à 18:10
8 déc. 2014 à 18:10
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...
loulou225
Messages postés
11
Date d'inscription
mercredi 26 novembre 2014
Statut
Membre
Dernière intervention
4 septembre 2015
8 déc. 2014 à 18:25
8 déc. 2014 à 18:25
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
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
4 551
8 déc. 2014 à 18:28
8 déc. 2014 à 18:28
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
loulou225
Messages postés
11
Date d'inscription
mercredi 26 novembre 2014
Statut
Membre
Dernière intervention
4 septembre 2015
Modifié par jordane45 le 8/12/2014 à 18:55
Modifié par jordane45 le 8/12/2014 à 18:55
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
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
4 551
Modifié par jordane45 le 8/12/2014 à 18:58
Modifié par jordane45 le 8/12/2014 à 18:58
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