lancer une macro a partir d'une valeur dans la cellule

Spitnolan08

XLDnaute Barbatruc

• 6 Octobre 2007

• #2

Re : lancer une macro a partir d'une valeur dans la cellule

Bonjour,

Avec, par exemple, une évènementielle du type :
Private Sub Worksheet_Change(ByVal Target As Range)
Fais une recherche sur le forum Excel, ça fourmille d'exemples.Et si tu n'y arrives pas, reviens.

Cordialement

 

Vote positif 0 Vote négatif

C

CoOkii_

XLDnaute Junior

• 16 Octobre 2007

• #3

Re : lancer une macro a partir d'une valeur dans la cellule

Bonjour, suite de mon sujet dsl j'ai du formater mon pc et donc perdre du temps et tt mes mots de passses mais bon je usis de retour!!!! lol

Bon j'ai suivi ton conseil mais je ne trouve pas exactement ce que je veux. comment je peuux donner l'ordre de l'execution d'une macro dans une macro ?
En fait dans mon code je voudrai que la macro s'execute apartir de la ligne B2 (ex ) et quel s'execute si le nombre ecrit dedans soit compris entre 0 et 1000 inclu . comment je peux ecrire ce code en y incluant une logique ?

svp je fais appel a votre aide a votre savoir

Merci

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 16 Octobre 2007

• #4

Re : lancer une macro a partir d'une valeur dans la cellule

Bonjour, Spit 🙂

Ne voyant pas spit, je me permets de repondre
Spit ayant donné la moitié de la reponse pour te permetre de chercher.....

Private Sub Worksheet_Change(ByVal Target As Range)
ceci et une interruption sur saisie de cellule qui permet, en fonction de la cellule ou de sa valeur, de faire ou faire ce que l'on veut

Target est le cellule
exemple :
target.address donne l'adresse de la cellule
target.value : sa valeur
target.row sa ligne
target.column sa colonne
et bien d'autre proprietés

donc

Quand tu fais une saisie dans une feuille, tu as la possiblite de toutcontroler et d'en faire ce que tu veux

exemple si en C3 je saisie OUI, je lance Macro_oui si je mets NON je lance macro_non

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
     if target.address = "$C$3" then
             if target.value = "OUI" then call macro_oui
             if target.value = "NON" then call macro_non
     end if
end sub

bonne soirée, en esperant avoir repondu à ta question

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 16 Octobre 2007

• #5

Re : lancer une macro a partir d'une valeur dans la cellule

Re,
Bonsoir Wilfried,

Ne voyant pas spit, je me permets de repondre

Cliquez pour agrandir...

Tu as bien fait🙂

Mais les renseignements fournis par Cookii sont bien maigres...

Cordialement

 

Vote positif 0 Vote négatif

C

CoOkii_

XLDnaute Junior

• 19 Octobre 2007

• #6

Re : lancer une macro a partir d'une valeur dans la cellule

Coucou le forum
merci Wilfried et spit
oui oui çà correspond a ce que je veux
mais j'ai encore quelques souci de syntaxe surrt en ligne 5
voici le code vous devriez mieux comprendre ce que je veux
pour donne run plage de valeur entre 0 et 1000 es ce bien çà?

Sub ExeMacro()
' Exemacro Macro
'
'adresse de cellule
Sheets("feuil2").Activate
If target.Address = "$J$5" Then
'plage de donnée dans j5
If target.Value = "0:1000" Then Call Unprotect
If target.Value = "annulé" Then Call Annulé
End If
End Sub

merci

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 19 Octobre 2007

• #7

Re : lancer une macro a partir d'une valeur dans la cellule

Re,

Etant de passage rapide je suis tombé sur ton post.
Donc une réponse rapide non testée.
Tu ne peux utiliser Target sans qu'il soit défini en appel de procédure
Je mettrais plutôt

Code:

 Sub ExeMacro(Target as Range)
' Exemacro Macro
'adresse de cellule
Sheets("feuil2").Activate
If target.Address = "$J$5" Then
'plage de donnée dans  j5
If target.Value > 0 and Target.value<1000 Then Call Unprotect
If target.Value = "annulé" Then Call Annulé
End If
End Sub

Mais il est toujours plus difficile de répondre sur un code sorti de son contexte.

Cordialement

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 19 Octobre 2007

• #8

Re : lancer une macro a partir d'une valeur dans la cellule

Re,

