lancer une macro sur modif de cellule

[Usine à gaz]

Bonjour à tous,
Je butte encore sur VBA.
Je souhaite que dans mon fichier joint, ma macri1 se lance automatiquement à chaque fois que l'une des cellules : C10:C30 est modifiée.
Evidemment, je ne sais comment faire.
Pourriez-vous m'aider ?
Je vous remercie par avance,
Amicalement,
Lionel,

 

[Staple1600]

Re : lancer une macro sur modif de cellule

Re


Dans ce cas, tu n'avais pas ajouté la suggestion de Dranreb
(ou alors tu n'a pas fait le bon copier/coller)

 

[Usine à gaz]

Re : lancer une macro sur modif de cellule

Bionjour JM,
Merci pour votre réponse.
J'ai essayé les deux codes mais rien n'y fait, il exécute tjrs la macro quand j'ajoute ou que je supprime une ligne.
Amicalement,
Lionel,

 

[Pierrot93]

Re : lancer une macro sur modif de cellule

Bonjour à tous

ce code fonctionne chez moi...

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Not Intersect(Target, Range("C10:C500")) Is Nothing Then
    Application.EnableEvents = False
    Macro1
    Application.EnableEvents = True
End If
End Sub

"macro1" n'est pas lancée en cas de suppression / insertion de ligne ....

bonne journée
@+

 

[Usine à gaz]

Re : lancer une macro sur modif de cellule

Bonsoir,
Vraiment curieux. J'ai vérifié et j'avais déjà recopié la même.
Je l'ai encore recopié à partir de la votre et...... toujours le même résultat.
Ce n'est pas très gênant mais pour la "beaut" du geste" cela aurait été mieux.
Un grand merci à vous tous,
Amicalement,
Lionel,

 

[Staple1600]

Re : lancer une macro sur modif de cellule

Bonsoir à tous

arthour973
Le code de ta macro est bien dans la Feuille et pas dans un module ?
(Pour vérifier: Clic-droit sur l'onglet, Visualiser le code -> C'est là que doit être ta macro)

Je te repose la question car tu n'as répondu à cette de Dranreb sur le même sujet
https://www.excel-downloads.com/threads/lancer-une-macro-sur-modif-de-cellule.175095/

 

[Usine à gaz]

Re : lancer une macro sur modif de cellule

Bonsoir JM,
Oui, la macro est bien dans la feuille > Visualiser le code > et la macro.
Mon fichier est un peut gros ( 300 ko ), je vous l'envoie.
Amicalement,
Lionel,

 

[Staple1600]

Re : lancer une macro sur modif de cellule

Re

Alors quand un fichier es trop gros, ne pas appelez le Capitaine Flamme, il est trop occupé à sauver les gens de Mégara.
mais plutôt lire le PsBis présent dans ce message
https://www.excel-downloads.com/thr...er-et-optimiser-mon-fichier-code-defi.174510/

Il suffit de bien faire un sort à ce que j'appelle des cochoncetés 😉

 

[Dranreb]

Re : lancer une macro sur modif de cellule

Bonjour.
Tout marche alors maintenant chez vous aussi je suppose.
Votre macro Présence pourrait s'écrire un peu plus court et plus rapide :

Sub Présence()
With Feuil1.Range("D10:AH500")
   .FormulaR1C1 = "=IF(OR(RC1="""",R7C=""sam"",R7C=""dim"",RC3>R8C),"""",""x"")"
   .Value = .Value
   End With
End Sub

Cordialement.

 

[Usine à gaz]

Re : lancer une macro sur modif de cellule

Bonsoir,
Malheureusement, chez moi, la macro se lance quand j'insère une ligne car ensuite je fais les actions suivantes :

- copier/coller de la ligne qui suit,
- effacer le contenu des colonnes A B et C ligne 10

je pense que c'est à cause de la cellule C10 qui se trouve ainsi modifée et qui fait partie de ma sélection dans cette macro (Target, Range("C10:C500"))

Est-il possible d'empêcher cela UNIQUEMENT à l'insertion d'une ligne ?

Merci d'avance de votre aide,
Amicalement,
Lionel,

 

[Dranreb]

Re : lancer une macro sur modif de cellule

Bonsoir.
Si vous faites souvent cette dernière manœuvre, vous pourriez écrire une macro qui la fait.
Pour que cela ne déclenche aucune exécution de procédure évènement, il suffirait de mettre Application.EnableEvents à False avant,
puis à True après.
Cordialement.

 

[Usine à gaz]

Re : lancer une macro sur modif de cellule

Bonjour à tous,
le code qui m'a été donné fonctionne très bien..... trop même, je le rappelle ci-dessous !

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Not Intersect(Target, Range("C10:C500")) Is Nothing Then
Application.EnableEvents = False
Présence
Application.EnableEvents = True
End If
End Sub

L'inconvénient, c'est qu'il s'active toujours à chaque ajout ou suppression de lignes ou à chaque exécution des autres macros lancées.

Il y a une solution pour empêcher cela ?

Merci de votre aide,
Amicalement,
Lionel,

 

[MJ13]

Re : lancer une macro sur modif de cellule

Bonjour à tous

L'inconvénient, c'est qu'il s'active toujours à chaque ajout ou suppression de lignes ou à chaque exécution des autres macros lancées.

Il y a une solution pour empêcher cela ?

C'est normal, puisqu'il s'agit d'une procédure sur un évènement (ici Worksheet_Change). Sinon, tu peux l'actionner sur un bouton en le lançant dans une macro d'un module classique.

 

[Usine à gaz]

Re : lancer une macro sur modif de cellule

Merci "Dranreb"
J'ai essayé mais je n'y arrive pas.
vous pouvez me dire o j'ajoute votre code ?
Merci d'avance,
Amicalement,
Lionel,

 

[Dranreb]

Re : lancer une macro sur modif de cellule

Je ne sais pas moi. À chaque fois qu'une modification de cellule est effectuée depuis une macro il est possible d'empêcher l'exécution de la Worksheet_Change qui s'en suivrait en mettant Application.EnableEvents = False devant.