VBA formater plusieurs textbox en fonction du texte

[Lionel37]

Bonjour
Je voudrais changer la couleur de de fond plusieurs textbox selon si il y a du texte a l interieur ou si elle sont vide.
'(exemple sur l'onglet preparation du fichier attache). Pour le moment j'ai reussi a le faire mais je me tape les 2 lignes de code pour chaque textbox. Serait il possible de simplifier ca ? ca je voudrais le faire pour des dizaines de textbox.
Le bouton "refresh" est utilise pour lancer la macro, mais si vous avez une autre combine elle est aussi la bienvenue. Merci a tous pour votre aide.
PS : je suis encore en dessous du niveau debutant 🙁

 

[Theze]

Re : VBA formater plusieurs textbox en fonction du texte

Bonjour,

Je te propose une solution avec un module de classe. L'évènement "Change" sera commun à tout les TextBox de la feuille "Preparation". Si tu supprime les caractères d'un des TextBox, il sera coloré en rouge et dans le cas contraire en vert. Le bouton "Refrech" n'étant alors plus nécessaire.
Je joint ton classeur avec la modif.

Hervé.

 

[Lionel37]

Re : VBA formater plusieurs textbox en fonction du texte

Hervé, je n'ai rien a ajoute si ce n est que MERCI c est exactement ce que je voulais. Encore merci et bonne journee.

Lionel

 

[Dull]

Re : VBA formater plusieurs textbox en fonction du texte

Salut Lionel37 et Bienvenue sur XLD, Theze, le Forum

Comme je l'avais fait je met aussi le mien

Un code à placer dans le Module de la Feuille

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As OLEObject
    For Each x In Sheets("Preparation").OLEObjects
        x.Object.BackColor = IIf(x.Object.Value = "", vbRed, vbGreen)
    Next x
End Sub

là aussi plus besoin de Bouton

Je regarde le tien Theze

Bonne Journée

 

[Lionel37]

Re : VBA formater plusieurs textbox en fonction du texte

Bonjour
Herve ta methode me convient le mieux, le probleme de celle de Theze c est qu'elle s applique a tout les objet y compris les boutons qui changent de couleur. La seule chose qui me manque c'est que je voudrais que cela soit valable pour toute les texte box du classeur. J'ai essayer de trouver en modifiant ton code mais sans succes. Encore une fois Merci a tout les deux

 

[Theze]

Re : VBA formater plusieurs textbox en fonction du texte

Bonsoir,

Pour prendre en compte tous les TextBox du classeur, voici la modif à faire :

Private Sub Workbook_Open()
    
    'pour initialiser à l'ouverture du classeur
    Initialiser
    
End Sub

Private Sub Initialiser()
    
    Dim Fe As Worksheet
    Dim Objet As OLEObject
    Dim Ctrl As MSForms.TextBox
    Dim I As Integer
    
    'parcour les contrôles des feuilles et les affectent au tableau
    'de contrôles afin qu'ils aient la même procédure évènementielle
    For Each Fe In ThisWorkbook.Worksheets
    
        For Each Objet In Fe.OLEObjects
          
          On Error Resume Next
          Set Ctrl = Objet.Object
        
          If TypeName(Ctrl) = "TextBox" Then
              Debug.Print Ctrl.Name
              I = I + 1
              ReDim Preserve Txt(1 To I)
              Set Txt(I).TextBoxGroup = Ctrl
              
          End If
          
        Next Objet
    
    Next Fe
    
    Set Objet = Nothing
    Set Ctrl = Nothing

End Sub

Hervé.

 

[Dull]

Re : VBA formater plusieurs textbox en fonction du texte

Salut Lionel37, Hervé🙂, le Forum

Bien que la solution de Theze soit la plus adaptée à ton problème, je met met quand même la modification de mon code à placer dans le module ThisWorkbook De plus la couleur changera seulement pour les contrôles type "TextBox"

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim x As OLEObject
    For Each x In ActiveSheet.OLEObjects
        If x.Name Like "TextBox*" Then
            x.Object.BackColor = IIf(x.Object = "", vbRed, vbGreen)
        End If
    Next x
End Sub

Bonne Journée

 

[Lionel37]

Re : VBA formater plusieurs textbox en fonction du texte

Dull, Theze

Un grand merci a tout les deux pour cette aide qui m'est tres precieuse et qui me permet d'apprendre un peu.
En faite je vais utiliser les 2 methodes dans deux classeurs differents. Tres tres bien Merci Lionel