Ajout d'une ligne dans un formulaire

V

VDAVID

XLDnaute Impliqué

• 15 Juillet 2014

• #2

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 !

 

Vote positif 0 Vote négatif

A

aspe

XLDnaute Junior

• 15 Juillet 2014

• #3

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

 

Pièces jointes

• afficher textbox masqués.xls

  64 KB · Affichages: 26

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 15 Juillet 2014

• #4

Re : Ajout d'une ligne dans un formulaire

Bonjour le fil, bonjour le forum,

aspe à dit:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

A

aspe

XLDnaute Junior

• 15 Juillet 2014

• #5

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

 

Vote positif 0 Vote négatif

B

benadry

XLDnaute Occasionnel

• 15 Juillet 2014

• #6

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.

 

Vote positif 0 Vote négatif