impossible de démarrer macro sous condition

Version imprimable

Voir 40 message(s) de cette discussion en une page

03/05/2011, 14h27
ric009

impossible de démarrer macro sous condition
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:

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 !

Bonjour,

modifies entre ces deux choix :

Code:

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

Code:

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

03/05/2011, 14h33
fllyann
Bonjour,

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

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é ?
03/05/2011, 14h46
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 ...
03/05/2011, 14h50
fllyann

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

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

bon courrage
03/05/2011, 14h54
ric009

euh comme j'ai dit je débute donc pourrais tu me faire un exemple concret s'il te plait?
03/05/2011, 15h04
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

donc je dois faire :

Code:

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

Bonjour ric009,

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

Code:

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.

03/05/2011, 15h13
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.

Citation:

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:

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
03/05/2011, 15h23
ric009

casefayere sa a presque fonctionné !
sa marque :

Citation:

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

...
03/05/2011, 15h24
casefayere

fais un pas à pas et dis-moi sur quelle ligne tu as ce message
03/05/2011, 15h28
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...

Je viens de voir une erreur de ma part :

Code:

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

03/05/2011, 15h36
ric009

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

Merci à tous et bonne journée !!
05/05/2011, 08h25
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 ?

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

Vite fait

Code:

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

05/05/2011, 09h52
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 ?
05/05/2011, 10h06
casefayere

si

Code:

Target.row

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

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 ...

Voir 40 message(s) de cette discussion en une page