quel code?

[zvodskaya]

Bonjour au forum,
comment faire en sorte pour qu'un userform remette ma page en état de modèle par un simple clique, je ne veux pas que tout soit effacer j'ai des formules et des listes déroulantes dans mon tableau...
Pourriez vous m'indiquer la procédure à suivre svp....

 

[porcinet82]

Re : quel code?

Salut zvodskaya,

Qu'est ce que tu entends par remette ma page en état de modèle ?

Je pense qu'un fichier joint avec exemple de ce que tu as au départ, et le resulat souhaité permettrait de mieux appréhender le problème.

@+

 

[zvodskaya]

Re : quel code?

-Alors voila en base j'ai le premier fichier, je le complete par différentes données et j'obtiens le deuxième documents, e, un simple clic je souhaiterais que le deuxieme doc reprenne la forme 'vierge' du premier...

-Autre mini pb si vous regarder mes fichiers une ligne apparait lorsqu'une selection dans D est effectuée, or je ne peux me permettre de laisser une ligne a moitié pleine, ou a moitié vide, a vous de voir, donc comment faire en sorte que la dernière ligne qui reste vierge s'efface automatiquement, ou alors une insertion d'un bouton de suppression de la dernière ligne....

DOC1
http://cjoint.com/?hCq1Laittf
DOC2
http://cjoint.com/?hCq11JGvb7

 

[porcinet82]

Re : quel code?

re,

Modifie le code de la manière suivante et ca devrait le faire :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sel As Range
Set Sel = Range("d5:d16")
If Not Application.Intersect(Sel, Range(Target.Address)) Is Nothing Then
    If Target.Value = "Sélectionner Type" Then Exit Sub
    ActiveCell.Offset(1, 0).EntireRow.Hidden = False
End If
End Sub

1ere question :

Sub test()
a = Range("A65536").End(xlUp).Row - 1
Range("A6:F" & Range("A65536").End(xlUp).Row - 1).EntireRow.Hidden = True
Range("B2:B18").ClearContents
Range("E2:E18").ClearContents
Cells(5, 1).Value = "palette n°1"
Cells(5, 4).Value = "Sélectionner Type"
End Sub

2eme question :

Sub test_v2()
Dim cel As Range
For Each cel In Range("D5:D18")
    If cel = "Sélectionner Type" Then
        Range(Cells(cel.Row, 1), Cells(cel.Row, 6)).EntireRow.Hidden = True
        Exit Sub
    End If
Next cel
End Sub

@+