Bonjour,

J'aimerai pouvoir compter le nombre de "shapes" (zone de texte dans mon cas) dans une plage de cellule donnée et reporter le résultat dans une autre

J'arrive à toutes les compter dans la feuil1 :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub COmpter()
 
Dim i As Integer
i = ActiveSheet.Shapes.Count
Cells(12, 4).Value = i
End Sub
Mais je n'arrive pas à les compter dans une plage de cellule donnée

Par contre j'arrive à les lister grâce à ce code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub listerTaches()
    Dim sh As Shape
    Dim i As Integer
 
    i = 1
    For Each sh In Feuil1.Shapes
        Set inter = Application.Intersect(sh.TopLeftCell, Range("chantier"))
        If Not inter Is Nothing Then
            Feuil1.Range("ED" & i).Value = sh.TextFrame.Characters.Text
            i = i + 1
        End If
    Next
 
End Sub
Pouvez vous m'aider?
Merci