Un userform utilisable pour chaque onglet...

[Raziel abel]

Bonsoir à tous les XLDNautes et autres visiteurs du soir,

j'ai commencé à me mettre sur les userforms et je commence donc à avoir des difficultés de compréhension et j'éspere qu'avec votre aide et surtout vos explications continuez mon apprentissage et améliorer mes connaissances dans le but de faciliter et securiser certaines taches.

Dans le combobox1, dans la propriété Rowsource je n'arrive pas à mettre ma plage de cellule AO3:A01095 et j'ai le message suivant qui apparait/
"impossible de définir la propriété Row Source. Valeur de propriété non valide."

Alors que si je met AO1:AO1095, ce message n'apparait pas, mais dans ma liste je n'ai rien.

Pouvez vous m'expliquez ce que j'ai oublié de faire ou ce que j'ai mal compris.

A vous lire!

En attendant, voici le fichier en cliquant sur le lien suivant:

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Raziel abel]

Re : Un userform utilisable pour chaque onglet...

Bonjour eriiiiic et Dull,

J'ai suivi vos conseil mais rien ne semble fonctionner. peut - être dois je vous mettre un lien avec les nouvelles lignes ajouter aux codes.

A vous lire et merci!

Ci joint le lien:

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Dull]

Re : Un userform utilisable pour chaque onglet...

Re Raziel abel, le Fil

Comme te l'a dit eriiiic la feuil1 n'existe pas et
Private Sub UserForm1_Initialize() il faut retirer le 1

Dans l'initialisation de l'USF

Private Sub UserForm_Initialize()
UserForm1.TextBox2.Text = "14:15"
Sheets("01").[G4] = Format(TimeValue(UserForm1.TextBox2.Text), "hh:mm")
End Sub

Bonne Journée

 

[eriiic]

Re : Un userform utilisable pour chaque onglet...

Bonjour,

Tu ne l'avais pas écris assez gros dull ;-)
Et raziel, es-tu sûr que c'est vraiment dans cet evènement que tu veux mettre G4 à jour ?
En général on met un bouton ok et c'est lors du clic sur ce bouton qu'on met à jour la feuille avec la saisie effectuée...

eric

 

[Raziel abel]

Re : Un userform utilisable pour chaque onglet...

Bonjour,

Tu ne l'avais pas écris assez gros dull ;-)
Et raziel, es-tu sûr que c'est vraiment dans cet evènement que tu veux mettre G4 à jour ?
En général on met un bouton ok et c'est lors du clic sur ce bouton qu'on met à jour la feuille avec la saisie effectuée...

eric

Bonjour le forum, Eriiiic et Dull,

En fait, c'est un des premiers Userform que je fais, et donc je ne connais pas tous dans ce domaine, j'avance petit à petit grâce à vous en fait. Avec le changement de code cela fontionne. C'est vrai que pour mettre G4 à jour, il serait intéressant d'avoir le bouton OK mais cela donnerait quoi en code😕?

Merci et à vous (re)lire!

 

[Raziel abel]

Re : Un userform utilisable pour chaque onglet...

Bonsoir à tous!

Excusez moi d'insister sur mon petit probléme. Mais comment faire la procédure du bouton qui lorsqu'elle est validé met à jour la cellule de l'heure?

En vous remerciant et à vous lire.

Bonne soirée!

 

[eriiic]

Re : Un userform utilisable pour chaque onglet...

Bonsoir,

et bien c'est le même code, maios mis sur le bouton.
Dessine ton bouton, double-clic dessus et :
Sheets("01").[G4] = Format(TimeValue(UserForm1.TextBox2.Text), "hh:mm")
entre autres...
Et mets aussi un bouton 'annuler' pour pouvoir quitter sans modif
eric

 

[Raziel abel]

Re : Un userform utilisable pour chaque onglet...

Bonjour,

Je dois donc effacer Private sub userform1_initialize() et mettre à la place Private sub command.._click(), c'est bien ça? Car ça bug si je fais sa....

j'ai enlevé le textbox pour mettre à la place le bouton. Où bien j'ai surement mal compris.

A te relire.


Private Sub CommandButton1_Click()
Sheets("01").[G4] = Format(TimeValue(UserForm1.TextBox2.Text), "hh:mm")
End Sub

Private Sub UserForm1_Initialize()
UserForm1.TextBox2.Text = "14:15"
Worksheets("Feuil1").[G4] = Format(TimeValue(UserForm1.TextBox2.Text), "hh:mm")
End Sub

 

[eriiic]

Re : Un userform utilisable pour chaque onglet...

Bonjour,

j'ai enlevé le textbox pour mettre à la place le bouton. Où bien j'ai surement mal compris.
oui tu as mal compris.
Si tu enlèves ton textbox tu n'as plus de valeur pour remplir ta feuille...
Si tu fais un formulaire c'est pour avoir une grille de saisie avec des textbox, des listes déroulantes etc
Tu peux aussi tester pour accepter ou non une saisie
Et lorsque l'utilisateur cliques sur ok tu récupères ces valeurs pour mettre à jour ta feuille.
Sais-tu vraiment ce que tu veux faire ? Ca n'a pas l'air bien clair tout ça...

eric

PS : et puis tiens compte des réponses et arrete de mettre 1 à UserForm1_Initialize().
Le _Initialize sert à 'pré-remplir' les saisies, peut-être est-il inutile, toi seul le sais.

 

[Raziel abel]

Re : Un userform utilisable pour chaque onglet...

Bonjour eriiiic,

EDIT:

C'est OK!!!! merci bien!

j'ai bien avancé avec tes explications, le Initialize dans le nom n'est vraiment pas adapté et chaque fois que le userform apparait, cela efface pour mettre la variable "14:15" que j'ai repris d'un code.
J'ai juste à enlever Initialize? c'est bien çà.

Ps:

j'ai bien enlevé le 1 dans Userform....😛

A te relire!