M
monv1606
Guest
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
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