Formulaire personalisé excel

Version imprimable

2 pièce(s) jointe(s)

Bonsoir,

J'ai trouver un tuto pour faire mon formulaire sous excel personnalisé ceux que j'ai fait mais j'ai modifier a mes attente seule problème je ne peux pas faire l'excution, il me mette une erreur : "Erreur d'exécution '9': L'indice n'appartient pas à la sélection.

Voici capture d'écran + le code
Pièce jointe 330948

Pièce jointe 330952

Code:

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
Option Explicit
Dim Ws As Worksheet
 
'Pour le formulaire
Private Sub UserForm_Initialize()
    Dim J As Long
    Dim I As Integer
 
    ComboBox2.ColumnCount = 1 'Pour la liste déroulante Categorie
    ComboBox2.List() = Array("1", "2", "3")
    ComboBox3.ColumnCount = 2 'Pour la liste déroulante Achat/Vente
    ComboBox3.List() = Array("Achats", "Ventes", "3")
    Set Ws = Sheets("test") 'Correspond au nom de votre onglet dans le fichier Excel
    With Me.ComboBox1
        For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
            .AddItem Ws.Range("A" & J)
        Next J
    End With
    For I = 1 To 7
        Me.Controls("TextBox" & I).Visible = True
    Next I
End Sub
'Pour la liste déroulante Code
Private Sub ComboBox1_Change()
    Dim Ligne As Long
    Dim I As Integer
 
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    Ligne = Me.ComboBox1.ListIndex + 2
    ComboBox2 = Ws.Cells(Ligne, "B")
    For I = 1 To 7
        Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 2)
    Next I
End Sub
 
 
'Pour le bouton Nouveau contact
Private Sub CommandButton1_Click()
    Dim L As Integer
    Dim J As Long
    Dim I 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
        ComboBox1.Clear
        Set Ws = Sheets("test") 'Correspond au nom de votre onglet dans le fichier Excel
        With Me.ComboBox1
            For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
                .AddItem Ws.Range("A" & J)
            Next J
        End With
    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

Bonne soirée

28/11/2017, 20h50
unparia

Bonjour
Je ne vois pas 7 textboxes nommées TextBox1, Textbox2, ... Textbox7 sur ton image ...

bonjour,

Code:

1
2
3
4
 
 For I = 1 To 7
        Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 2)
    Next I

tu n'as que 3 textbox ;)

@+JP

28/11/2017, 20h56
unparia

Et je pense que ce n'est pas la seule carence (le message aurait été différent de celui rapporté ... et d'ailleurs mal rapporté ...) ;)

EDIT : il a donc, en plus de la remarque faite en ce qui concerne les textboxes, une erreur de nom concernant l'une de ses deux feuilles.
Ou absence totale, ou un espace indu devant ou derrière le nom.
28/11/2017, 21h45
Maxime45400
Citation:
Envoyé par mjpmjp

bonjour,

Code:

1 2 3 4 For I = 1 To 7 Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 2) Next I

tu n'as que 3 textbox ;)

@+JP
Merci a toi, maintenant, j'ai une autre erreur : Erreur d'excution -2147024809 (800070057) : Objet spécifié introuvable.
29/11/2017, 07h20
unparia

Citation:

Merci a toi, maintenant, j'ai une autre erreur : Erreur d'excution -2147024809 (800070057) : Objet spécifié introuvable.

Il y a là vraiment mélange de tout !
Soyons clairs !
- le premier message ("Erreur d'exécution '9': L'indice n'appartient pas à la sélection.") n'avait qu'une cause possible : évocation d'une feuille non existante sous le nom exact employé pour l'évoquer
- le second message ("Erreur d'excution -2147024809 (800070057) : Objet spécifié introuvable") n'a également quant à lui qu'une cause possible : évocation d'un contrôle non existant sous le nom exact - "Textbox" & I en ce qui concerne les textboses, "Combobox1" "Combobox2" et "Combobox3 en ce qui concerne les Comboboxes" - employé pour l'évoquer

Tu es seul, Maxime45400, à pouvoir déterminer quelle est la feuille (1er message) ou le contrôle (second message) concerné(e)(s). Il faudrait venir sur ta chaise et devant ton écran pour le déterminer.

Ceci étant dit : une ligne est mise en surbrillance lorsque tu entres en mode debug. Elle est la ligne qui comporte une erreur. Cela devrait t'aider à identifier la cause de l'erreur.
29/11/2017, 08h54
Menhir

Citation:

Envoyé par Maxime45400

je ne peux pas faire l'excution, il me mette une erreur : "Erreur d'exécution '9': L'indice n'appartient

Citation:

Envoyé par Maxime45400

j'ai une autre erreur : Erreur d'excution -2147024809 (800070057) : Objet spécifié introuvable.

Lorsque tu indiques une erreur, indique aussi la ligne de code surlignée par cette erreur.
29/11/2017, 18h20
Maxime45400

Citation:

Envoyé par Menhir

Lorsque tu indiques une erreur, indique aussi la ligne de code surlignée par cette erreur.

La ligne en surbrillance est la suivante : "Private Sub UserForm_Initialize()"
29/11/2017, 20h56
unparia

Outre ce qui t'a déjà été dit plus haut (je dis bien "outre")
Il n'est pas très adroit d'évoquer dans l'évènement Initialize les objets d'un userform. Il ne sont pas forcément tous déjà identifiables à ce stade (surtout si nombreux).
Utilise l'évènement Activate.
29/11/2017, 20h58
Maxime45400

Citation:

Envoyé par unparia

Outre ce qui t'a déjà été dit plus haut (je dis bien "outre")
Il n'est pas très adroit d'évoquer dans l'évènement Initialize les objets d'un userform. Il ne sont pas forcément tous déjà identifiables à ce stade (surtout si nombreux).
Utilise l'évènement Activate.

Donc si je comprend bien : je remplace Private Sub UserForm_Initialize() par Private Sub UserForm_Activate()
mais je pense aussi avoir plein d'erreur dans mon code
29/11/2017, 21h08
unparia

Citation:

Donc si je comprend bien : je remplace Private Sub UserForm_Initialize() par Private Sub UserForm_Activate()

Tu ne "remplaces" pas ! Tu mets dans l'évènement Activate et non dans l'évènement Initialize les instructions mises dans l'évènement Initialize.
Les MOTS ont leur importance : on ne "remplace" pas un évènement par un autre, on "utilise" la survenue d'un évènement plutôt que celle de l'autre

Citation:

mais je pense aussi avoir plein d'erreur dans mon code

C'est plus que probable (nous t'avons déjà dit pourquoi).
Tu devrais cesser pour l'instant de "coder" et utiliser ton temps prioritairement à l'étude de VBA, des objets Excel et des objets gérés par VBA.
T'y prendre autrement n'est pas sain (et tu en constates les résultats).
Amitiés