Discussion :

[_flori_]

Bonjour à tous,

Mon soucis est le suivant (j'espère me faire bien comprendre)

J'aimerais exécuter une macro sous condition

Si la caption du bouton équivaut au donné de la colonne A de ma feuille1 alors elle effectuera mon premier code vba
sinon elle effectuera mon deuxième code vba

Exemple:
en colonne A j'ai des familles (Bières, Limonade, café, etc.)
dans les autres colonnes ses mes produits

Si je clic sur le bouton ou sa caption est bière alors elle effectue mon premier code
si la caption n'ai pas repris dans la colonne A alors elle effectue mon deuxième code

du style:
if commandbutton1.caption = Feuil1 Rang(A4:A10) alors premier code
else deuxième code

J'espère m'être fais bien comprendre

En vous remerciant

[mfoxy]

Hello,

Peut être en utilisant la fonction find de vba
Si la caption du commandbutton1 est trouve dans Colonne À alors...
Ajouter dans ton commandbutton et remplacer les msgbox par des appels à tes différentes macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Dim x As Range
Dim sCriteria as String
 
sCriteria= Commandbutton1.caption
 
Set x = Range("A1:A100").Find(sCriteria, , xlValues, xlWhole, , , False)
  If Not x Is Nothing Then
    MsgBox "trouvé en " & x.Address 
  Else
   MsgBox "n'existe pas..."
  End If

[anasecu]

Bonjour,

Essayes cette méthode par exemple si ton bouton est sur la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
With Sheets("Feuil1")
    If Application.IsNA(Application.Match(.CommandButton1.Caption, .Range("A:A"), 0)) Then
    ' deuxième code
    Else
    ' premier code
    End If
End With

[_flori_]

Bonjour mfoxy et anasecu,

Je tiens tous d’abord à vous remercier de votre temps pour mon souci.

Anasecu, mon bouton ce trouve dans un userform

Mfoxy, j’ai essayé ton code il ma l’aire de marché, mais je crois que je l’utilise mal. Le code ne marche que sur mon premier bouton et non sur les autres qui sont à la suite.

Je me permets de mettre ci-joint un exemple, en vous remerciant encore

https://www.cjoint.com/c/HDbs5XNAspy

[anasecu]

Bonjour,

Anasecu, mon bouton ce trouve dans un userform

Il suffit d'adapter comme ceci par exemple.

Cependant comme tu veux fonctionner avec de nombreux boutons, ce n'est pas la bonne formule.
Il te faut gérer avec un module de classe et tu n'auras qu'un seul code qui fonctionnera sur tous tes boutons.

[_flori_]

Bonjour Anasecu,

J’ai changé en ce que tu me proposé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton2_Click()
Dim x As Range
Dim sCriteria As String
 
sCriteria = CommandButton1.Caption
 
Set x = Sheets("Familles").Range("A1:A100").Find(sCriteria, , xlValues, xlWhole, , , False)
  If Not x Is Nothing Then
    UserForm2.Show
  Else
   TextBox1.Value = "eau"
  End If
End Sub

Par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CommandButton2_Click()
    If Application.IsNA(Application.Match(Me.CommandButton2.Caption, Sheets("Général").Range("A:A"), 0)) Then
        TextBox1.Value = "eau"
    Else
        UserForm2.Show
    End If
End Sub

Cependant, ça reste pareil

Je deviens fou mais vais continuer à chercher

Je te remercie

[_flori_]

Bonjour Anasecu,

J'ai trouvé ce qu'il n'allais pas

voila le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim x As Range
Dim sCriteria As String
sCriteria = CommandButton1.Caption
Set x = Sheets("Familles").Range("A1:A100").Find(sCriteria, , xlValues, xlWhole, , , False)
 
If Not x Is Nothing Then
UserForm1.Show
Else
TextBox1.Value = "Eau"
End If
End Sub

Je devais juste changer le nom de la caption commandbutton dans scritera
si bouton 1 alors sCriteria = CommandButton1.Caption
si bouton 2 alors sCriteria = CommandButton2.Caption

Est-ce que je peux abuser de ton temps

comme tu peux voir:
si la caption est dans l'onglet Familles, la macro ouvre un userform (pour ce code userform1)
si la caption n'est pas dans l'onglet familles, la macro écrit "Eau" dans mon textbox1

Ce que j'aimerais, si c'est possible
c'est qu'au lieu d'ouvrir l'userform1, elle ouvre l'userform qui conviens

Exemple
si la caption est Bière alors elle m'ouvre mon userform Bière
si la caption est Limonade alors elle m'ouvre mon userform Limonde
est non à chaque fois mon userform1

J'espère m'être fais bien comprendre

Je te remercie encore