Macro excel Résolu

Question

Bonjour à tous.
Je suis débutant dans le VBA. Le forum m'a déja apporté pas mal de réponse.
Mais là je bute un peu sur un problème.

En gros j'ai créé un UserForm avec plusieurs CheckBox à l'interieur, à chaque que l'une d'entre elle est cliqué je modifie une variable. Une foix que je clique sur Ok je voudrai que en fonction des variables qui ont était modifié écrire dans une cellule puis celles du dessous etc pour chacune des CheckBox cliqué.
 
J'èspère avoir était suffisament clair je vous met mon code en dessous si cela peut vous aider.
Merci d'avance!

Private Sub CheckBox2_Click()
 If CheckBox2.Value = True Then a = "1"
End Sub

Private Sub CommandButton2_Click()
If a = "1" Then Range("C10") = "8"

Unload Cabine
End Sub

Fxbrg · Answer

Euh... pas sûr de bien comprendre :-)

D'abord si je comprends bien, tu mets du code derrière tes checkbox, puis tu valides ton formulaire sur le bouton OK. Tu devrais essayer de récupérer la valeur des checkbox sur ton bouton OK, ce serait plus condensé... (mais je sais c'est pas le problème! lol)

Ceci dit, en faisant comme ça, tu pourrais écrire le résultat dans une cellule dans le code de ton OK...

Si le problème c'est d'écrire dans "la cellule d'en dessous", utiliser Activesheet.Usedrange.Rows.count pour savoir quelle est la dernière ligne utilisée dans ta feuille...

Donne plus de détails, ou encore mieux, un petit fichier exemple...

:-)

Grobibi34 · Answer

Mmmmmh bon alors attends je vais essayer la fonction que tu m'as donné. Mais j'ai bien l'impression que tu as compris mon problème :-)

Grobibi34 · Answer

Bon je n'ai pas réussi à utiliser ta fonction :-(
Je suis réelement débutant en VBA.
Je vais donc tenté de m'expliqué clairement.
Dans ma UserForm j'ai beaucoup de CheckBox disons que je vais en cocher 4 totalement au hasard.
Je voudrai ecrire sur la même colonne mais une ligne différentes une lettre ou un mot (j'aviserai après) un texte correspondant à chacune de mes CheckBox (disons: Checkbox1 : 5,  Checkbox2 : 10, Checkbox3 :15, Checkbox4 : 20, Checkbox5 : 25).
Donc en admettant que je clic les Checkbox1, Checkbox3 et Checkbox5 je voudrai écrire en B5:5, B6:15, B7:25.

C'est plus compréhensif ?

Fxbrg · Answer

Ok... :-)
 Je comprends ce que tu veux faire mais j'ai un RDV là tout de suite, je te fais ce soir, promis juré!!

Juste une question : là où tu veux écrire le résultat de tes checkbox, est-ce que c'est la fin de la feuille ou non?

:-)

Grobibi34 · Answer

Non du tout, n'importe où sur la feuille. Pas de soucis merci par avance !! ^^

Fxbrg · Answer

Juste vite fait :

derrière le bouton OK, pour écrire sur la première cellule vide la colonne B : 

Activesheet.cells(range("B1").end(xldown).Row+1,2)=Checkox5.value
Activesheet.cells(range("B1").end(xldown).Row+1,2)=Checkox3.value
etc..

Attention : il ne faut pas que dans ta colonne B tu aies des cellules vides...

:-)

Grobibi34 · Answer

Bon... je n'y arrive toujours pas avec se que tu m'as donné...
J'ai de plus en plus l'impression que je suis trop nul en VB. :'(

Grobibi34 · Answer

J'ai mis l'intégralité de mon classeur https://www.cjoint.com/?ddqYhGY4BB
Il y a d'autre fonction en route je n'ai pas fais le tris.
J'ai une course à faire donc je ne pourrais pas répondre avant se soir.
Merci pour toute l'aide que vous pourrez m'apporter.

Fxbrg · Answer

Salut :-)

http://www.cijoint.fr/cjlink.php?file=cj200803/cij10944369936251.xls

Ton fichier est très "pollué", des macros qui se marchent un peu sur les pieds...lol, du coup j'ai isolé le formulaire cabine, qui s'ouvre à l'ouverture du fichier ci-dessus. Tu coches autant de cases que tu veux, puis OK, ce qui va avoir pour résultat de t'écrire toutes les légendes des cases cochées, ainsi que leur numéro d'ordre dans le formulaire (pour le fun :-)

La procédure, vu le grand nombre de checkbox, est de parcourir la liste des contrôles des formulaires, puis, si il s'agit d'une checkbox, de mettre son caption (mais ça pourrait être n'importe quoi d'autre) dans la première ligne non utilisée...

Dis-voir si ça fait ce que tu veux :-)

Grobibi34 · Answer

Bonjour tout le monde. Merci beaucoup Fxbrg c'est exactement ce que je voulais!!! Merci à vous aussi Le Pingou pour vous être intéressé à mes problème^^.

