XL 2019 zone de texte

[litchoutsou]

Salut à tous, juste une question, car j'ai fouiné sur des forums et je n'ai pas trouvé de réponse, est-il possible de calculer le nombre de zones de texte insérer dans une feuille Excel.
Dans l'attente de vous lire Merci

 

[job75]

Bonjour litchoutsou,

Pour compter les zones de texte (contrôles de formulaire) :

Sub a()
Dim o As Object, n
For Each o In ActiveSheet.DrawingObjects
    If TypeName(o) = "TextBox" Then n = n + 1
Next
MsgBox n & " zones de texte"
End Sub

A+

 

[job75]

Pour compter les TextBox (contrôles ActiveX) :

Sub b()
Dim o As Object, n
For Each o In ActiveSheet.DrawingObjects
    If TypeName(o.Object) = "TextBox" Then n = n + 1
Next
MsgBox n & " TextBox ActiveX"
End Sub

 

[litchoutsou]

Merci Job75 de m'avoir répondu si vite, mais comme vous le s'avez, je suis un novice qui découvre de plus en plus qu'Excel peut me simplifier la vie dans beaucoup de domaine.
J'ai mis la formule en VBA, mais je pense que je dois sélectionne une cellule ou le Nombre doit s'inscrire, dois-je mettre une formule à l'intérieur.
Merci de votre réponse.

 

[job75]

Il n'y a rien à sélectionner, il faut juste exécuter les macros (touches Alt+F8).

 

[litchoutsou]

Merci Job75, ça fonctionne super bien