A
ama.mau
Guest
Bonjour à tous,
Bon voila, j'ai déjà posté - désolé - mais sans réponse, j'ai donc developpé une macro mais elle ne marche pas. Le but est de recopier lors de l'insertion d'une ligne une cellule dans la cellule vide apparue au moment de l'insertion. Les cellules de la plage sont nommés et s'appelles 'test'.
Elle contiennent le mot test, la plage va de disons F5 à F15. Si j'ajoute une ligne la plage s'étendra de F5 à F16 avec une cellule vide. Cette cellule devra automatiquement contenir le mot test lors de l'insertion d'une ligne.
Ci-joint le code :
_______________________________________________
Private Sub Worksheet_change(ByVal Target As Range)
If Me.Range('test') = True Then
With Range('test')
.SpecialCells(xlCellTypeBlanks).Text = '=R[-1]C'
.Value = .Value
End With
Else
MsgBox ('pas de cellule nommée : test')
End If
End Sub
_______________________________________________
Je précise que ce code est un essais pour vérifier la fonctionnalité du bazar.
D'avance merci
Bon voila, j'ai déjà posté - désolé - mais sans réponse, j'ai donc developpé une macro mais elle ne marche pas. Le but est de recopier lors de l'insertion d'une ligne une cellule dans la cellule vide apparue au moment de l'insertion. Les cellules de la plage sont nommés et s'appelles 'test'.
Elle contiennent le mot test, la plage va de disons F5 à F15. Si j'ajoute une ligne la plage s'étendra de F5 à F16 avec une cellule vide. Cette cellule devra automatiquement contenir le mot test lors de l'insertion d'une ligne.
Ci-joint le code :
_______________________________________________
Private Sub Worksheet_change(ByVal Target As Range)
If Me.Range('test') = True Then
With Range('test')
.SpecialCells(xlCellTypeBlanks).Text = '=R[-1]C'
.Value = .Value
End With
Else
MsgBox ('pas de cellule nommée : test')
End If
End Sub
_______________________________________________
Je précise que ce code est un essais pour vérifier la fonctionnalité du bazar.
D'avance merci