Ou plus simplement :

Code:

 Sub ExeMacro()
' Exemacro Macro
'adresse de cellule
Sheets("feuil2").Activate
If Activecell.Address = "$J$5" Then
'plage de donnée dans  j5
If Activecell.Value > 0 and Activecell.value<1000 Then Call Unprotect
If Activecell.Value = "annulé" Then Call Annulé
End If
End Sub

Cordialement

 

Dernière édition: 6 Novembre 2007

Vote positif 0 Vote négatif

C

CoOkii_

XLDnaute Junior

• 24 Octobre 2007

• #9

Re : lancer une macro a partir d'une valeur dans la cellule

Merci pour la reponse je pense que celà va fonctionner a merveille me reste a regler des problemes avec cpp .... je pense que c la drenier efois que je fais travailler cpp et excel en même temps :x ^^ merci a tous

 

Vote positif 0 Vote négatif

C

CoOkii_

XLDnaute Junior

• 3 Novembre 2007

• #10

Re : lancer une macro a partir d'une valeur dans la cellule

la formule fonctionne pas a merveille
je fais changer la cellule a partir d'un programme annexe est il vraiment possile que la macro s'execute au travers de la lecrture cellule,?

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 6 Novembre 2007

• #11

Re : lancer une macro a partir d'une valeur dans la cellule

Re,

la formule fonctionne pas a merveille

Cliquez pour agrandir...

Quelle formule ? S'il s'agit du code, il faudrait être un peu plus précis... Et un (ou 2 ) fichier exemple pourrait être utile si la suite ne répond pas à tes attentes.

je fais changer la cellule a partir d'un programme annexe est il vraiment possile que la macro s'execute au travers de la lecrture cellule,?

Cliquez pour agrandir...

Si j'ai bien compris une solution consiste à :
1/ Placer le code du post de 11h20 dans un module standard du fichier de destination
2/ Placer le code suivant dans le module de la feuille contenant la valeur modifiée par macro J5

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
ExeMacro
End Sub

Nota : J'ai corrigé le second code que je t'ai donné : j'étais vraiment passé trop vite et avais oublié de remplacer certaines parties...

Cordialement

 

Vote positif 0 Vote négatif

C

CoOkii_

XLDnaute Junior

• 6 Novembre 2007

• #12

Re : lancer une macro a partir d'une valeur dans la cellule

Bonsoir
çà fait bein deux heure que je travaille sur le probleme!! voici le code

Private Sub Worksheet_Change(ByVal Target As Range)
ExeMacro
' Exemacro Macro
'adresse de cellule
Sheets("feuil2").Activate
If ActiveCell.Address = "$J$5" Then
'plage de donnée dans j5
If ActiveCell.Value > 0 And ActiveCell.Value < 1000 Then Call ValExecute
If ActiveCell.Value = "annulé" Then Call Annulé
End If
End Sub


ce code me pose un enorme probleme
le programme conçu a base de cppp viens lire des donnée dans les cases exel et celon la valeur revoyer a la case j5 page 2 excell doit appliquer x ou y macro mais voila le souci le programme cpp fonctionne avec deux fenetres quant j'ecris ce code là qui marche bien en debeuguage çà me plante cpp pkoi!!!!!!!! comment puis je faire pour faire executer des macros sans que çà me foute le bordel !!!
Merci

 

Vote positif 0 Vote négatif

C

CoOkii_

XLDnaute Junior

• 6 Novembre 2007

• #13

Re : lancer une macro a partir d'une valeur dans la cellule

autre alternative je pense que je peux faire sous excell temps +1 pour palier a mon probleme je vais chercher dans ce sens . merci a tous je vous donnerez des nouvelles

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 6 Novembre 2007

• #14

Re : lancer une macro a partir d'une valeur dans la cellule

Re,

C'est quoi cpp ????????
Le code que je t'ai indiqué ne dépend de rien d'autre que de la valeur de J5...
A moins que cpp ne modifies J5 en permanence avec une fréquence très élevée😕

Cordialement

 

Vote positif 0 Vote négatif

C

CoOkii_

XLDnaute Junior

• 6 Novembre 2007

• #15

Re : lancer une macro a partir d'une valeur dans la cellule

cpp = c++

oui en effet il modifit la case j 5 quant il veut :/ çà altere la lecture de excell quant çà passe de case virge a case pleine ??

 

Vote positif 0 Vote négatif