Code NOUVEAU CONTACT

Fermé

loulou225 Messages postés 11 Date d'inscription mercredi 26 novembre 2014 Statut Membre Dernière intervention 4 septembre 2015 - Modifié par Whismeril le 8/12/2014 à 10:58
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 8 déc. 2014 à 18:33

slt j'aimerai si mon code est bon pour le bouton NOUVEAU CONTACT :

`Pour le bouton Nouveau contact
Private Sub CommandButton1_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 `Pour placer le nouvel
enregistrement à la première ligne de tableau non vide
 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

 Range("G" & L).Value = TextBox5
 Range("H" & L).Value = TextBox6
 Range("I" & L).Value = TextBox7
 End If
End Sub

EDIT: Ajout de la coloration syntaxique.

A voir également:

Code NOUVEAU CONTACT
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

6 réponses

Réponse 1 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
8 déc. 2014 à 11:41

Bonjour,

vous ajoutez en fin de tableau, mais deux fois GHI !!!!!!

Réponse 2 / 6

loulou225 Messages postés 11 Date d'inscription mercredi 26 novembre 2014 Statut Membre Dernière intervention 4 septembre 2015
8 déc. 2014 à 12:39

bonjour ,

j'ai retiré en fin de tableau " GHI " comme vous l'avez suggérer mais je retrouve toujours le même message d'erreur.

erreur compilation
erreur syntaxe

merci pour votre réponse .

Réponse 3 / 6

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
8 déc. 2014 à 14:12

Bonjour,

Dans votre code, vérifiez vos apostrophes avant les commentaires.
` n'est pas identique à : '

Réponse 4 / 6

loulou225 Messages postés 11 Date d'inscription mercredi 26 novembre 2014 Statut Membre Dernière intervention 4 septembre 2015
8 déc. 2014 à 16:42

merci pour votre réponse cela dit lorsque je compile on me dit :

erreur syntax et la parti soulignée est marqué en rouge.
Private Sub CommandButton3_Click() est marqué en jaune

le code :

Private Sub CommandButton3_Click()

Dim L As Integer
If MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation ") = 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

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
8 déc. 2014 à 16:54

Il ne semble pas y avoir d'erreur dans ce code, à part les guillemets en trop après vbYes Then...

Peut être y verrions nous plus clair avec le fichier.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

loulou225 Messages postés 11 Date d'inscription mercredi 26 novembre 2014 Statut Membre Dernière intervention 4 septembre 2015
Modifié par pijaku le 8/12/2014 à 18:30

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

Réponse 6 / 6

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
8 déc. 2014 à 18:33

Essaye :

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

Nota : si Excel version 2007 et supérieure, la syntaxe

Range("A65536").End(xlUp).Row

est à éviter. Voir ICI.

Discussions similaires

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

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

Discussions similaires

Newsletters