XL 2016 code qui ne doit pas s'exécuter si clic dans la dernière ligne NON vide

[Usine à gaz]

Bonsoir à toutes et à tous,

Dans la journée, j'ai posée une question qui concerne la 1ère partie de mon problème et qui a été résolue grâce à Staple1600 (JM) que je remercie à nouveau au passage.

Après tests et re-tests, je m'aperçois qu'il me manque un code que je ne sais pas faire pour répondre complètement à mon problème.

Je me permets de vous le soumettre :
si clic dans la dernière ligne (ici ligne 5) le code ne s'exécute pas,
même si colonne 20 est vide (T5 dans l'exemple)

Le classeur test joint sera je pense bien plus explicite.

Comme d'habitude, la solution m'arrangerait bien
Avec mes remerciements une fois de plus.
Je vous souhaite à toutes et à tous une belle soirée,
Amicalement,
lionel,

 

[Staple1600]

Bonsoir le fil, Re arthour973

arthour973
Pourquoi avoir créé un nouveau fil?
Et pourquoi ce petit changement d'un fil à l'autre ??
Dans ce premier fil
"si clic dans la dernière ligne (ici ligne 5) le code ne s'exécute pas,
même si colonne 20 est vide (T5 dans l'exemple)
"
Dans l'autre fil (exactement dans la PJ)

Je voudrais qu'en cliquant n'importe où le code teste
dans la dernière ligne NON vide de la colonne A
si la cellule colonne 20 de la même ligne est NON vide


Fichier test : dernière ligne NON vide en A
= ligne 5
= colonne NON vide = T5

 

[Usine à gaz]

Bonjour à toutes et à tous,
Bonjour JM,

"Pourquoi avoir créé un nouveau fil?
Et pourquoi ce petit changement d'un fil à l'autre ?? Il n'y a pas de changement mais une autre demande
Dans le premier fil
Je voudrais qu'en cliquant n'importe où le code teste dans la dernière ligne NON vide de la colonne A
si la cellule colonne 20 de la même ligne est NON vide
Fichier test : dernière ligne NON vide en A = ligne 5 = colonne NON vide = T5
1ère question résolue grâce à toi et ça n'a pas changé.

Bien sûr, j'aurais pu rester dans le 1er fil, mais après avoir bcp testé, une nouvelle question m'est apparue :
Besoin Complémentaire :
si clic dans la dernière ligne (ici ligne 5) le code ne s'exécute pas,
même si colonne 20 est vide (T5 dans l'exemple)"

en résumé :
J'ai tjrs besoin que le code s'exécute en cliquant n'importe où dans la feuille
mais NE S'EXECUTE PAS si je clique dans la dernière ligne NON vide

Bonne journée à toutes et à tous,
Lionel,

 

[Staple1600]

Re

Vois ce que cela t'inspire ou pas
(je me suis basé sur: "en résumé")

Private Sub Worksheet_SelectionChange(ByVal T As Range)
Set DL = Cells(Rows.Count, 1).End(3)
If T.Row <= DL.Row Then
End
Else
MsgBox Time
End If
End Sub

 

[Usine à gaz]

Merci encore une fois JM
Je teste et je reviens

 

[Usine à gaz]

Re-JM,

J'ai intégré ton dernier code au code de ma 1ère demande et ça donne ça :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set DL = Cells(Rows.Count, 1).End(3)
If Target.Row = DL.Row Then
Exit Sub
End If

Dim x As Range
Set x = Cells(Rows.Count, "a").End(xlUp)(1)
If Not IsEmpty(x) And Len(x.Offset(, 19)) Then
'MsgBox "Saisie OK", vbInformation
Else
MsgBox "Votre ligne est incomplète", vbCritical
End If
End Sub

Et ça marche super bien.
Merci JM
lionel,

 

[Usine à gaz]

mais pkoi "End(3)"
Set DL = Cells(Rows.Count, 1).End(3)

 

[Staple1600]

Re

Tu le sais déjà
Relis tes fils...

 

[Usine à gaz]

 

[Staple1600]

Re

Rien de drôle là-dedans pourtant...

Re,
je crois que j'ai trouvé :
J'ai remplacé ton code :
Set x = Cells(Rows.Count, 1).End(3)
par
Set x = Cells(Rows.Count, "a").End(xlUp)(1)

Sans toi, je n'y serais pas arrivé.
Merci JM
lionel,

 

[Usine à gaz]

Re-JM,

Je reviens sur le fil car j'ai un souci quand j'intègre le code dans mon fichier de travail.
Je fais juste un copier/coller (=mais j'ai été obligé de remplacer Target par R et ça beugue

C'est une erreur de compilation :

Peux-tu m'aider encore une fois ?
Un grand merci, même si pas solution LOL
lionel,

 

[Staple1600]

Bonsoir le fil

Dim DL As Range
et remettre ses lunettes pour commentrt (ou supprimer) la ligne esseulée.
d=Cells(...

NB: Tu n'as pas été obligé à ... c'était juste logique
Relis mon code du message#4
J'avais remplacé Target par T et ce partout dans la procédure...