XL 2013 Masquer plusieurs lignes selon formulaire

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2020

• #2

Bonjour Tarci,
Un essai en PJ avec cette macro :

VB:

Sub RetirerPersonne()
Chaine = [Nom] & " " & [Prénom]
With Sheets("Suivi des formations")
    NbLig = Application.CountIf(.Range("D20:D1000"), "*")
    For i = 20 To 20 + NbLig
        If .Cells(i, 4) = Chaine Then .Cells(i, 4).EntireRow.Hidden = True
    Next i
End With
End Sub

 

Pièces jointes

• PROTO SUIVI FORM 22-06-2020.xlsm

  88.9 KB · Affichages: 4

Vote positif 0 Vote négatif

T

TARCI

XLDnaute Nouveau

• 24 Juin 2020

• #3

Merci pour ta réponse si rapide.
C'est effectivement ce que je cherche à un détail prés, car je souhaite que cela fasse la même chose dans l'onglet salarié et peut, on rajouter un bouton pour que je les refasse apparaître avec un autre bouton ? Puis si on peut rajouter une ligne "clear" pour effacer la saisie.

Je te remercie encore car tu m'aides beaucoup à avancer sur mon projet d'étude.

 

Vote positif 0 Vote négatif

T

TARCI

XLDnaute Nouveau

• 24 Juin 2020

• #4

Le problème qui se pose c'est que les deux onglet ne sont pas fait de la même façon. Dans le premier nom et prénom sont dans la même cellule tandis que dans l'onglet salarié ils sont séparé du coup je ne sais pas comment ajuster ta formule a cela.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2020

• #5

Ha, bon, je m'en m'étais pas aperçu !

Encore quelques minutes.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2020

• #6

Voilà.

 

Pièces jointes

• PROTO SUIVI FORM 22-06-2020 V2.xlsm

  90.5 KB · Affichages: 4

Vote positif 0 Vote négatif

Solution

T

TARCI

XLDnaute Nouveau

• 24 Juin 2020

• #7

Franchement Chapeau, l'artiste. T'es un magicien du VBA. Ce qui m'aurait pris des jours voir des semaines, tu l'as réalisée en 5 min.

Je te remercie énormément.

Je ne sais pas si je peux te contacter en privé si j'ai d'autres problèmes ?

Mais merci en tout cas.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2020

• #8

Euh ... la seconde macro c'est exactement la première sauf que de masquer la ligne, on la démasque.
Il n'y a que la troisième qui, pour le coup, est très complexe :

VB:

Sub ClearEntrée()
    [Nom] = ""
    [Prénom] = ""
End Sub

Il y a la messagerie privée pour me contacter, mais je ne garantis pas la même réactique.


bonne journée.

 

Vote positif 0 Vote négatif

T

TARCI

XLDnaute Nouveau

• 25 Juin 2020

• #9

Bonjour @sylvanu,

Le fichier fonctionne implacablement bien sauf qu'en rajoutant la textbox dans mon suivi de formation cela fait buger le formulaire d'ajout de personne ( il me prend plus en compte lajout de toutes les formation associé au poste de la personne).
Je n'arrive pas à faire en sorte que, en effaçant toutes les lettres de la Textbox que cela m'efface les filtres automatiquement. Ou bien faut il rajouter un bouton ClearFilters ?

Merci d'avance l'ami.

 

Vote positif 0 Vote négatif

T

TARCI

XLDnaute Nouveau

• 25 Juin 2020

• #10

J'arrive a rajouter le boutton me permettant d'effacer les filtres mais je n'arrive pas a effacer le contenue de la textbox21.

VB:

Sub ClearsFilter()
'
' ClearsFilter Macro
'

'
    ActiveSheet.ListObjects("tblJournaldeformation").Range.AutoFilter Field:=2
    With Sheets("Suivi des formations")
    TextBox21.Text = ""
    End With

End Sub

 

Pièces jointes

• PROTO SUIVI FORM V2.xlsm

  85.1 KB · Affichages: 5

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Juin 2020

• #11

Bonsoir,
Le pb de TextBox21 est résolu, il suffisait de faire :

VB:

    ActiveSheet.ListObjects("tblJournaldeformation").Range.AutoFilter Field:=2
    Sheets("Suivi des formations").TextBox21.Text = ""

Je n'ai pas bien compris le début du post #9. Pouvez vous préciser ?

 

Pièces jointes

• PROTO SUIVI FORM V2 (1).xlsm

  91.1 KB · Affichages: 6

Vote positif 0 Vote négatif