Microsoft 365 Stocker le nom de la feuille

[Pierre111]

Bonjour, j'ai un petit problème, j'aimerais pouvoir stocker le nom de ma feuille pour que dans mon code ci-dessous, Feuil1 puisse être automatiquement remplacé par le nom de la feuille sur laquelle tourne la macro.

    For Each c In Feuil1.[A:A].SpecialCells(xlCellTypeConstants, 1)

J'ai essayé ce code mais il ne marche pas.

    Dim nomfeuille As String
    nomfeuille = ActiveSheet.Name
    For Each c In " & nomfeuille & ".[A:A].SpecialCells(xlCellTypeConstants, 1)

 

[Phil69970]

Bonjour @Pierre111

Si j'ai compris

For Each c In ActiveSheet.[A:A].SpecialCells(xlCellTypeConstants, 1)

ActiveSheet fait référence à la feuille active.

Ou on peut aussi comprendre ta demande comme cela

Dim Ws As Worksheet

Set Ws= Worksheets("Feuil1")

For Each c In Ws.[A:A].SpecialCells(xlCellTypeConstants, 1)

*Merci de ton retour

@Phil69970

 

[Dranreb]

Bonjour.
Notez l'objet lui même par un Set dans une variable As Worksheet et non pas son nom dans un String.

 

[Pierre111]

Merci à vous deux, ça marche maintenant.
En plus c'était tout bête