Ajout d'une ligne dans un formulaire

benadry

XLDnaute Occasionnel
Bonjour le forum,

Je cherche une macro me permettant de rendre visible des textboxes dans un userform quand on clique sur un bouton de commande.

En clair, quand l'utilisateur clique sur le bouton de commande + 1, des textboxes qui étaient masquées deviennent visibles.

Je sais le faire avec la première ligne, mais pas avec les suivantes.

Je joins le fichier et le code.

Si quelqu'un pouvait y regarder ...

Merci d'avance.

Cordialement.
 

Fichiers joints

VDAVID

XLDnaute Impliqué
Re : Ajout d'une ligne dans un formulaire

Salut Benardy,

A condition que le nom des textbox ne changent pas :


Code:
    Dim i As Integer, h As Integer
    
    For i = 16 To 48 Step 4
    
        If Me.Controls("TextBox" & i).Visible = False Then
            
            For h = 0 To 3
                
                Me.Controls("TextBox" & i + h).Visible = True
                
            Next h
            Exit Sub
        
        End If
    
    Next i
Bonne journée ! :)
 

Robert

XLDnaute Barbatruc
Re : Ajout d'une ligne dans un formulaire

Bonjour le fil, bonjour le forum,

Les puristes vont surement s'arracher les cheveux ( si ils en ont encore ).
Boudu... Aspe !

Comme je n'en navet plus il a fallu que je m'achète une perruque pour la plumer...
Au pire, utilise ElseIf... pour éviter la cascade de End If à la fin.
 

aspe

XLDnaute Junior
Re : Ajout d'une ligne dans un formulaire

Bonjour Robert,

Merci pour le conseil, je me coucherais moins bête ce soir.

Bonne journée
 

benadry

XLDnaute Occasionnel
Re : Ajout d'une ligne dans un formulaire

Rebonjour,


Merci pour vos réponses.

Finalement, j'ai préféré celle de David, moins longue que celle d'Aspe.

Merci encore.

Cordialement.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas