Sélection combobox appelle macro

[Marc_du_78]

Bonjour et joyeuses Pâques à tous et à toutes,

Comment procéder pour que la sélection d'un combobox (Rowsource) puisse lancer une macro lors de la validation.
J'essaie perso de trouver une soluce au post Définir Zone impression suivant valeur Combobox
Lien supprimé
Avec mes remerciements.

 

[deudecos]

Salut Marc, le forum,

Si j'ai bien compris, tu fais un bouton droit sur ton combobox (S'il est sur la feuille, si il fait partie d'un userform, il faut double cliquer dessus pour obtenir le meme resultat) et tu choisis 'voir le code'.
De la tu place ton code comme suit.

Private Sub ComboBox1_Change()
'Places ici ta Macro
End Sub


Si je n'ai pas compris la question, desole d'avance.

Bonne journee

Olivier

 

[Marc_du_78]

Bonjour Olivier,
J'essaie de suite et te tiens au courant
Merci à toi

 

[Marc_du_78]

re,
Pas très concluant de mon côté.
Comme je souhaite apprendre, peux-tu me dire ou je me plante.
Merci [file name=ImpressionSelon_20060416085810.zip size=43242]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ImpressionSelon_20060416085810.zip[/file]

 

[pierrejean]

bonjour Marc, deuxdecos

je suis allé chercher le fichier d'origine

voila pour l'impression d'une semaine

pour le mois je regarderais si tu n'arrive pas à adapter

bon dimanche Pascal [file name=IMPRESSION_20060416112903.zip size=27324]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/IMPRESSION_20060416112903.zip[/file]

 

[_Thierry]

Bonjour Cher Deudecos, Bonjour Marc et PierreJean, le Forum

Tout d'abord Joyeuses Pâques !

Je pense que PierreJean, tu n'as pas pensé à gérer le fait que notre ami Marc scinde ces semaines en Multi-Feuilles (une Feuille pas Mois)...

Si je cherche par exemple semaine 22, Boum ! Erreur d'Exécution '91' !... Pourtant la semaine 22 existe bien dans la Feuille 'MAI'... De plus il y aura bien les Douzes feuilles en Fonction des Mois et de leur 52 semaines respectives.

Je propose ceci :

Sub CmdImpHeb_Click()
Dim WS As Worksheet
Dim WeekRange As Range, Cell As Range
Dim WeekPrintArea As Range
Dim WeekSearch As String

WeekSearch = Me.Semaine

If WeekSearch = '' Then Exit Sub

For Each WS In ThisWorkbook.Worksheets
    Set WeekRange = WS.Range('A1:A100')
        For Each Cell In WeekRange
            If Cell.Text = WeekSearch Then
                Unload Me
                Set WeekPrintArea = Range(Cell.Offset(-2, 0), Cell.Offset(18, 22))
                    With WS
                        .Activate
                        .PageSetup.PrintArea = WeekPrintArea.Address
                        .PrintPreview 'Pour tester sans gaspillage
                        '.PrintOut 'Pour Imprimer sur activePrinter
                    End With
            End If
        Next Cell
Next WS
 
End Sub

Bon Dimanche
[ol]@+Thierry[/ol]

 

[pierrejean]

re

Thierry ayant pris le relais

je me retire

avec neanmoins la satisfaction d'avoir fait avancer le schmilblic

Joyeuses Paques

 

[_Thierry]

Re Bonjour PierreJean, le Fil

Mais non, bien au contraire tu ne dois pas te retirer, c'est le but de ce merveilleux Forum, chacun peut aider et proposer sa façon de voir les choses, c'est ça qui est génial, connaître d'autres méthodes, découvrir des nouvelles astuces, améliorer ses connaissances, on peut toujours évoluer, moi j'ai énormément appris ici depuis maintenant plus de 4 ans.

Et comme ça chacun fait avancer le Schmilbic !

Bon Dimanche de Pâques
[ol]@+Thierry[/ol]

 

[deudecos]

Salut tout le monde,

Sans avoir la meme satisfaction que Pierre-Jean, Je me retire a mon tour, mais pas sans saluer amicalement notre ami Thierry (a quand la prochaine assemblee ? )

Bonne journee

Olivier

 

[Marc_du_78]

Mes salutations Pascales à tous,
A l'origine, ce fil concerne Guigui

Lien supprimé

que j'avais pris pensant parvenir à résoudre son problème, hélas sans succès. Tu n'as donc pas la berlue Thierry. Je souhaitais juste aprofondir mes faibles connaissances, et je vous remercie tous de vos interventions. Mais perso, après 72 heures sans dormir, je vais au lit.
Je reprendrai ce fil demain si je peux.
En vous remerciant tous pour vos interventions qui demande pour moi beaucoup d'explications. Mais chaque chose en son temps, je suis 'claqué'.
Bon dimanche Pascal à tous et merci encore.

 

[pierrejean]

re

Thierry m'ayant invité à rester

j'ais tenté l'integration de sa macro

cela semble fonctionner

mais je l'invite tout de même a y jeter son oeil de pro afin d'y deceler les failles que je n'aurais pas manqué d'y laisser (à noter que suite a certaine leçon j'ais soigné l'indentation) [file name=IMPRESSION1.zip size=26824]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/IMPRESSION1.zip[/file]

 

[Marc_du_78]

Bonsoir Thierry, Pierrejean, Olivier,

Même si à l'origine je n'étais pas le demandeur, je tiens à vous remercier tous de votre participation à la résolution de la demande de Guigui. Il est clair que le jour ou je serai capable de faire un tel travail à l'identique n'est pas encore pour demain. Mais ce qui est certain, c'est que grâce à des gens aussi sympathique que vous je vais de l'avant. J'ai beaucoup à faire pour essayer de comprendre le maximun de ce code, mais ça, c'est pour la semaine prochaine.
Je vous souhaite à tous une très bonne fin de Week end Pascal.

 

[pierrejean]

re

derniere mouture

avec commentaires pour la macro d'impression [file name=IMPRESSION1_20060416184757.zip size=29249]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/IMPRESSION1_20060416184757.zip[/file]

 

[Marc_du_78]

Bonjour à tous, pierrejean, Thierry, le Forum,
Mes remerciements pour les commentaires pierrejean que j'apprécie énormément.
Mes remerciements à toi et Thierry pour l'aide apporté et concernant Guigui que je salue au passage
Bon lundi de Pâques.

 

[Pierrot93]

Bonjour Marc,

essaies le code ci dessous, il peut peu être répondre à ta question si je l ai bien comprise !!!

Private Sub ComboBox1_Change()
If ComboBox1.Value = X Then
nom de la macro que tu veux lancer
End If
End Sub