XL 2019 zone de texte

job75

XLDnaute Barbatruc

• 2 Avril 2024

• #2

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Avril 2024

• #3

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

 

Vote positif 0 Vote négatif

L

litchoutsou

XLDnaute Junior

• 2 Avril 2024

• #4

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Avril 2024

• #5

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

 

Vote positif 0 Vote négatif

L

litchoutsou

XLDnaute Junior

• 3 Avril 2024

• #6

Merci Job75, ça fonctionne super bien

 

Vote positif 0 Vote négatif

Solution