Repérer une case d'un TCD

[bnolwalid]

Bonjour,

Je cherche le code qui me permettra de repérer la case "total" ligne de mon TCD et ainsi la définir comme "cellule repére" à l'aide de la fonction "offset

Merci

 

[RENAUDER]

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.

NoLigne = Sheets("Feuil1").Cells.Find("Total", LookIn:=xlValues).Row
NoColonne = Sheets("Feuil1").Cells.Find("Total", LookIn:=xlValues).Column
Adresse = Sheets("Feuil1").Cells.Find("Total", LookIn:=xlValues).Address(ReferenceStyle:=xlR1C1)
Application.Goto Reference:=Adresse

 

[Catrice]

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

 

[bnolwalid]

Re : Repérer une case d'un TCD

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