Code VBA _ Adresse d'une cellule ?

[Toushusss]

Bonjour, Merci pour l'aide que vous pourrez peut etre m'apporter.
J'ai 4 Feuilles dans mon classeur et je souhaite récupere grace à un code Vba la valeur de la cellule "D & Tot.Row" de ma feuille 1 pour la mettre en D3 de ma Feuille 4.
Or je bloc sur la procédure. J'ai commenceé par ce code mais je ne sais pas ou le saisir

With Sheets ("Feuil4")
.Range("D3") = Sheets("Feuil1").Range("$D$" & Tot.Row)

De plus je souhaiterais l'afficher en gras
Merci par avance

 

[phlaurent55]

Re : Code VBA _ Adresse d'une cellule ?

Bonjour toushuss

fais un essai en supprimant les $

.Range("D3") = Sheets("Feuil1").Range("$D$" & Tot.Row)
.Range("D3").Font.Bold = True

à+
Philippe

 

[Pierrot93]

Re : Code VBA _ Adresse d'une cellule ?

Bonjour toushuss, Philippe

ceci devrait fonctionner, à condition que ta variable "Tot" soit bien initialisée...

With Sheets("Feuil4").Range("D3")
    .Value = Sheets("Feuil1").Range("$D$" & Tot.Row)
    .Font.Bold = True
End With

bonne journée
@+

 

[Toushusss]

Re : Code VBA _ Adresse d'une cellule ?

Merci Pierrot93 ça marche super bien.