Case à cocher Combinaison

[ldemaulde]

Bonsoir,

Je souhaiterais dans un classeur excel pouvoir lancer des macros qui soient différentes en fonction du nombre de cases à cocher qui sont cochées ou non.

Je m'explique :

Admettons que j'ai 5 cases à cocher. Je voudrais par exemple lancer une macro si la première case est cochée; lancer une autre macro si la deuxième case est cochée; ainsi jusqu'à 5. Ca pour l'instant je pense pouvoir le faire.

Là où ça se complique c'est quand je veux lancer une macro quand j'ai par exemple la case 1 et la case 3 de cocher; ou la case 2 et la case 4; ainsi de suite.

En bref j'aimerai pouvoir lancer une macro différente à chaque combinaison possible de cases cochées.

J'aimerai aussi, si possible, créer un bouton "Fusion" qui me permette de lancer la macro une fois les cases sélectionnées.

Merci beaucoup de votre aide.

Je suis débutant en VBA

 

[jmd2]

Re : Case à cocher Combinaison

hello

cherche un tuto sur :

Select Case ton_Expression

 

[ldemaulde]

Re : Case à cocher Combinaison

Bonsoir,

Je suis déjà allé voir du côté de selectcase mais je n'ai pas trouvé mon bonheur.

Si quelqu'un a une idée ?

Merci

 

[ldemaulde]

Re : Case à cocher Combinaison

J'ai un bout de code mais qui ne fonctionne pas.

Peut ^tre que je vais dans la mauvaise direction ?


Sub Macro2()
'

If Sheets("Feuil1").DrawingObjects("Check Box 5").Value = 1 Then

Range("A1").Select
ActiveCell.FormulaR1C1 = "EXEMPLE 1"
Range("A2").Select

Else

If Sheets("Feuil1").DrawingObjects("Check Box 6").Value = 1 Then
Range("A1").Select
ActiveCell.FormulaR1C1 = "EXEMPLE 2"
Range("A2").Select

Else

If (Sheets("Feuil1").DrawingObjects("Check Box 5").Value = 1) And (Sheets("Feuil1").DrawingObjects("Check Box 6").Value = 1) Then


Range("A1").Select
ActiveCell.FormulaR1C1 = "EXEMPLE 3"
Range("A2").Select

End If
End If
End If
End Sub

 

[Staple1600]

Re : Case à cocher Combinaison

Bonsoir


Tu peux poster ton code VBA, stp, afin qu'on y voit plus clair?


Je rejoins jmd2, Select Case devrait t'aider .

 

[ldemaulde]

Re : Case à cocher Combinaison

Bonsoir,

J'ai juste réalisé le bout de code qui est au dessus, c'est juste un exemple du principe que je veux.

Je veux bien essayer avec Select case mais comment je fait ??

Merci

 

[Staple1600]

Re : Case à cocher Combinaison

Bosoir


Voici un exemple:

avec deux case à cocher dans la Feuil1 (de la barre Outils /Formulaire)

Sub test()
'merci à la page Wiki de MichelXLD
Dim nomObj As String
nomObj = "Case à cocher "
For i = 1 To 2
Select Case i
Case 1
If Sheets("Feuil1").Shapes(nomObj & i).ControlFormat.Value = xlOn Then
MsgBox "1"
End If
Case 2
If Sheets("Feuil1").Shapes(nomObj & i).ControlFormat.Value = xlOn Then
MsgBox "2"
End If
End Select
Next i
End Sub

 

[ldemaulde]

Re : Case à cocher Combinaison

Merci de ta réponse mais je n'y arrive toujours pas.(Hé oui je ne suis pas très doué).

Je te mets le code que j'ai fais avec ton exemple, mais ça plante :

Sub test()
'merci à la page Wiki de MichelXLD
Dim nomObj As String
nomObj = "Case à cocher "
For i = 1 To 2
Select Case i
Case 1
If Sheets("Feuil1").DrawingObjects("Check Box 5" & i).Value = 1 Then
Range("A1").Select
ActiveCell.FormulaR1C1 = "TEST 1"
Range("A2").Select
End If
Case 2
If Sheets("Feuil1").DrawingObjects("Check Box 6" & i).Value = 1 Then
Range("A2").Select
ActiveCell.FormulaR1C1 = "TEST 2"
Range("A3").Select
End If
Case 3
If Sheets("Feuil1").DrawingObjects("Check Box 5").Value = 1 And Sheets("Feuil1").DrawingObjects("Check Box 6").Value = 1 Then
Range("A3").Select
ActiveCell.FormulaR1C1 = "TEST 3"
Range("A4").Select
End Select
Next i
End Sub


Merci

 

[Staple1600]

Re : Case à cocher Combinaison

RE


Relis bien mon précédent message

avec deux case à cocher dans la Feuil1 (de la barre Outils /Formulaire)

voir pièce jointe.

 

[ldemaulde]

Re : Case à cocher Combinaison

Merci pour le fichier. Je vais regarder de plus près. Ton fichier fonctionne bien mais je n'arrive pas à l'adapter à mes besoins. C'est à dire avec mes propres cases à cocher et mes propres instruction à lancer en fonction des cases cochées.

J'y réfléchis et je reviens...
Merci

 

[Excel_lent]

Re : Case à cocher Combinaison

Bonjour à tous et re aux autres,

Encore de vraies fausses cases à cocher dont la programmation de l'utilisation est celle de simples cellules (quelle soient nerveuses ou pas).