Discussion :

[CIBOOX]

BONJOUR ,
j'ai un petit souci lorsque je souhaite initialiser mes combobox ......
mon userform ce nomme : grille

erreur d' execution -2147024809( 80070057)
objet specifique introuvable

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub InitCombo(NoLigne, NoColonne)
Dim NomCombo As String
Dim Plage As String
Sheets("bd").Activate
    Plage = Range(Cells(3, NoColonne), Cells(NoLigne, NoColonne)).Address
    NomCombo = "COMBOBOX" & NoColonne
     With grille.Controls(NomCombo)bugage a ce niveau
        .Text = Cells(3, NoColonne)
        .RowSource = Plage
         
    End With
   
End Sub

[Pierre Fauconnier]

Bonjour

C'est quoi l'objet "grille"?

C'est peut-être de ce côté qu'il faut chercher l'erreur

[CIBOOX]

OUI J' ai deja regardé mais grille c'est le nom de mon userform

[marsupilami34]

Je viens de voir Combobox en majuscule.
Il reconait peut être pas à ce niveau là

[Pierre Fauconnier]

Lorsque cela plante, regarde la valeur de NOMCOMBO, soit en infobulle en mettant curseur souris dessus, soit via fenêtre d'exécution (CTRL+G) puis, dans cette fenêtre, tu saisis

Code :

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

? nomcombo

La valeur sera affichée et tu pourras vérifier

[AlainTech]

Où est placé le code que tu nous montres?

[CIBOOX]

En fait le code est placé sous le bouton "nouvelle fiches"
le truc c'est que dans mon userform grille j'ai plusieurs combobox lieé entre elle
quand je click sur le bouton " nouvelle fiches" je lance plusieurs inputbox pour completer une nouvelle saisie qui constitue une ligne en fin de mon tableau
maintenant j'aimerai que cette nouvelle ligne soit incluse dans mes rowsources

si ya un autre moyen d'initialiser mes combobox je suis preneur

[AlainTech]

Si ton code est placé dans le Form en question, tu peux y faire référence par Me.

[mortalino]

Salut,

en VBA, il n'existe pas de groupe de contrôles (contrairement à VB6).
Et quelque chose dans ton code m'interpelle :

NomCombo = "COMBOBOX" & NoColonne

=> ça ne prendra pas.

Il faut faire une boucle sur tes objets, comme ceci (testé) :

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
Sub InitCombo(NoLigne, NoColonne)
    Dim NomCombo    As String
    Dim Plage       As String
    Dim ctl         As Control
 
Sheets("bd").Activate
Plage = Range(Cells(3, NoColonne), Cells(NoLigne, NoColonne)).Address
NomCombo = "ComboBox" & NoColonne
    For Each ctl In Me.Controls
        If ctl.Name = NomCombo Then
            ctl.Text = Cells(3, NoColonne)
            ctl.RowSource = Plage
            Exit For
        End If
   Next ctl
End Sub

@++

[SilkyRoad]

bonjour

NomCombo = "COMBOBOX" & NoColonne

=> ça ne prendra pas.

bien sur que si... ;o)

La procédure fonctionne sans probleme chez moi.
tu peux donner plus de détails sur le fonctionnement de ton projet?
dans quelle condition est appelée la macro?


bonne journée
michel

[CIBOOX]

en fait je souhaite ajouter une nouvelle fiches je clique sur mon bouton pour lancer la macro

ma macro doit permettre de remplir une nouvelle ligne dans mon tableau ( sur ma feuille bd ) et que celle ci soit incrementer en rowsources dans mes combobox .

[mortalino]

Salut,

oui, bien vu, j'ai longuement cherché comment faire et maintenant que je ne fais plus de vba, voici la solution sous mes yeux.
Je ne savais pas que .Controls acceptait l'argument String pour les noms des contrôles

Merci

@++

[CIBOOX]

c cool quand ça marche

[CIBOOX]

j'ai comprend plus rien .......
ja me permet de vous joindre mon fichier ..

[SfJ5Rpw8]

as tu vérifié la valeur contenu par ta variable NoColonne au moment du bug...pour cela au moment du message d'erreur tu chosi débogage... puis tu place le curseur de la souris sur ta variable ...

[mortalino]

Je viens de regarder ton fichier, et j'ai vu deux choses :

1/ Qu'est ce que cette procédure :

Code :

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

Private Sub chercher_Initialize()

Je demande ça car elle n'est jamais appelée !!

2/ Dans ta boucle :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub chercher_Initialize()
 
Dim DernièreLigne As Integer
Sheets("bd").Activate
    DernièreLigne = ActiveSheet.Range("c5").SpecialCells(xlCellTypeLastCell).Row + 1 ' Première ligne vide
    For i = 1 To 23
        InitCombo DernièreLigne, i
    Next
End Sub

Dès que i atteind 4, ça plante, pour la simple et bonne raison, que tu n'as pas d'objet qui s'appelle ComboBox4.

J'espère t'avoir mis sur la voie, bon courage
@++

[CIBOOX]

ta variable NoColonne au moment du bug...pour cela au moment du message d'erreur tu chosi débogage... puis tu place le curseur de la souris sur ta variable ...
Aujourd'hui 23h02

no colonne = 1 mais ça m avance pas

[CIBOOX]

oui desole pour chercher_Initialize() en fait j'ai du changer de nom de mon userform

mortalino
Dès que i atteind 4, ça plante, pour la simple et bonne raison, que tu n'as pas d'objet qui s'appelle ComboBox4.

comment remedier au probleme ?

[mortalino]

Pour le coup du nom du UserForm, cela ne devrait avoir aucune incidence dans le sens ou peu importe le nom que tu lui donnes, la procédure sera toujours :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
Dim DernièreLigne As Integer
Sheets("bd").Activate
    DernièreLigne = ActiveSheet.Range("c5").SpecialCells(xlCellTypeLastCell).Row + 1 ' Première ligne vide
    For i = 1 To 23
        InitCombo DernièreLigne, i
    Next

End Sub

Ensuite, pour le combobox, soit tu renommes le bon en ComboBox4, soit tu veux sauter le ComboBox4 dans la boucle, et dans ce cas :

Code :

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

1
2
3
    For i = 1 To 23
        If i <> 4 Then InitCombo DernièreLigne, i
    Next

@++

[CIBOOX]

EN FAIT G RENOMMER TOUTE MES COMBOBOX EN COMMENACANT PAR CBOX
EX CBOX1,CBOX2,CBOX3,ETC....
et ça marche toujours pas