lancement automatique d'une macro Fermé

Question

Bonjour, 

J'ai réussi, contre toute attente, à créer les macros que je désirais. Mais je n'arrive pas à les faire exécuter automatiquement...

J'ai une macro en feuille "Results" et plusieurs macros en feuille "Correct Answers", je souhaite qu'elle s'exécutent toutes dès qu'une modification/saisie a été effectuée en feuille "SM_Extract".

J'ai essayé avec Worksheet_Change mais ça ne donne rien (ou des messages d'erreur...)

Merci d'avance de votre aide

Mike-31 · Answer

Bonjour,

déjà il faut savoir si ta macro fonctionne parfaitement avec un déclenchement  exemple par bouton

ensuite si ta macro est sur un module dans Worksheet_Change il faut appeler la macro
Call nom de la macro 
 
des codes spécifiques créé dans un module ne fonctionne pas de la même façon  sur une Sheet exemple ActiveCell dans un module  peu être Target dans Worksheet

gurumiam · Answer

effectivement elle ne marche pas avec un bouton... pour créer les macros j'ai simplement ouvert Visual Basic et entrer les codes correspondants dans chaque onglet (je ne suis pas sûre que ça réponde à ta question ?) en voulant vérifier les façons d'activer la macro, je me suis rendu compte qu'il manque un élément... peut-être que tu peux aussi m'aider à la corriger: je souhaite masquer des lignes en fonction de la valeur d'une cellule d'une autre feuille, ma macro répond à cette demande, mais une fois que des lignes ont été masquées elle ne les ré-affiche pas alors que la cellule de référence est remplie. J'ai pensé ajouter une macro pour faire l'inverse, mais je me demande si je ne peux pas simplement modifier celle-ci: Sub masquer_ligne_vide() Dim Cel As Range Dim C As Byte For C = 6 To 34 For Each Cel In Range(Cells(C, 6), Cells(C, 34)) If Cel.Value <> "" And Cel.Value <> 0 Then GoTo suite1 Next Cel Rows(C).Hidden = True suite1: Next C For C = 6 To 34 For Each Cel In Range(Cells(C, 6), Cells(C, 34)) If Cel.Value <> "" And Cel.Value <> 0 Then GoTo suite2 Next Cel Rows(C).Hidden = True suite2: Next C End Sub

Mike-31 · Answer

Re:

quel est la plage de déclenchement de ta macro si la valeur de la cellule change pour limiter la zone de déclenchement

gurumiam · Answer

ah je me mélange, désolée tu auras remarqué que je n'y connais rien en VBA...

cette macro fais référence à la même feuille (plage de déclenchement = C6:C34), car elles se remplissent en fonction du contenu de la feuille à laquelle j'ai fais référence plus tôt...

michel_m · Answer

Bonjour gurumiam, 
Salut Mike, ca va ?

pour masquer les lignes  vides dans la colonne C
Sub masquer_si_vide()On Error Resume NextRange("C6:C34").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = TrueEnd Sub 
On error resume next évite de planter si il n'y a pas de cellule danx C6;C34

Au passage
2/ Les "goto" de nos Grands pères ne sont utilisés que pour les gestion des erreurs

gurumiam · Answer

Bonjour Michel,

Merci mais il ne se passe rien avec ça... j'ai remplacer l'intégralité de la macro par ta réponse, je n'aurais peut-être pas du ?

ou peut-être que ça vient du fait que mes cellules contiennent des formules ?

michel_m · Answer

ça vient du fait que mes cellules contiennent des formules ? 
oui, 
la valeur "" résultat d'une formule  dans une cellule entraine que la cellule n'est pas vide ("rien" ce n'est pas "vide" pour parodier Raymond Devos)

il aurait utile de préciser ou mieux de joindre le fichier

Mike-31 · Answer

Re,

Bizarre que le code de Michel (salut) ne fonctionne pas 
 
si ton code placé dans un module fonctionne, ajoute ce qui suit
clic droit sur l'onglet de ta feuille concernée/visualiser le code
 et ce code

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("C6:C34")) Is Nothing Then
Call masquer_ligne_vide
End If
End Sub

gurumiam · Answer

je suis un peu perdue... cette dernière réponse permet d'automatiser l'exécution de la macro ou bien de la corriger ? je l'ai ajouté à mon code de base et ça ne change rien... (la macro ne s'exécute pas suite aux modification et les lignes ne se ré-affichent pas non plus) voici ce que j'ai en ajoutant le dernier code : Sub masquer_ligne_vide() Dim Cel As Range Dim C As Byte For C = 6 To 34 For Each Cel In Range(Cells(C, 6), Cells(C, 34)) If Cel.Value <> "" And Cel.Value <> 0 Then GoTo suite1 Next Cel Rows(C).Hidden = True suite1: Next C For C = 6 To 34 For Each Cel In Range(Cells(C, 6), Cells(C, 34)) If Cel.Value <> "" And Cel.Value <> 0 Then GoTo suite2 Next Cel Rows(C).Hidden = True suite2: Next C End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("C6:C34")) Is Nothing Then Call masquer_ligne_vide End If End Sub

Mike-31 · Answer

Non, ce bout de code ne doit pas être dans un module mais dans les propriétés de ta feuille 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("C6:C34")) Is Nothing Then
Call masquer_ligne_vide
End If
End Sub
 
supprime le du module et je t'ai écrit  
clic droit sur l'onglet de ta feuille concernée/visualiser le code
et colle ce code à ce niveau et pas ailleurs

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("C6:C34")) Is Nothing Then
Call masquer_ligne_vide
End If
End Sub

A+
Mike-31

Je suis responsable de ce que je dis, pas de ce que tu comprends...

gurumiam · Answer

je ne comprends pas, c'est bien ce que j'ai fait... quand je clic sur visualiser le code j'arrive directement sur le code (fenetre avec 2 menus déroulants : 1 général/worksheet et 1 déclarations/masquer ligne vide

michel_m · Answer

tu as écris que dans C6:C34 que les valeurs inscrites étaient le résultat d'une formule d'où la valeur "" si la condition n'est pas remplie
DONC c'est la zone où tu effectues  une saisie qui va déclencher la procédure pour masquer  (et de plus: nouvelle demande : démasquer) les cellules de la colonne C6:C34
C'est ça ou pas ?

Pour en finir enfin, joins ta feuille de classeur en coloriant les différentes saisies possibles
Mettre le classeur sans données confidentielles en pièce jointe sur  https://mon-partage.frDans lien de téléchargement faire un clic  droit- copier l’adresse du lien   et  le coller dans votre message en cours sur ccm 

nota:
Les macros événementielles comme worksheet_change ne sont pas compliquées mais demande une certaine habitude du VBA.... Alors, panique pas!

Lancement automatique d'une macro

12 réponses

Discussions similaires