GuillaumA
XLDnaute Occasionnel
Bonjour,
Ci-joint ma macro. Cette dernière permet de cacher des lignes en fonctions de ce que l'utilisateur tape dans deux cellules. La première I17, et la seconde I19.
La première permet, lorsqu'il y est tapé I de faire disparaître les lignes ou la valeur L est inscrite et vis et versa.
La seconde, permet de faire disparaître les lignes correspondant aux autres pays que le notre.
Mon problème est simple, les deux partie de la macro agissent sur la même feuile et bien souvent se retrouve en confrontation.
En effet si on tape la valeur I dans la cellule I17, alors les lignes pour la valeur L disparaissent. Cependant si ensuite je choisi la france par exemple dans ma deuxième cellule (I19) et que des lignes considéré comme "france" possède aussi la valeur L, ces lignes réapparaissent quand même.
Comment faire pour que les deux macros puissent vivre ensemble, sans s'annuler mutuellement ?
Cordialement,
Guillaume
A noter que cette macro se trouve en Feuil1 et joue sur le masquage/démasquage des lignes de la Feuil2.
Ci-joint ma macro. Cette dernière permet de cacher des lignes en fonctions de ce que l'utilisateur tape dans deux cellules. La première I17, et la seconde I19.
La première permet, lorsqu'il y est tapé I de faire disparaître les lignes ou la valeur L est inscrite et vis et versa.
La seconde, permet de faire disparaître les lignes correspondant aux autres pays que le notre.
Mon problème est simple, les deux partie de la macro agissent sur la même feuile et bien souvent se retrouve en confrontation.
En effet si on tape la valeur I dans la cellule I17, alors les lignes pour la valeur L disparaissent. Cependant si ensuite je choisi la france par exemple dans ma deuxième cellule (I19) et que des lignes considéré comme "france" possède aussi la valeur L, ces lignes réapparaissent quand même.
Comment faire pour que les deux macros puissent vivre ensemble, sans s'annuler mutuellement ?
Cordialement,
Guillaume
A noter que cette macro se trouve en Feuil1 et joue sur le masquage/démasquage des lignes de la Feuil2.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I17")) Is Nothing Then
With Sheets("Feuil2")
.Rows.Hidden = False
Select Case Range("I17")
Case "I"
Var = "L"
Case "L"
Var = "I"
End Select
For i = 5 To .Cells(Rows.Count, 15).End(xlUp).Row
.Rows(i).Hidden = (.Cells(i, 15) = Var Or .Cells(i, 15) = "0")
Next i
End With
End If
If Not Intersect(Target, Range("I19")) Is Nothing Then
With Sheets("Feuil2")
.Rows.Hidden = False
Select Case Range("I19")
Case "France"
Var = "GER,POR,IRL,CR,0,"
Case "Germany"
Var = "FRA,POR,IRL,CR,0,"
Case "Portugal"
Var = "GER,FRA,IRL,CR,0,"
Case "Ireland"
Var = "GER,POL,FRA,CR,0,"
Case "Czech Republic"
Var = "GER,POL,ITA,FRA,0,"
Case ""
Var = "0,"
End Select
For i = 5 To .Cells(Rows.Count, 14).End(xlUp).Row
If InStr(Var, .Cells(i, 14) & ",") <> 0 And .Cells(i, 14) <> "" Then
.Rows(i).Hidden = True
End If
Next i
End With
End If
End Sub
Dernière édition: