[XL-2007] Effacer des lignes en temps réel selon la sélection [Résolu]

[nikolarsen]

Bonjour!

Je suis novice avec le VBA... j'ai parcouru le net mais je n'ai pas trouvé la solution à mon problème.

Mon but avec ce fichier et de savoir si les gens ont travaillé avec l'un des agents et d'avoir leur avis.

J'ai un tableau Excel avec les noms des agents dans les cellules (b3:g3)

Ce que je veux c'est que dans le menu déroulant se trouvant sous le nom (à savoir s'ils ont travaillé avec lui) s'ils choisissent "NON", que toutes les lignes se trouvant en dessous qui ont le nom de cet agent disparaissent...

Voilà... je suis plutôt confus... surtout que l'idéal serait que le fichier soit en temps réel...


J'ai tout de même inclus un brouillon du formulaire...

Merci à l'avance de votre aide!

[jfontaine]

Bonjour,

Le code ci dessous devrait faire ce que tu souhaites

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
 
If Not Intersect(Range("B3:G3"), Target) Is Nothing Then
    For i = 6 To Range("B" & Rows.Count).End(xlUp).Row
        If Range("B" & i).Value = "" And Range("B" & i).FormulaLocal <> "" Then Rows(i).Hidden = True Else Rows(i).Hidden = False
    Next i
 
End If
 
End Sub

[BlueMonkey]

Bonsoir,

Tout le boulot a été fait par Jfontaine.

Ci-dessous une p'tite correction pour prendre en compte le cas où transitoirement,
aucun "Agent" ne serait sélectionné, (bon d'accord ... je sors )
et 2 lignes pour limiter le scintillement

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
 
    If Not Intersect(Range("B3:G3"), Target) Is Nothing Then
        Application.ScreenUpdating = False
        
        For i = 6 To Range("A" & Rows.Count).End(xlUp).Row
            If Range("B" & i).Value = "" And Range("B" & i).FormulaLocal <> "" Then Rows(i).Hidden = True Else Rows(i).Hidden = False
        Next i
        
        Application.ScreenUpdating = True
     
    End If
 
End Sub

[nikolarsen]

Wow! Ça marche merveilleusement bien!



Merci Jérôme!