Microsoft 365 Stocker le nom de la feuille

Pierre111 · 29 Avril 2022

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.

VB:

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

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

VB:

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

Phil69970 · 29 Avril 2022

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 · 29 Avril 2022

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

Pierre111 · 29 Avril 2022

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

Microsoft 365 Stocker le nom de la feuille

Pierre111

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Pierre111

XLDnaute Nouveau

Discussions similaires