macro worksheet_change dernière valeur d'une colonne Fermé

Question

Bonjour,
Je viens de me mettre au macro et j'essaye de faire une macro automatique lorsque j'insère une valeur au bas d'une colonne.
Dans le cadre de dresser une liste d'objet, je voudrais qu'à chaque fois que je rajoute un numéro d'objet une feuille se crée automatiquement.
J'ai un code qui marche, mais je n'arrive pas à le restreindre à une seule colonne. Quand j'insère la donnée sur la bonne colonne, tout va bien. Mais quand je clique sur une autre cellule dans une autre colonne, ça lance aussi la macro.
Voici le code que j'ai et qui marche :

Sub WorkSheet_Change(ByVal Targer As Range)

    Range("A1.A1048576").End(xlUp).Select
    Sheets.Add , WorkSheets(WorkSheets.Count)

End Sub

J'ai essayé la macro suivante, mais ça ne marche pas:

Sub WorkSheet_Change(ByVal Targer As Range)

    If Intersect(Target, Range("A1:A150")) Is Nothing Then
    Range("A1.A1048576").End(xlUp).Select
    Sheets.Add , WorkSheets(WorkSheets.Count)

End Sub

Pourriez-vous m'aider s'il vous plait.

Gyrus · Answer

Bonjour,

Essaie comme cela
Sub WorkSheet_Change(ByVal Target As Range)    If Target.Count > 1 Then Exit Sub    If Not Application.Intersect(Target, Range("A1:A150")) Is Nothing Then        Sheets.Add , Worksheets(Worksheets.Count)    End IfEnd Sub
A+

FabienDAP · Answer

Bonjour, tout d'abord merci pour votre réponse si rapide.
Je viens d'essayer et ça m'affiche une erreur 424 sur "If Target.Count > 1 Then"
Et à force de galérer à faire ce que j'ai en tête, et après des recherches, je me suis rendu compte que ce que je recherche relève plutôt d'un SGBDR. Du coup, je vais arrêter de me battre avec Excel.
C'est vraiment aimable que vous m'ayez répondu si rapidement. Encore merci.

Macro worksheet_change dernière valeur d'une colonne

2 réponses

Discussions similaires