Si condition = vrai alors MACRO 1 sinon rien..... possible ?

Pierrot93

XLDnaute Barbatruc

• 2 Septembre 2011

• #2

Re : Si condition = vrai alors MACRO 1 sinon rien..... possible ?

Bonjour,

peut être ceci, avec les infos que tu nous donnes.. :

Code:

If Range("A1").Value = "x" Then Call macro1

bon après midi
@+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Septembre 2011

• #3

Re : Si condition = vrai alors MACRO 1 sinon rien..... possible ?

Bonjour
Une Sub du même projet VBA peut en effet s'exécuter simplent en mentionnant son nom.
Cordialement

 

Vote positif 0 Vote négatif

D

Daylight

XLDnaute Nouveau

• 2 Septembre 2011

• #4

Re : Si condition = vrai alors MACRO 1 sinon rien..... possible ?

Je m'excuse mais je ne sais pas comment intégrer ce code VBA à la cellule ! Il faudrait que j'apprenne, c'est sûr...
Te serait-il possible de m'indiquer la formule associée à ce code s'il te plaît ?

Par exemple, si A1 différent de rien alors Macro 1, sinon rien =SI(A1<>"";macro1;"")

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Septembre 2011

• #5

Re : Si condition = vrai alors MACRO 1 sinon rien..... possible ?

Une fonction personnalisée (c'est à dire une Function d'un module ordinaire) peut être invoquée dans une formule de cellule.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Septembre 2011

• #6

Re : Si condition = vrai alors MACRO 1 sinon rien..... possible ?

Re,

peut être ainsi :

Code:

If Not IsEmpty(Range("A1").Value) Then Call macro1

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 2 Septembre 2011

• #7

Re : Si condition = vrai alors MACRO 1 sinon rien..... possible ?

Bonjour

Tu ne peux pas appeler une sub à partir d'une cellule. Tu peux en revanche appeler une fonction que tu définis par macro.
Par exemple si tu as une fonction qui convertit les degrés celcius en centigrades tu peux écrire =celciuscentigrades(A1)
mais tu ne peux pas déclencher une macro avec une formule.
Tu peux en revanche écrire une macro événementielle : quand tu rentres une valeur dans la cellule, l'événement worksheet_change se déclenche. tu peux "intercepter" ce changement et tester par macro
si la valeur rentrée = 12 alors macro 1 sinon macro 3

 

Vote positif 0 Vote négatif

D

Daylight

XLDnaute Nouveau

• 2 Septembre 2011

• #8

Re : Si condition = vrai alors MACRO 1 sinon rien..... possible ?

Meci Pierrot, je comprends qu'on ne peut pas associer une macro à une cellule, mais qu'elle s'associe à la page, d'où le besoin de passer par le code VBA.

Alors voici en attaché un document exemple. Si par hasard tu voulais bien intégrer ton code à ma page pour que j'essaie ensuite de comprendre comment tu as fait, ça serait très aimable 🙂 )

 

Vote positif 0 Vote négatif

D

Daylight

XLDnaute Nouveau

• 2 Septembre 2011

• #9

Re : Si condition = vrai alors MACRO 1 sinon rien..... possible ?

Pardon ! Voici le document !

 

Pièces jointes

• Macro sous condition.xls

  15.5 KB · Affichages: 253

Vote positif 0 Vote négatif

D

Daylight

XLDnaute Nouveau

• 2 Septembre 2011

• #10

Re : Si condition = vrai alors MACRO 1 sinon rien..... possible ?

Misange à dit:

Bonjour

Tu ne peux pas appeler une sub à partir d'une cellule. Tu peux en revanche appeler une fonction que tu définis par macro.
Par exemple si tu as une fonction qui convertit les degrés celcius en centigrades tu peux écrire =celciuscentigrades(A1)
mais tu ne peux pas déclencher une macro avec une formule.
Tu peux en revanche écrire une macro événementielle : quand tu rentres une valeur dans la cellule, l'événement worksheet_change se déclenche. tu peux "intercepter" ce changement et tester par macro
si la valeur rentrée = 12 alors macro 1 sinon macro 3

Cliquez pour agrandir...

Merci beaucoup pour ton message Misange, ça m'intéresse beaucoup ce que tu dis, seulement pour créer cette macro évènementielle relève du langage VBA, n'est-ce pas ? Malheureusement je n'ai pas de connaissance dans ce langage...

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Septembre 2011

• #11

Re : Si condition = vrai alors MACRO 1 sinon rien..... possible ?

Dans ce genre

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value <> "" Then Me.[A2].Value = Target.Value
End Sub

À mettre dans le module de la feuille.
À+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Septembre 2011

• #12

Re : Si condition = vrai alors MACRO 1 sinon rien..... possible ?

Re,

essaye ceci, procédure événementielle, se déclenche lors d'une modif effectuée sur la feuille :

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Not IsEmpty(Target) Then Range("A2") = Target
End Sub

A placer dans le module de la feuille => click droit sur l'onglet => visualiser le code => et tu colles...

 

Vote positif 0 Vote négatif

D

Daylight

XLDnaute Nouveau

• 2 Septembre 2011

• #13

Re : Si condition = vrai alors MACRO 1 sinon rien..... possible ?

Nous y sommes presque 😀 Merci bcp Dranreb et Pierrot, ça marche très bien, seulement le hic c'est que là vous avez créé la macro dans votre code si je comprends bien, hors dans le document que j'ai joins, la Macro1 existe déjà ! J'aimerais donc que vous me montriez comment appeler cette macro 1 à travers votre code VBA !

Car dans mon document à moi, la macro est beaucoup plus complexe que ça, c'est pour cette raison que je souhaiterai savoir comment l'appeler !

Merci beaucoup pour votre aide !

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Septembre 2011

• #14

Re : Si condition = vrai alors MACRO 1 sinon rien..... possible ?

et bien invoquer son nom au lieu d'affecter une valeur de cellule à une autre, comme déja indiqué !

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value <> "" Then Macro1
End Sub

À+

Attention danger, je rectifie:

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value <> "" Then
   Application.EnableEvents = False
   Macro1
   Application.EnableEvents = True
   End If
End Sub

À+

 

Dernière édition: 2 Septembre 2011

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 2 Septembre 2011

• #15

Re : Si condition = vrai alors MACRO 1 sinon rien..... possible ?

Daylight à dit:

Merci beaucoup pour ton message Misange, ça m'intéresse beaucoup ce que tu dis, seulement pour créer cette macro évènementielle relève du langage VBA, n'est-ce pas ? Malheureusement je n'ai pas de connaissance dans ce langage...

Cliquez pour agrandir...

Regarde la réponse de Dranreb
Oui il faut un peu de VBA pour faire ça. C'est pas si compliqué que ça en a l'air et l'enregistreur de macro t'aide bien souvent
quelques pages pour comprendre le vocabulaire et les bases ici
Les macros Excel | www.excelabo.net

 

Vote positif 0 Vote négatif