OVH Cloud OVH Cloud

ouvrir un formulaire par un bouton

14 réponses
Avatar
Claire
Bonjour,
Grâce a excelabo j'ai créé mon formulaire, cependant j'ai un petit problème
lorsque je clic sur le bouton de commande qui doit ouvrir mon formulaire,
j'ai un message d'erreur: "erreur d'exécution '13': Incompatibilité de type"
je cherche donc a déboguer mon programme:
Private Sub CommandButton1_Click()
UsfPersonne.Show
End Sub
c'est la seconde ligne qui ne fonctionne pas. Je ne comprends pas. Aidez moi
s'il vous plait
Merci d'avance

4 réponses

1 2
Avatar
Claire
Rebonjour Jacques
J'ai modifier la zone une première fois en utilisant une plage et ensuite de
("H1:H50") mais le message d'erreur persiste dans les deux cas "erreur type
13"
Je suis désolé je ne comprends vraiment pas pourquoi ca ne fonctionne pas.
Merci d'avance


Bonjour virtuelnada (préférais Claire, mais enfin ...)

ComboBox1.RowSource = Sheets("personne").Range("H:H").Address

Tu as interêt à limiter la zone :

ComboBox1.RowSource = Sheets("personne").Range("H1:H4").Address

à adapter, ou à nommer la plage :

ComboBox1.RowSource = Sheets("personne").Range("MaPlage").Address

Re bonjour et merci d'avoir répondu aussi vite
en effet c'est bien la commande initialize qui pose problème:
Private Sub UserForm_Initialize()
ComboBox1.RowSource = Sheets("personne").Range("H:H").Value
End Sub
En fait ici je remplis une liste déroulante avec toute une colonne de ma
feuille personne l'ai-je mal fait? Le problème est sur la deuxième ligne et
c'est toujours une erreur de type 13
merci d'avance



Bonjour Claire,

Oups,

F8, Shift+F8


Bonjour Claire,

C'est probablement dans UserForm_Initialize que se trouve le problème,
traces avec Shift+F8 pour voir jusqu'à quelle ligne tu vas.



Bonjour, Grâce a excelabo j'ai créé mon formulaire, cependant j'ai
un petit problème lorsque je clic sur le bouton de commande qui doit
ouvrir mon formulaire, j'ai un message d'erreur: "erreur d'exécution
'13': Incompatibilité de type"
je cherche donc a déboguer mon programme:
Private Sub CommandButton1_Click()
UsfPersonne.Show
End Sub
c'est la seconde ligne qui ne fonctionne pas. Je ne comprends pas.
Aidez moi s'il vous plait
Merci d'avance






--
Cordialement,

Jacques.





--
Cordialement,

Jacques.







Avatar
Jacques93
Bonjour Claire :-)

As tu bien remplacé 'Value' par 'Address' ?

Sheets("personne").Range("H:H").Value
^^^^^
Ne renvoie pas une adresse.

Rebonjour Jacques
J'ai modifier la zone une première fois en utilisant une plage et ensuite de
("H1:H50") mais le message d'erreur persiste dans les deux cas "erreur type
13"
Je suis désolé je ne comprends vraiment pas pourquoi ca ne fonctionne pas.
Merci d'avance



Bonjour virtuelnada (préférais Claire, mais enfin ...)

ComboBox1.RowSource = Sheets("personne").Range("H:H").Address

Tu as interêt à limiter la zone :

ComboBox1.RowSource = Sheets("personne").Range("H1:H4").Address

à adapter, ou à nommer la plage :

ComboBox1.RowSource = Sheets("personne").Range("MaPlage").Address


Re bonjour et merci d'avoir répondu aussi vite
en effet c'est bien la commande initialize qui pose problème:
Private Sub UserForm_Initialize()
ComboBox1.RowSource = Sheets("personne").Range("H:H").Value
End Sub
En fait ici je remplis une liste déroulante avec toute une colonne de ma
feuille personne l'ai-je mal fait? Le problème est sur la deuxième ligne et
c'est toujours une erreur de type 13
merci d'avance




Bonjour Claire,

Oups,

F8, Shift+F8



Bonjour Claire,

C'est probablement dans UserForm_Initialize que se trouve le problème,
traces avec Shift+F8 pour voir jusqu'à quelle ligne tu vas.




Bonjour, Grâce a excelabo j'ai créé mon formulaire, cependant j'ai
un petit problème lorsque je clic sur le bouton de commande qui doit
ouvrir mon formulaire, j'ai un message d'erreur: "erreur d'exécution
'13': Incompatibilité de type"
je cherche donc a déboguer mon programme:
Private Sub CommandButton1_Click()
UsfPersonne.Show
End Sub
c'est la seconde ligne qui ne fonctionne pas. Je ne comprends pas.
Aidez moi s'il vous plait
Merci d'avance




--

Cordialement,

Jacques.





--
Cordialement,

Jacques.





