Discussion :

[Seb86]

Bonjour,
Voilà j'ai une base de donnée classique,
Code client, nom, prénom etc
à partir de la dernière colonne, je rentre les dates de visites du clients.
Toutes mes colonnes sont nommées, sauf évidemment à partir des dates de visite.
Je voudrais donc pouvoir savoir ou est la dernière cellule pleine de la ligne pour récupérer sa valeur dans une text box "la dernière visite", et dans la cellule de droite inscrire la date du jour de la visite en cours.

Voilà ce qui est en place, Enfin un extrait du code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'La variable LnumL permet de connaitre le numéro de ligne pour différencier l'enregistrement d'un nouveau client de celle d'une modification de données
 
Dim DerCol As Long
 
'cherche la dernière colonne pleine
DerCol = Cells(LnumL, Cells.Columns.Count).End(xlLeft).Column
 
 
'à l'enregistrement
Cells(LnumL, Range("Courriel").Column) = Me.TBCourriel.Text
Cells(LnumL, Range("Technique").Column) = Me.TBTechnique.Text
Cells(LnumL, Range("Creation").Column) = Me.TBCreation.Text
 
'partie du code que je ne trouve pas à faire
Cells(LnumL, dercol+1.column) = Me.TBDateJour.Text
 
'à la lecture
Me.TBCode_Client.Text = Cells(kelligne, Range("Code_Client").Column)
Me.TBCreation.Text = Cells(kelligne, Range("Creation").Column)
 
'partie du code que je n'arrive pas à faire
Me.TBDateDerVis.Text = Cells(kelligne, DerCol.Column)

J'espère avoir été assez compréhensible dans ma requête.

D'avance merci.
Seb.

[catapoulpe]

Bonjour

Si tes dates sont bien dans un format de date, celle qui est la plus récente aura la plus grande valeur de toutes les dates de la ligne. Il te suffit donc de trouver la valeur maximum de ta ligne de dates, cellules vides comprises. Dès lors, nul besoin de te préoccuper de l'emplacement de la dernière date...

Je ne saurais traduire cela en VBA, mais ça doit être fastoche !

En espérant avoir simplifié la question...