Aide sur Userform

[doclefou]

Bonjour à tous,
J'ai découvert une fonctionnalité dans Excel que je souhaiterai exploiter afin de rendre plus conviviale la saisie d'information dans une des feuilles de mon fichier.

Je me suis documenté sur le net sur les Userforms mais ne comprennant pas rand à la programmation, je bloque et donc je viens sur ce forum afin de vous soliciter une fois de plus (quand on a trouvé une bonne "crémerie", on en change pas .

Je vous explique :

Mon fichier est composé de plusieurs feuilles ( je joins simplement 2 de ces feuilles, la taille de mon fichier étant d'environ 2 Mo, ceci expliquant cela) : une feuille base avec 2 listes, une nommée Année et une autre nommée types_matchs ; la seconde feuille est la saisie des matchs. A partir de là, je souhaite lancer un userform pour saisir les différentes informations. J'ai fait la structure du userform avec des zones de textes, des listes et des boutons.

Il y a des boutons "+" qui sont faits pour incrémenter des valeurs avant la fin de la saisie compléte du matchs. La valeur par défaut doit être 0 à chaque lancement du userform.
Un bouton "enregistrer" pour mettre à jour la feuille en elle-même. Une fois l'enregistrement, et après chaque lancement du userform, les informations doivent se mettre dans les lignes en-dessous de chaque ligne non vide.
Un bouton "annuler" qui doit fermer le userform sans enregistrer les informations.

Je pense que cela ne sera pas trop compliqué à mettre en place pour des experts .
Si ce n'est pas assez clair, je vous renseignerai le plus rapidement possible.

Merci de votre aide

test.zip

(91.13 Kio) Téléchargé 32 fois

[Captain_SOLO]

Bonjour Doclefou,

Je t'ai fait un ligne de commande sur le bouton "bouton_plusbuts" (c'est tout bête !) qui incrémente un par un (oui on peut le faire 2 par 2 si tu es un bon buteur !!!) dans la "zone-mesbuts". tu peux donc faire un copier-coller de la ligne.
Tu feras une ligne du genre mais à la place du + tu mets - bien sûr le même genre un bouton pour décrémenter "-" et tu copieras les lignes pour les autres champs "carton-jaune (mais tu es fair-play tu ne t'en serviras jamais du champs carton jaune !!)

Code: Tout sélectionner

Private Sub bouton_plusbuts_Click()
zone_mesbuts.Value = zone_mesbuts.Value + 1

End Sub

J'espère avoir apporté de l'eau à on moulin.
Bon courage.

Cordialement.
Captain SOLO

[doclefou]

Bonjour Captain_SOLO,

Merci de ta réponse, je viens de mettre en place dans mon fichier original et comme je n'en doutais pas, cela fonctionne bien. Effectivement à voir le code, c'était "tout bête" mais bon, comme je n'y comprends pas grand chose en programmation.

Maintenant, il ne reste plus que les boutons Enregistrer et annuler, et je ne doute pas non plus que cela soit tout bête...sauf pour moi

Encore merci Captain_SOLO

Doc

[Captain_SOLO]

Bonjour Doclefou,

Ne t'inquiète pas nous en sommes tous passés par là ... Mais je t'assure qu'à creuser VBA tu tireras beaucoup de satisfaction et de fierté.

N'hésite pas à me solliciter... Je ne te donnerai pas tout de go, toutes les clefs de tes PB car VBA est aussi un "monde" quil faut explorer, découvrir pas soi_même ! Sois curieux !
J'ai commencé en VBA avec un bouquin super bien fait... Je t'en donnerai les références plus tard (je ne l'ai pas sous le bras) tout le monde sur le réseau en profitera à l'occasion.

Amitiès.

Captain SOLO

[doclefou]

Bonjour à tous,

J'ai essayé de faire le bouton pour lancer le userform et espérant mettre à vide les différentes listes et à 0 les zone de textes. Voici le code :

Sub Bouton_Nouveau_Match_Club()
'
' Bouton_Nouveau_Match_Club Macro
' Macro pour ouvrir le formulaire de nouveau match de club
Sheets("Matchs_club").Rows(3).Select
Selection.Insert
With Form_Matchs_club
.liste_type.Text = "" 'mis à vide de la liste de choix année
.liste_année.Text = "" 'mis à vide de la liste de choix année
.zone_adversaire.Text = "" 'mis à vide de la zone adversaire
.zone_monscore.Text = "0" 'mis à 0 de la zone de mes scores
.zone_scoreadversaire.Text = "0" 'mis à 0 de la zone du score des adversaires
.zone_mesbuts.Text = "0" 'mis à 0 de la zone de mes buts
.zone_mespasses.Text = "0" 'mis à 0 de la zone de mes passes
.zone_mescartonsjaunes.Text = "0" 'mis à 0 de la zone de mes cartons jaunes
.zone_mescartonsrouges.Text = "0" 'mis à 0 de la zone mes cartons rouges
End With
Form_Matchs_Club.Show 'lance le formulaire
End Sub

Mais malheureusement, Excel me demande de débogguer car il y a un problème sur toutes les lignes. Donc je n'arrive pas à finir mon userform.

Si quelqu'un pouvait me donner les réponses à mes demandes, ça m'arrangerait énormement

Captain_SOLO : je suis prenneur pour ton bouquin sur le VBA.

Merci

Doc

[Mytå]

Salut le forum

Lers lignes suivantes vont dans le initialize de ton Userform

Code: Tout sélectionner


With Me
.liste_type.Text = "" 'mis à vide de la liste de choix année
.liste_année.Text = "" 'mis à vide de la liste de choix année
.zone_adversaire.Text = "" 'mis à vide de la zone adversaire
.zone_monscore.Text = "0" 'mis à 0 de la zone de mes scores
.zone_scoreadversaire.Text = "0" 'mis à 0 de la zone du score des adversaires
.zone_mesbuts.Text = "0" 'mis à 0 de la zone de mes buts
.zone_mespasses.Text = "0" 'mis à 0 de la zone de mes passes
.zone_mescartonsjaunes.Text = "0" 'mis à 0 de la zone de mes cartons jaunes
.zone_mescartonsrouges.Text = "0" 'mis à 0 de la zone mes cartons rouges
End With
 

Mytå

[Captain_SOLO]

Bonjour Doclefou,

Chose promise, chose due...
Je t'envoie les référence du bouquin pour être "à l'aise" avec VBA.
Excel 97 (cela date !) Visual basic - étape par étape de Microsoft Press.

Si j'ai 5 minutes, je regarde tes requêtes.

Captain SOLO

[doclefou]

Bonsoir à tous,

Merci Myta et Captain_SOLO pour vos réponses. Par contre Myta, voilà le code que j'ai tapé
Private Sub UserForm_Initialize()
With Me
.liste_type.Text = "" 'mis à vide de la liste de choix année
.liste_année.Text = "" 'mis à vide de la liste de choix année
.zone_adversaire.Text = "" 'mis à vide de la zone adversaire
.zone_monscore.Text = "0" 'mis à 0 de la zone de mes scores
.zone_scoreadversaire.Text = "0" 'mis à 0 de la zone du score des adversaires
.zone_mesbuts.Text = "0" 'mis à 0 de la zone de mes buts
.zone_mespasses.Text = "0" 'mis à 0 de la zone de mes passes
.zone_mescartonsjaunes.Text = "0" 'mis à 0 de la zone de mes cartons jaunes
.zone_mescartonsrouges.Text = "0" 'mis à 0 de la zone mes cartons rouges
End With
End Sub
Mais le problème est que je n'ai que la zone_monscore qui se met à 0, dans le reste, il n'y a rien.

Je ne comprends pas. Je vais chercher mais je ne pense pas y arriver...pour le moment.

Captain_SOLO,

Je vais essayer de trouver cet ouvrage de Microsoft et si possible pour la version 2003.

Merci de l'information.

Bon sinon, je me suis aperçu que lorsque j'appuie sur le bouton Annuler cela supprime tout ce qu'il y a dans la ligne de la feuille Excel. Le problème c'est que j'ai des formules.
Voilà le code que j'ai mis :
Private Sub bouton_annuler_Click()
Worksheets("matchs_club").Rows(3).Select
Selection.Delete
Unload Me
End Sub

Merci de votre aide

Doc

[Mytå]

Salut le forum

Ton fichier corrigé

DocLeFou.zip

(89.58 Kio) Téléchargé 51 fois

Mytå

[doclefou]

Bonjour à tous,

Merci Myta. C'est impeccable.
Est-ce que cela change quelque chose si je mets un bouton "+" au lieu d'un spin bouton ?
Dans une réponse précédente, tu me disais de mettre un certain code dans le initialize, pourquoi tu ne l'as pas fait ? C'est juste une question sans grande importance mais c'est pour comprendre la logique de programmation.

Dernière question, peut-on mettre des controles sur la saisie ? Par exemple, ne pouvoir saisir que des chiffres dans les zones mes buts, mes passes... et ne pas pouvoir enregistrer si toutes les zones ne sont pas renseignée.

J'espère ne pas abuser de votre gentillesse.

En tous cas, BRAVO pour m'avoir une fois de plus aidé et félicitations aux investigateurs de ce forum qui est un super site pour les "nuls" en Excel comme moi autant que pour les aguérris. Continuez comme ça

Bonne journée à tous.

Doc