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

Staple1600

XLDnaute Barbatruc

• 27 Juillet 2019

• #2

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 27 Juillet 2019

• #3

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,

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Juillet 2019

• #4

Re

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

VB:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 27 Juillet 2019

• #5

Merci encore une fois JM
Je teste et je reviens

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 27 Juillet 2019

• #6

Re-JM,

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

VB:

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,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 27 Juillet 2019

• #7

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Juillet 2019

• #8

Re

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 27 Juillet 2019

• #9

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Juillet 2019

• #10

Re

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

arthour973 à dit:

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,

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 28 Juillet 2019

• #11

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,

 

Dernière édition: 28 Juillet 2019

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Juillet 2019

• #12

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...

 

Dernière édition: 28 Juillet 2019

Vote positif 0 Vote négatif