tester ligne postérieure à cellule active

[nomzamo]

Bonjour, j'ai besoin de votre aide.

Je désire dans un tableau de données, après une modification de saisie sur une ligne quelconque pouvoir alerter l'utilisateur qu'il existe encore des lignes de données en dessous avec un message du style: "attention il existe des données postérieures à celle-ci!", si c'est la dernière ligne, pas de message.

Merci d'avance pour votre aide précieuse,
Roger.

 

[job75]

Re : tester ligne postérieure à cellule active

Bonjour nomzamo, le forum,

Cette macro utilise CountA (NBVAL) pour voir s'il y a des valeurs sous la cellule modifiée.

A placer dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CountA(Rows(Target.Row + 1 & ":65536")) Then _
  MsgBox "Attention il existe des données postérieures à celle-ci !"
End Sub

A+

 

[nomzamo]

Re : tester ligne postérieure à cellule active

Merci infiniment pour ton aide, cela va beaucoup m'aider.
Cordialement

Bonjour nomzamo, le forum,

Cette macro utilise CountA (NBVAL) pour voir s'il y a des valeurs sous la cellule modifiée.

A placer dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CountA(Rows(Target.Row + 1 & ":65536")) Then _
  MsgBox "Attention il existe des données postérieures à celle-ci !"
End Sub

A+