Comment lancer une macro quand valeur d'une cellule non vide !!! (en boucle)

Pierrot93

XLDnaute Barbatruc

• 6 Mars 2012

• #2

Re : Comment lancer une macro quand valeur d'une cellule non vide !!! (en boucle)

Bonjour,

regarde ceci, à placer dans le module de la feuille concernée :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 6 Mars 2012

• #3

Re : Comment lancer une macro quand valeur d'une cellule non vide !!! (en boucle)

Salut eldiablo1974, le Forum

Si j'ai bien compris met ton code dans le module de ta feuille en procédure événementiel tel que:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
' TonCode
End Sub

A tester

Edition: Salut mon ami Pierrot🙂
Re Edition: Et effectivement s'assurer de la cible de la cellule ou de la plage de cellules et que celles ci ne soient pas vide 😱
Bonne Journée

 

Dernière édition: 6 Mars 2012

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Mars 2012

• #4

Re : Comment lancer une macro quand valeur d'une cellule non vide !!! (en boucle)

Re,

pour s'assurer également que la cellule ne soit pas vide :

Code:

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

Edition : Salut Dull🙂

 

Vote positif 0 Vote négatif

E

eldiablo1974

Guest

• 6 Mars 2012

• #5

Re : Comment lancer une macro quand valeur d'une cellule non vide !!! (en boucle)

Salut,

merci pour votre rapidité mais ca ne marche, je dois mal le faire !!!

Pouvez-vous m'expliquer ce qui rend automatique cette macro ?

Je dois écrire directement dans ma macro ça :

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

ou bien :

je dois créer une nouvelle macro qui appel l'autre macro :

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


et dois je enlever la ligne Sub Macro_le nom de ma macro

Cordialement

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Mars 2012

• #6

Re : Comment lancer une macro quand valeur d'une cellule non vide !!! (en boucle)

Re,

tu peux faire ceci :

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Not IsEmpty(Target) Then 
Nom_De_Ta_Macro ' ou bien le code complet sans déclaration de la "sub"
end If
End Sub

ta macro ne doit pas être "private" et le code donné placé dans le module de la feuille concernée => click droit sur l'onglet => visualiser le code....

 

Vote positif 0 Vote négatif

E

eldiablo1974

Guest

• 6 Mars 2012

• #7

Re : Comment lancer une macro quand valeur d'une cellule non vide !!! (en boucle)

Salut

merci !!!

Ça marche, mais je suis obligé de recliquer sur ma cellule pour que ma macro se lance ????

Je tape ma valeur dans la cellule, je tape entrée (rien ne se passe) et quand je clique a nouveau sur ma cellule la macro se lance.

Why ??


Cordialement

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Mars 2012

• #8

Re : Comment lancer une macro quand valeur d'une cellule non vide !!! (en boucle)

Re,

euh.. comprends pas trop, chez moi ce code est déclenché lorsque la cellule est modifiée par l'utilisateur.... mais nous peut être en pièce jointe un peit fichier reproduisant le problème....

 

Vote positif 0 Vote négatif

E

eldiablo1974

Guest

• 6 Mars 2012

• #9

Re : Comment lancer une macro quand valeur d'une cellule non vide !!! (en boucle)

Salut,


Voici mon fichier :

Documenter la cellule D10 feuille "saisie", Attention lance directement impression !!!!

Merci d'avance

 

Pièces jointes

• tableau etiquette2.xls

  254 KB · Affichages: 261

Vote positif 0 Vote négatif

E

eldiablo1974

Guest

• 6 Mars 2012

• #10

Re : Comment lancer une macro quand valeur d'une cellule non vide !!! (en boucle)

Salut,

Ok ça marche il fallait mettre en mode "change" dans l'onglet Worksheet !!!


Merci pour votre aide !!

 

Vote positif 0 Vote négatif