--
Cordialement,

Jacques.






Avatar
Claire
re boujour Jacques
Merci merci merci merci
ca marche!!!!
merci beaucoup


Bonjour Claire :-)

As tu bien remplacé 'Value' par 'Address' ?

Sheets("personne").Range("H:H").Value
^^^^^
Ne renvoie pas une adresse.

Rebonjour Jacques
J'ai modifier la zone une première fois en utilisant une plage et ensuite de
("H1:H50") mais le message d'erreur persiste dans les deux cas "erreur type
13"
Je suis désolé je ne comprends vraiment pas pourquoi ca ne fonctionne pas.
Merci d'avance



Bonjour virtuelnada (préférais Claire, mais enfin ...)

ComboBox1.RowSource = Sheets("personne").Range("H:H").Address

Tu as interêt à limiter la zone :

ComboBox1.RowSource = Sheets("personne").Range("H1:H4").Address

à adapter, ou à nommer la plage :

ComboBox1.RowSource = Sheets("personne").Range("MaPlage").Address


Re bonjour et merci d'avoir répondu aussi vite
en effet c'est bien la commande initialize qui pose problème:
Private Sub UserForm_Initialize()
ComboBox1.RowSource = Sheets("personne").Range("H:H").Value
End Sub
En fait ici je remplis une liste déroulante avec toute une colonne de ma
feuille personne l'ai-je mal fait? Le problème est sur la deuxième ligne et
c'est toujours une erreur de type 13
merci d'avance




Bonjour Claire,

Oups,

F8, Shift+F8



Bonjour Claire,

C'est probablement dans UserForm_Initialize que se trouve le problème,
traces avec Shift+F8 pour voir jusqu'à quelle ligne tu vas.




Bonjour, Grâce a excelabo j'ai créé mon formulaire, cependant j'ai
un petit problème lorsque je clic sur le bouton de commande qui doit
ouvrir mon formulaire, j'ai un message d'erreur: "erreur d'exécution
'13': Incompatibilité de type"
je cherche donc a déboguer mon programme:
Private Sub CommandButton1_Click()
UsfPersonne.Show
End Sub
c'est la seconde ligne qui ne fonctionne pas. Je ne comprends pas.
Aidez moi s'il vous plait
Merci d'avance




--

Cordialement,

Jacques.





--
Cordialement,

Jacques.





--
Cordialement,

Jacques.









Avatar
jps
moi, je ne disais plus rien car un userform qui se nomme "personne", c'est
pratiquement normal qu'il soit inexistant...
jps

"Claire" a écrit dans le message de
news:
re boujour Jacques
Merci merci merci merci
ca marche!!!!
merci beaucoup


Bonjour Claire :-)

As tu bien remplacé 'Value' par 'Address' ?

Sheets("personne").Range("H:H").Value
^^^^^
Ne renvoie pas une adresse.

Rebonjour Jacques
J'ai modifier la zone une première fois en utilisant une plage et
ensuite de



("H1:H50") mais le message d'erreur persiste dans les deux cas "erreur
type



13"
Je suis désolé je ne comprends vraiment pas pourquoi ca ne fonctionne
pas.



Merci d'avance



Bonjour virtuelnada (préférais Claire, mais enfin ...)

ComboBox1.RowSource = Sheets("personne").Range("H:H").Address

Tu as interêt à limiter la zone :

ComboBox1.RowSource = Sheets("personne").Range("H1:H4").Address

à adapter, ou à nommer la plage :

ComboBox1.RowSource = Sheets("personne").Range("MaPlage").Address


Re bonjour et merci d'avoir répondu aussi vite
en effet c'est bien la commande initialize qui pose problème:
Private Sub UserForm_Initialize()
ComboBox1.RowSource = Sheets("personne").Range("H:H").Value
End Sub
En fait ici je remplis une liste déroulante avec toute une colonne de
ma





feuille personne l'ai-je mal fait? Le problème est sur la deuxième
ligne et





c'est toujours une erreur de type 13
merci d'avance




Bonjour Claire,

Oups,

F8, Shift+F8



Bonjour Claire,

C'est probablement dans UserForm_Initialize que se trouve le
problème,







traces avec Shift+F8 pour voir jusqu'à quelle ligne tu vas.




Bonjour, Grâce a excelabo j'ai créé mon formulaire, cependant
j'ai








un petit problème lorsque je clic sur le bouton de commande qui
doit








ouvrir mon formulaire, j'ai un message d'erreur: "erreur
d'exécution








'13': Incompatibilité de type"
je cherche donc a déboguer mon programme:
Private Sub CommandButton1_Click()
UsfPersonne.Show
End Sub
c'est la seconde ligne qui ne fonctionne pas. Je ne comprends pas.
Aidez moi s'il vous plait
Merci d'avance




--

Cordialement,

Jacques.





--
Cordialement,

Jacques.





--
Cordialement,

Jacques.











1 2