Macro évenementielle

[monv1606]

Bonjour à tous,

J'ai présentement un problème avec un document.

J'essaie de créer une macro éventementielle Worksheet_Change, mais Excel ne semble pas en tenir compte.

J'ai inscrit le code suivant, code qui fonctionne lorsque j'en fait une simple macro que j'appelle à l'aide d'un bouton, le problème est donc lié à l'évenement :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Larg As Double

If Target.Address(0, 0) = Range("A4").Address Then

Selection.Copy
ActiveCell.Offset(0, 10).Select
ActiveSheet.Paste
Selection.UnMerge
ActiveCell.EntireRow.AutoFit
Larg = ActiveCell.RowHeight
Selection.Delete
ActiveCell.Offset(0, -10).Select
Selection.RowHeight = Larg

Else
ActiveCell.EntireRow.AutoFit

End If
ActiveCell.Select
End Sub

Quequ'un a déjà vu ce genre de problème? ou saurait pourquoi Excel n'en tient pas compte (même si je mets un breakdown dès le début de la macro..)?

Merci beaucoup,

Vincent

 

[Compte Supprimé 979]

Re : Macro évenementielle

Bonsoir,

Une macro évènementielle doit se trouver dans le conteneur qui appelle cet évènement,
à savoir dans ton cas, dans la feuille ou tu fais tes saisies

A+

 

[monv1606]

Re : Macro évenementielle

Bonjour,

Merci pour la réponse rapide, mais ma macro est effectivement dans le "dossier" Sheet1 de mon classeur.. ce qui ne semble pas convaincre Excel d'en tenir compte..

D'autres idées??

Merci,

Vincent

 

[Compte Supprimé 979]

Re : Macro évenementielle

RE

D'autres idées??

Oui nous joindre ton fichier, sinon difficile de t'aider

A+

 

[monv1606]

Re : Macro évenementielle

Voilà!

L'objectif de la macro est de faire en sorte que la hauteur des cellules fusionnées s'ajuste automatiquement, et que les cellules fusionnées s'ajustent également.

Merci,

Vincent