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 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 - 8 déc. 2014 à 18:58

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 ;

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 asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Créer un nouveau compte gmail - Guide
Code blocks free - Télécharger - Langages

4 réponses

Réponse 1 / 4

jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 4 649
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...

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...

Réponse 2 / 4

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

Voici la partie qui est marquée en jaune :

L = Sheets("Clients").Range("a65536").End(xlUp).Row + 1

cordialement

jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 4 649
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 :

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

Réponse 3 / 4

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

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 :

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

Réponse 4 / 4

jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 4 649
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 :

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

Discussions similaires

Que signifie la pop up "nouveau tag ajouté" sur Huawei P8 Lite ?

Bouton ON OFF, O ou I ?

Code de renvoi d'appel : Ooredo, Mobilis...

Discussions similaires

Newsletters