[VBA-E] objet specifique introuvable

Version imprimable

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:
22/01/2007, 10h44
Pierre Fauconnier

Citation:

Envoyé par CIBOOX

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

Si tu veux que l'on t'aide... pourrais-tu:
1. arrêter de renommer continuellement tes objets, car il est malaisé de comprendre ton code au vu des différentes versions proposées?
2. expliquer EN FRANCAIS ce que tu souhaites réaliser?

Il est souvent plus aisé de tester un code sur un petit fichier de test (une ou deux feuilles, deux ou trois combos,...) pour bien comprendre le fonctionnement d'une procédure. Après, une fois que tu as intégré la technique, tu reportes sur ton fichier de travail et tu étends à l'ensemble de tes contrôles...

VBA est d'un abord assez simple, mais il y a quand même quelques bases à bien posséder avant de quitter le port et de naviguer vers des codes plus complexes...
22/01/2007, 12h11
Pierre Fauconnier

Citation:

Envoyé par ouskel'n'or

J'ai jeté un oeil : Les noms de tes combos sont en minuscules, la première lettre en majuscule
Dans ta lignetu dois respecter la casse. Je pense que le marsupial avait raison
...

VBA ne différencie pas la casse pour les noms des contrôles. Il n'y a donc pas de problème à nommer un contrôle CoMbObOx1 et à utiliser ensuite

Code:

controls("combobox1")=...

Je pense pour ma part que le problème vient du fait que notre "ami" modifie les noms de ses contrôles "au petit bonheur" sans adapter tout son code (cfr mon dernier message).
22/01/2007, 12h18
AlainTech

Mais qu'est ce que c'est que ce chipotage sur la casse des contrôles???

Si un contrôle existe, il peut être tapé avec n'importe quelle casse et VBE adaptera le "texte" en fonction du nom réel du contrôle.

De grâce, utilisez les facilités de l'intellisense. Je me force à toujours taper en minuscule dans VBE alors que tous mes contôles et variables contiennent au moins une majuscule. De cette façon, je vois immédiatement si un nom est mal orthographié (les majuscules ne sont pas corrigées).
22/01/2007, 12h23
ouskel'n'or

:oops:

Citation:

Envoyé par Mais oui, Alain,

Je me force à toujours taper en minuscule dans VBE alors que tous mes contôles et variables contiennent au moins une majuscule. De cette façon, je vois immédiatement si un nom est mal orthographié.

C'est sans doute pourquoi je n'ai jamais eu ce problème et que j' mé fourvoyé :cry:
Je suis qu'un pauv' gars donc faillible, faut pas tout me casser, je suis assez fragile :mouarf:
22/01/2007, 12h26
Pierre Fauconnier

Bonjour Alain,

Merci de venir à mon secours.

Tu utilises la même technique que moi. Tous mes controles et toutes mes variables sont nommées avec au moins une majuscule et je les saisis toujours en minuscules pour une vérification visuelle immédiate...

Le problème se trouve ailleurs, mais tant que notre questionneur modifiera le nom de ses contrôles "sans raison apparente", il aura un code brouillon qui plantera inévitablement à un moment ou à un autre.

Il y a ici un exposé sur les conventions de nommage, pour ceux que cela intéresse.

Bonne journée
22/01/2007, 12h27
Pierre Fauconnier

Citation:

Envoyé par Ouskel'n'or

Je suis qu'un pauv' gars donc faillible, faut pas tout me casser, je suis assez fragile

On a pitié... On ne tapera pas :aie: :aie: :aie: Promis :D
22/01/2007, 12h35
Pierre Fauconnier

Citation:

Envoyé par CIBOOX

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

Dans le fichier que tu as donné sur le site, il n'y a pas de contrôle nommé combobox4, donc il y a forcément plantage.

Tu dois absolument vérifier les noms de tous tes contrôles et t'assurer que la suite n'est pas interrompue comme c'est le cas ici. Alors, tu pourras itérer sur les contrôles sans avoir de problèmes.

C'est à toi de jouer...

bonsoir
apres avoir verifie tout mes codes et autre libelles voici ou je bug

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    
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 = "Cbox" & NoColonne
    With GRILLE.Controls(NomCombo)
        .Text = Cells(1, NoColonne) ici en mode f8 
        .RowSource = Plage
    End With
End Sub

QUE FAIRE ?

22/01/2007, 20h05
SilkyRoad

bonsoir

Citation:

QUE FAIRE ?

Si tu as toujours le message d'erreur:

Citation:

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

Vérifie de nouveau le nom des ComboBox ... (Cbox1 ...)

bonne soirée
michel
22/01/2007, 20h18
CIBOOX

OUI faisant F8 avec le curseur de la souris

Code:

With GRILLE.Controls(NomCombo)

alors nomcombo=cbox1 :P en fin il prend la bonne appelation mais j'ai encore le meme message d'erreur.:aie:
22/01/2007, 20h31
ouskel'n'or
Essaie ça
Code:

1 2 3 4 5 Set LeCombo = GRILLE.Controls(NomCombo) With LeCombo .Text = Cells(1, NoColonne).value 'j'ai ajouté ça .RowSource = Plage End With
Tu dis
A+

PS - Il me semble que j'ai déjà eu ce pb dans l'utilisation directe de Controls(...) Tu es dans quelle version (scuse si tu l'a déjà dit)
23/01/2007, 11h07
CIBOOX

merci mais avec le nouveau code ça deconne je revois tous mes codes.....;)
24/01/2007, 12h26
CIBOOX

Desole Pour La Faute D Ecriture

MERCI A TOUS POUR VOTRE AIDE

mon probleme est résolu !!!!!!!
la faille c'etait que j' avais ecris cbox01 au lieu de cbox1 dans ma formule :oops: :oops:

maintenante je tape que en minuscule :mouarf: :mouarf: :mouarf:
24/01/2007, 12h53
AlainTech

Citation:

Envoyé par CIBOOX

maintenante je tape que en minuscule :mouarf: :mouarf: :mouarf:

J'espère que tu as compris qu'il faut nommer tes variables (Dim) et contrôles avec, au moins, une majuscule pour "voir" si ce que tu tapes est correct quand tu y fais appel.

Fuseau horaire GMT +2. Il est actuellement 13h44.