[VBA-E] objet specifique introuvable

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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

19/01/2007, 14h41
Pierre Fauconnier

Bonjour

C'est quoi l'objet "grille"?

C'est peut-être de ce côté qu'il faut chercher l'erreur
19/01/2007, 16h07
CIBOOX

OUI J' ai deja regardé mais grille c'est le nom de mon userform :arf:
19/01/2007, 16h49
marsupilami34

Je viens de voir Combobox en majuscule.
Il reconait peut être pas à ce niveau là
19/01/2007, 16h57
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:

? nomcombo

La valeur sera affichée et tu pourras vérifier
19/01/2007, 18h34
AlainTech

Où est placé le code que tu nous montres?
19/01/2007, 19h54
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:mouarf:
19/01/2007, 22h21
AlainTech

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

Salut,

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

Citation:

NomCombo = "COMBOBOX" & NoColonne

=> ça ne prendra pas.

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

Code:

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

@++

20/01/2007, 08h42
SilkyRoad

bonjour

Citation:

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
20/01/2007, 12h51
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 .
20/01/2007, 21h34
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 ;)

@++
21/01/2007, 10h47
CIBOOX

c cool quand ça marche :alerte: :fou:
21/01/2007, 23h02
CIBOOX

j'ai comprend plus rien .......
ja me permet de vous joindre mon fichier ..
21/01/2007, 23h12
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 ...

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

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

Code:

Private Sub chercher_Initialize()

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

2/ Dans ta boucle :
Code:

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
@++

21/01/2007, 23h20
CIBOOX

Citation:

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 :aie: avance pas
21/01/2007, 23h23
CIBOOX

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

Citation:

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 ?

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:

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:

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

22/01/2007, 08h51
CIBOOX

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

Voir 40 message(s) de cette discussion en une page