Aide sur Userform

[Mytå]

Re le forum

Oui tu peux remplacer les Spin Button, mais fait un test de saisie sur le moins (-)

Code: Tout sélectionner

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

Private Sub bouton_moinsbuts_Click()
zone_mesbuts.Value = zone_mesbuts.Value - 1
If zone_mesbuts.Value-1 < 0 Then  zone_mesbuts.Value = 0
End Sub

Pour la vérification des champs

Code: Tout sélectionner

If Not IsNumeric(MyVar) Then ... 'Action si du texte saisie
If ComboBox1.ListIndex=-1 Then ... 'Action si ComboBox sans saisie
If TextBox1 = "" Then ... 'Action si TextBox sans saisie

Pour le code dans le Initialize tu peux le rajouter c'est un oubli de ma part
Cela permet d'éviter des champs vide (comme les buts) à l'ouverture

Mytå

[doclefou]

Bonsoir à tous,

Merci Myta, une fois de plus j'applaudie des 2 mains ton travail.

J'ai repris le formulaire que tu as fait pour l'intégrer dans mon fichier d'origine mais il y a une chose que je ne comprends pas. Quand je clique sur le bouton enrigistrer, les données ne se placent pas à la ligne 3 mais sur les lignes suivantes. Quand j'efface ces données entrées et que j'enregistre mon fichier les données se place à la ligne suivante et ainsi de suite si je refais ces manipulations.

Je viens de m'apercevoir que cela fait la même chose sur le fichier que tu as modifié.

Est-ce qu'il y a une explication ? Si oui, est-ce qu'il y a une solution ?

Merci

Doc

[Mytå]

Re le forum

Modifie le début du code du bouton Enregistrer

Code: Tout sélectionner

Private Sub bouton_enregistrer_Click()
Dim Ligne As Integer

Ligne = 3
Rows(Ligne).Insert

Cells(Ligne, 1) = liste_année
'......

Mytå

[doclefou]

Bonsoir à tous,

Merci Myta de te pencher sur mon problème. Tu vas peut-être penser que je suis enquiquinant (pour ne pas être grossier) mais cela ne va pas.

Voilà mon code :
Private Sub bouton_enregistrer_Click()
Dim Ligne As Integer
Ligne = 3
Rows(Ligne).Insert
'Ligne = [A65536].End(xlUp).Row + 1 'recherche la dernière ligne nn vide
Cells(Ligne, 1) = liste_année
Cells(Ligne, 2) = liste_type
Cells(Ligne, 3) = zone_adversaire
Cells(Ligne, 5) = zone_mesbuts
Cells(Ligne, 6) = zone_mespasses
Cells(Ligne, 7) = zone_mescartonsjaunes
Cells(Ligne, = zone_mescartonsrouges
Cells(Ligne, 9) = zone_monscore
Cells(Ligne, 11) = zone_scoreadversaire
Unload Me
End Sub

Pourquoi ça ne va pas ?
Premièrement : lors de l'insertion, les formules qui sont dans les cellules des colonnes D, J, N, O & P (ces 3 dernières sont masquées) sont supprimés. Ce qui est très embêtant car elles sont nécessaires dans mes autres feuilles.
Deuxièment : A chaque enregistrement des informations, elles se placent les une au-dessus des autres (enrgistrement 1 L3 ; enristremnt 2 L3 et engristrement 1 L4...) Imaginons qu'il y ait un tri, il faudrait que ça soit par la date puis ?? Non je ne vois pas par quoi le tri pourrait être fait. Il faut que les enregistrements se placent les uns en dessous des autres.

Ce code là (Ligne = [A65536].End(xlUp).Row + 1) a l'air intéressant mais il y a un problème (voir mon commentaire précédent). Alors est-ce qu'il y a un "compteur" qu'il faudrait réinitialiser ? Ou autre ??

J'espère qu'il y a une solution à la réalisation de mon formulaire sinon cela va me bloquer pour d'autres fichiers Excel que je souhaite modifier et rendre plus interactif et attractif.

Désolé de vous dérranger pour ce qui pourrait être futil mais pour moi c'est important.

Merci de votre patience et de votre aide.

Doc

-- Jeu Mar 18, 2010 10:13 pm --

Ah ! Petite chose supplémantaire. Si vous souhaitez mon fichier complet, je veux bien vous le faire parvenir mais je ne sais pas si je peux le poster ici car il fait 1,78 Mo. Si ce n'est pas possible par ce forum, communiquez moi un autre moyen (adresse mail, serveur FTP...) je me ferai un plaisir de vous l'envoyer.

Doc

[doclefou]

Bonsoir à tous,

Bon je vous que personne ne réagit à ce sujet.

Je remercie tous ceux qui ont pu se pencher sur mon problème.

Bonne soirée

Doc

[Mytå]

Salut le forum

Bon je vous que personne ne réagit à ce sujet.

Tu as bien relit ta demande, car moi je ne vois pas ce que tu veux faire.

Travaille avec le fichier que tu as fourni en début des ficelles.

Ajoute ton code à problème, alors on vera ou tu veux en venir.

Mytå

[doclefou]

Bonsoir à tous,

Myta : Je pensais que c'était clair mais à priori ce n'est pas la cas. Sur le dernier code que tu m'as donné, j'ai mes formules qui ne sont pas reprises ou qui sont effacées.
Voici le code :
Ligne = 3
Rows(Ligne).Insert
Ces formules sont en colonnes D, J, N, O & P avec N,O & P qui sont masquées.

Et l'autre chose qui ne va pas, c'est que chaque nouvel enregistrement se place avant chaque ancien enregistrement. C'est un problème ou du moins je m'en fais un problème car les enregistrements doivent être les une en dessous des autres (c'est une question de chronologie).

Voilà ce qui me pose comme souci avec ce dernier code.

Ensuite, je ne comprends pas pourquoi j'ai un autre problème avec l'enregistrement des données.
Voici ce que je disais il y a quelques jours de cela :

Bonsoir à tous,
J'ai repris le formulaire que tu as fait pour l'intégrer dans mon fichier d'origine mais il y a une chose que je ne comprends pas. Quand je clique sur le bouton enrigistrer, les données ne se placent pas à la ligne 3 mais sur les lignes suivantes. Quand j'efface ces données entrées et que j'enregistre mon fichier les données se place à la ligne suivante et ainsi de suite si je refais ces manipulations.

Je viens de m'apercevoir que cela fait la même chose sur le fichier que tu as modifié.

Est-ce qu'il y a une explication ? Si oui, est-ce qu'il y a une solution ?

Merci

Doc

Alors je m'interrogeais s'il y avait une sorte de compteur interne. C'est peut-être dû aux formules dans les colonnes D, J, N, O & P. Si c'est le cas, je pense pouvoir les déplacer.

J'espère être plus clair, si ce n'est pas le cas, faites le moi savoir parce ce n'est pas en restant sans réponse que je peux le savoir.

Dans tous les cas, merci Myta pour tout ce que tu as fait et je ne veux pas être chi... avec mon problème car le fichier que je monte n'est fait que mon simple plaisir et pour me faire découvrir Excel. Le fichier que je monte est pour PES2009 en mode carrière...si cela parle à quelqu'un. Le fichier fait 2 Mo donc je ne pense pas pouvoir le mettre sur le forum mais si quelqu'un veut le voir, il faudrait me communiquer une autre façon (adresse mail ou serveur FTP)

Cordialement,

Doc