Discussion :

[ric009]

Bonjour,
je débute en VBA et je voudrais savoir comment lancé une macro à partir d'une condition présente dans le fichier excel.
Par exemple : si le nom est "alex" alors activer macro1

j'ai essayé un petit truc quand même :

Code :

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

1
2
3
4
sub macro ()
If (B4) = "alex" Then
macro1
End sub

et bien sur la macro ne démarre pas si je mets le nom "alex" ^^

Quelqu'un peu m'aider ?

merci d'avance !

[casefayere]

Bonjour,

modifies entre ces deux choix :

Code :

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

1
2
3
4
sub macro ()
If [B4] = "alex" Then
macro1
End sub

ou

Code :

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

1
2
3
4
sub macro ()
If range("B4") = "alex" Then
macro1
End sub

[fllyann]

Bonjour,

d'après ce que j'ai comprit :

Code :

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

1
2
3
4
5
Sub macro()
If Range("B4").Value = "alex" Then
    ThisWorkbook.macro1
End If
End Sub

ta macro "macro", veux-tu qu'elle fonctionne comme une tâche de fond et si tu écris alex alors ta macro 1 est lancé ?

[ric009]

Merci pour vos réponses alors j'ai fait comme m' a dit fllyann mais cela marque :
Erreur de compilation :
Membre de méthode ou de données introuvable

et concernant casefayere, excel me dit qu'il manquait "end if" donc je l'ai rajouté mais rien ne se passe quand je change les conditions ...

[fllyann]

Il faut remplacer le ThisWorkbook par "là" où se trouve ta macro1

userform1/2..., Feuil1/2...

bon courrage

[ric009]

euh comme j'ai dit je débute donc pourrais tu me faire un exemple concret s'il te plait?

[fllyann]

Désolé, quand tu crées une macro,

Elles est soit dans Microsoft Excel Object ou Feuilles ou Modules

dans le premier tu as toutes tes feuilles ( Feuil1 ou2 ou..) de classeur ainsi que ThisWorkBook.

Dans la seconde tu as tous tes UserForm ( formulaires ) que tu peux créer

et dans les modules tu as Module1,2.... c'est là que tu retrouves les macros que tu as enregistré avec l'enregistreur de macro

Voilà désolé pour les puristes qui liront ça

[ric009]

donc je dois faire :

Code :

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

1
2
3
4
5
Sub macro()
If Range("B4").Value = "alex" Then
useform2, Feuil2.Macro1
End If
End Sub

??

[gFZT82]

Bonjour ric009,

Copie ces 3 procédures et lance macro1.
Cela va t'aider à comprendre le fonctionnement.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub macro1()
    If Range("B4") = "alex" Then
        macro2
    Else
        macro3
    End If
End Sub
Sub macro2()
    MsgBox "Ca marche ! "
End Sub
Sub macro3()
    MsgBox "... ou pas!"
End Sub

Cordialement.

[casefayere]

Désolé pour le End if oublié, sinon je pensai que, quand tu as écris "macro1", c'était pour faire un raccourci et que tu remplacais ce terme par ta macro proprement dite.

et bien sur la macro ne démarre pas si je mets le nom "alex" ^^

là je pense qu'i faut passer par l'évènement "change" de ta feuille, exemple si ton code est pour feuil1 :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
'si les données sont en A
If Target.Column = 1 Then
    If Range("B4") = "alex" Then
        ta macro
    End If
End If
End Sub

[ric009]

casefayere sa a presque fonctionné !
sa marque :

Erreur d'exécution '9' :
L'indice n'appartient pas à la sélection

...

[casefayere]

fais un pas à pas et dis-moi sur quelle ligne tu as ce message

[ric009]

le message n'apparait plus, c'étais une erreur de feuille ! mais maintenant plus de message d'erreur mais quand je rentre "alex" rien ne se passe...

[casefayere]

Je viens de voir une erreur de ma part :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
'si les données sont en A
If Target.Column = 2 Then
    If cells(4,target.column) = "alex" Then
        ta macro
    End If
End If
End Sub

[ric009]

Oui j'avais trouvé l'erreur et donc ca marche !!! merci pour ta patience ^^

Merci à tous et bonne journée !!

[ric009]

Bonjour à tous !
j'ai de nouveau un problème avec excel ...
cette fois je ne veux plus contenter d'une seul macro... je cherche à faire ceci :
si nom = alex alors macro1
si age > 18 alors macro2
si taille < ou = 178 macro3

quel serait la fonction à utiliser dans ce cas ?

[casefayere]

Bonjour,
tu reprends la meme macro en ajoutant en fonction de tes besoins :

Vite fait

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target = "alex" Then 'si nom est en colonne 2
         ta macro
Elseif target.column = 3 and Target > 18 Then 'si age est en colonne 3
        ta macro
ElseIf target.column = 4 and Target<= 178 Then 'si taille est en colonne 4
        ta macro
End If
End Sub

[ric009]

merci pour ta réponse !
mais la fonction target.column est pour les colonnes
alors que moi le information se trouve dans la même colonne ...
il n'existe pas une fonction propre aux lignes ?

[casefayere]

si

Code :

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

Target.row

[ric009]

Merci de ta réponse voila ce que sa donne !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
'si les données sont en A
If Target.Row = 7 Then
    If Range("B7") = "Alex" Then
        Macro1
        MsgBox ("OK")
        ElseIf Range("B7") = "n.a" Then
        MsgBox ("désactivé")
ElseIf Target.Row = 5 Then
    If Range("B5") > "18" Then
        Macro2
        MsgBox ("OK2")
    End If
    End If
End If
End Sub

tous se passe bien concernant la partie "Alex" les deux cas fonctionne mais concernant l'age rien ne se passe ... j'ai mis différente valeur à plusieurs reprises mais rien s'active même pas le MsgBox ...