Un dernier petit détail Fxbrg, j'aimerai pouvoir choisir la première cellule  où je voudrai écrire je suppose qu'il faut écrire quelquechose en dehors de la boucle mais je ne vois pas exactement quoi et où...

Cordialement

Fxbrg · Answer

Cool :-)

Bon courage!

:-)

Grobibi34 · Answer

Bon c'est bon tout est réglé merci pour ton aide!!

Je referai apelle à toi si jamais je rencontre encore un problème insurmontable (pour moi).

Bonne journée ;-)

Fxbrg · Answer

Pas de problème, que des solutions, c'est bien connu!! lol

Fxbrg · Answer

Salut :-)

Si tu n'as pas de ligne en dessous de ce que tu as écrit avec ton premier formulaire, redéfinis r au début de ta deuxième procédure comme ça : 

r=Activesheet.Usedrange.rows.count

:-)

Grobibi34 · Answer

Heu non pb, il ecrit tout en bas.... je te refais parvenir mon classeur entier. https://www.cjoint.com/?dekxAWLEUK
En gros je veu que toutes mes userform s'enchaine de la même façon et écrive le tout sur la même colonne.

Fxbrg · Answer

Avant d'ouvrir ton classeur... j'avais déjà vu dans ton premier exemple, le fait de mettre des couleurs etc en choisissant l'intégralité de la feuille avec Cells, tu joues sur toutes les cellules, du coup quand tu cherches la dernière cellule de la feuille, effectivement, elle est tout en bas... Vire tes mises en formes en VBA (pourquoi ne pas les mettre en direct?)..

Je regarde ton classeur :-)

Grobibi34 · Answer

Je pensai que c'était la seul façon pour pourvoir initialiser toute ma page. Mais je vois bien que c'est sa le pb...

Fxbrg · Answer

Pourquoi tu fais ces mises en forme? (en plus, elles se font sur TOUT le classeur...) Ici (XL2003, ça me plante XL quand je fais une sélection complète de la feuille 1, c'est du lourd... lol

:-)

Fxbrg · Answer

Oki...

1/ pour la mise en forme, pourquoi ne pas mettre ta feuille tout en blanc "en dur"? Tu peux ensuite faire un code qui passe en rouge sur clic et blanc sur double clic...De cette façon, c'est juste la mise en forme et non pas une affectation à toutes les cellules de la feuille...Pour info j'ai été obligé de virer ta feuille 1 et d'en recréer une vierge pour arrêter de planter... (pourtant j'ai un gros système...)

2/ pour le code des formulaires. Le problème vient en partie des cellules vides en début (tu as décidé d'écrire à la ligne 4..)  Fais ta déclaration de variable directement dans le workbook, au dessus de ta procédure d'ouverture de formulaire. Donc, laisse le code du formulaire cabine, ça marche. Et sur les autres formulaires, initialise la variable r en faisant une recherche de la dernière cellule de la colonne E, comme ça : 

Private Sub CommandButton2_Click()
Dim Ctrl As Control
r = Range("e4").End(xlDown).Row + 1
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "CheckBox" Then
    If Ctrl.Value = True Then
        ActiveSheet.Cells(r, 5) = Ctrl.Caption
        r = r + 1
    End If
End If
Next Ctrl
Set Ctrl = Nothing
Unload Decret
Elingage.Show
End Sub

Attention cette méthode ne fonctionne que si les lignes sont à la suite (sans cellule vide)

:-)

Fxbrg · Answer

1/ plutôt que tout sélectionner puis appliquer la couleur blanche en VBA... Commence par virer ta feuille 1 puis recrées là pour la nettoyer (sinon tu vas trimbaler 10500 lignes...) Ensuite directement dans la feuille, tu sélectionnes toutes les cellules puis tu mets en blanc... Ca n'affecte que les cellules "utiles".

2/ pour ton code qui passe la cellule en rouge à la sélection et en blanc au double clique...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Interior.ColorIndex = 0
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Interior.ColorIndex = 3
End Sub

Par exemple, mais il faudrait savoir le pourquoi du comment :-)

Fxbrg · Answer

No souçaille... lol

Pour supprimer ta feuil 1... si tu as du code dessus, commence par le copier quelque part ailleurs (bloc note)

puis clic droit sur l'onglet de ta feuille en bas et supprimer, il va t'avertir, tu confirmes.
 
Ensuite tu fais Insertion/Feuille, au besoin tu la renommes en feuille 1 si tu veux... Ici c'est ce que j'ai fait..

:-)

Grobibi34 · Answer

Bon sa marche niquel!! j'ai gardé mes qq lignes pour mettre ma page en blanc. Tien je te montre se que sa donne:
https://www.cjoint.com/?denTxomhH8 C'est pile poil se que je voulais faire.
Je pense donc que l'on peut clore le sujet.
J'éditerai un nouveau sujet pour la suite des évenements.
Merci beaucoup pour ton aide Fxbrg!! :-)

Fxbrg · Answer

C cool, si ça marche comme tu veux :-)

A bientôt peut-être!

:-)

Macro excel - Page 2

Discussions similaires

Newsletters