Discussion :

[lcouaci]

j'ai un souci, je viens de créer mon formulaire afin de pouvoir saisir des données nom et prénom, matricule, et bien d'autre choses encore j'utilise des combobox et des listbox
mais le soucis quand je fini j'arrive pas l'exécuté car débocage . alors voici ma formule utilisé: Option Explicit
Dim Ws As Worksheet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
'Pour le formulaire
Private Sub UserForm_Initialize()
    Dim J As Long
    Dim W As Integer
 
    'Pour la liste d?roulante Civilit?
    ComboBox2.List() = Array("AFF", "NAFF")
    Set Ws = Sheets("Clients") 'Correspond au nom de votre onglet dans le fichier Excel
    With ComboBox1
        For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
            .AddItem Ws.Range("A" & J)
        Next J
    End With
    For W = 1 To 7
        Me.Controls("TextBox" & W).Visible = True
    Next W
End Sub
 
'Pour la liste d?roulante Code client
Private Sub ComboBox1_Change()
    Dim Ligne As Long
    Dim W As Integer
    ComboBox2.List() = Array("6?me", "5?me", "4?me", "3?me")
    Set Ws = Sheets("Clients") 'Correspond au nom de votre onglet dans le fichier Excel
    With ComboBox1
        For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
            .AddItem Ws.Range("A" & J)
        Next J
    End With
    For W = 1 To 20
        Me.Controls("TextBox" & W).Visible = True
    Next W
End Sub
 
'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("O" & L).Value = TextBox13
        Range("P" & L).Value = TextBox14
        Range("Q" & L).Value = TextBox15
        Range("R" & L).Value = TextBox10
    End If
End Sub
 
'Pour le bouton Modifier
Private Sub CommandButton2_Click()
    Dim Ligne As Long
    Dim I As Integer
 
    If MsgBox("Confirmez-vous la modification de ce contact ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
        If Me.ComboBox1.ListIndex = -1 Then Exit Sub
        Ligne = Me.ComboBox1.ListIndex + 2
        Ws.Cells(Ligne, "B") = ComboBox2
        For I = 1 To 7
            If Me.Controls("TextBox" & I).Visible = True Then
                Ws.Cells(Ligne, I + 2) = Me.Controls("TextBox" & I)
            End If
        Next I
    End If
End Sub
 
'Pour le bouton Quitter
Private Sub CommandButton3_Click()
    Unload Me
End Sub

[Invité]

Bonjour,

Avec Option Explicit, vous êtes obligé de déclarer vos variables. Regardez Ws, il vous faut la déclarer en tête du module a minima, je la déclarerais plutôt Public dans un module standard. N'utilisez pas de mots réservés pour vos variables : modifiez le nom de votre variable Ligne.

Si vous devez poster un nouveau message, encadrez votre code avec des balises #.

[lcouaci]

Voici mon dossier s'il vous plait jeté un coup d'œil!!

[lcouaci]

Bonjour,

Salut et merci pour le coup de main, le souci maintenant dans mon macro il me met, variable indéfini.

[patricktoulon]

bonsoir
je crois sincerement que tu t'ai enmeler les pinceaux avec les comboboxs
et boucler sur 20 pour tes textbox arriver a "textbox18" ca plante car il n'existe pas
un exemple dument rempli dans le sheets client serait le bien venu avec des données bidons bien sur
la en l'etat ton userform est inexploitable trop d'erreurs et de méprises

en gros tu a un sheets avec des titres de comonne crrespondants au controls dans ton formulaire et du souhaite ajouter ou modifier une ligne c'est ca ?

[lcouaci]

bonsoir
Veux tu jeter un coup d'œil à mon formulaire stp. Je n'arrive pas a te suivre. Merci de ton aide !

[patricktoulon]

re
je l'ai vu ton formulaire ainsi que le code

comme je te l'ai dis tu t'es un peu enmelé les pinceaux dans ton code
tu rempli ta combo2 avec "aff,naff" et dans un autre evenement tu rempli cette meme combo avec 4eme,5eme,etc.... deja la on a un soucis
tes textbox tu n'en a pas 20 le plus grand c'est "textbox17"
etc...
etc...
donne un exemple avec quelques lignes deja remplie sur le sheets avec des données bidons mais exploitables

[Invité]

Une autre solution que celle de Patrick ()