Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 zone de texte

litchoutsou

XLDnaute Junior
Supporter XLD
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

XLDnaute Barbatruc
Bonjour litchoutsou,

Pour compter les zones de texte (contrôles de formulaire) :
VB:
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

XLDnaute Barbatruc
Pour compter les TextBox (contrôles ActiveX) :
Code:
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

XLDnaute Junior
Supporter XLD
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.
 

Discussions similaires

Réponses
34
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…