Parcourir cellules de plusieurs feuilles sans afficher les feuilles

[elect31]

Bonjour

J'ai chercher en vain et essayé plusieurs solutions, mais rien n'y fait.

Je cherche à parcourir chaque cellule d'une plage variable, sur plusieurs feuilles, mais surtout sans afficher les feuilles. L'objectif est d'avoir l'adresse de la cellule contenant un commentaire.
Cette question s'inscrit dans un projet qui utilise des userforms et, je le répète, je ne veux pas afficher les feuilles du classeur une à une. Je ne veux pas les afficher car je rends l'application invisible pendant l'exécution.

Dans l'exemple, la procédure fonctionne sur la feuille active mais pas sur les autres...

Merci de vos lumières, la mienne est en panne.

 

[ninbihan]

Re : Parcourir cellules de plusieurs feuilles sans afficher les feuilles

Bonsoir le forum et elect31,

Peut être ainsi :

Sub parcour_cell()
Dim ind As Byte, rw As Byte
Dim maPlage As Range
rw = 4
For ind = 1 To ThisWorkbook.Sheets.Count
Set maPlage = Sheets(ind).Range(Sheets(ind).Range("A" & rw), Sheets(ind).Range("A" & rw).End(xlToRight))
    
    For Each cell In maPlage
        If Not cell.Comment Is Nothing Then
            MsgBox cell.Address
        End If
    Next cell
Next ind
End Sub

Ninbihan

 

[elect31]

Re : Parcourir cellules de plusieurs feuilles sans afficher les feuilles

Merci
Je savais bien que je merd... quelque part. ça roule. Bye