Ajout d'une ligne dans un formulaire

[benadry]

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.

 

[VDAVID]

Re : Ajout d'une ligne dans un formulaire

Salut Benardy,

A condition que le nom des textbox ne changent pas :

    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 ! 🙂

 

[aspe]

Re : Ajout d'une ligne dans un formulaire

Bonjour benadry, le forum,

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

Cordialement

 

[Robert]

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]

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]

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.