Discussion :

[Mimosa777]

Salut a tous,

J'ai un fichier qui genere des donnees automatiquement dans plusieurs lignes et colonnes (de gauche vers la droite). J'aimerais savoir comment recuperer la derniere valeur dans le fichier, c'est a dire la derniere valeur dans la derniere colonne non vide.

J'ai essaye cela de recuperer la denriere valeur dans le fichier avec ce code mais ca ne marches pas

Code :

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

Sheets(NewFormat).Cells(5, 8).Value = Sheets(NewFormat).Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious) + Sheets(NewFormat).Cells(2, 1).Value

merci de votre aide

[joe.levrai]

Bonjour,

regarde si c'est ce que tu souhaites

Code :

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

1
2
3
Sub toto()
MsgBox Worksheets("MaFeuille").UsedRange.SpecialCells(xlCellTypeLastCell).Address
End Sub

[Mimosa777]

Magnifique Joe. Merci beaucoup

[kiki29]

Salut, à titre d'information voir Dernière ligne et la dernière colonne renseignées d'une feuille

[vinc_bilb]

Bonjour,

Attention, je crois que le UsedRange n'est pas rafraîchi en temps réel, donc si votre tableau commence toujours en A1, je vous conseille d'utiliser un mixte des contributions de nos experts , comme

Code :

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

1
2
Set LastCl = Worksheets("MaFeuille").Range("A1").CurrentRegion.SpecialCells(xlCellTypeLastCell)
Debug.Print LastCl.Address