démasquer la ligne saisie

[babylonzoo]

Bonjour a tous,

je vous joint un fichier qui me pose un pbs.
j'ai creer un userform pour saisir des données mais je desirerai que par exemple les 100 lignes sous la saisie soit masquées (il y aura environ 100 lignes a saisir par feuille) et que les lignes se demasquent au fur et a mesure de la validation des saisies

merci encore pour votre aide

babylonzoo

 

[skoobi]

Re : démasquer la ligne saisie

Bonsoir,

par exemple:

........
...........
End If
' Mise en place des valeurs saisies
With Sheets("poids")
    .Rows(.Range("A65536").End(xlUp).Offset(1, 0).Row).Hidden = False
    .Range("A65536").End(xlUp).Offset(1, 0).Value = Me.TextBoxDatesaisie.Text
    .Range("B65536").End(xlUp).Offset(1, 0).Value = Me.TextBoxDate.Text
    .Range("C65536").End(xlUp).Offset(1, 0).Value = Me.TextBoxVisa.Text
    .Range("E65536").End(xlUp).Offset(1, 0).Value = Me.TextBoxNP1.Text
    .Range("F65536").End(xlUp).Offset(1, 0).Value = Me.TextBoxNP2.Text
    .Range("G65536").End(xlUp).Offset(1, 0).Value = Me.TextBoxNP3.Text
    .Range("H65536").End(xlUp).Offset(1, 0).Value = Me.TextBoxNP4.Text
    .Range("I65536").End(xlUp).Offset(1, 0).Value = Me.TextBoxNP5.Text
End With


Unload UserForm3
End Sub

 

[babylonzoo]

Re : démasquer la ligne saisie

merci skoobi , ça fonctionne parfaitement

@+

Babylonzoo