Repérer une case d'un TCD

Re : Repérer une case d'un TCD

Bonjour,
Peut-être une de ces lignes t'aidera.
Tu peux avoir la ligne, la colonne ou l'adresse.

Re : Repérer une case d'un TCD

Bonsoir,

Un peu plus court :
Sub Test1() 'Selectionne la cellule
Sheets("Feuil1").Cells.Find(What:="total").Select
End Sub

Avec la gestion d'erreur :
Sub Test1() 'Selectionne la cellule
Set c = Sheets("Feuil1").Cells.Find(What:="total")
If Not c Is Nothing Then c.Select Else MsgBox "Total non trouvé"
End Sub

ou

Sub Test2() 'Renvoie l'adresse de la cellule et son contenu
Set c = Sheets("Feuil1").Cells.Find(What:="total")
If Not c Is Nothing Then MsgBox c.Address & " / " & c.Value
End Sub

Re : Repérer une case d'un TCD

Ok ça marche !!!
Merci à vous deux !