Bonsoir
j'essaie de créer ce type de syntaxe déclenchée à partir d'un commandbutton
sur mon userform
afin que si les checkbox sont cochées cela filtre, mais voilà, cela
plante...
Encore merci
Michel
Range("A2:AB50000").Select
'Toto
If CheckBox1 = True Then
Selection.AutoFilter Field:=17, Criteria1:="<>"
'Tata
If CheckBox2 = True Then
Selection.AutoFilter Field:=18, Criteria1:="<>"
'Titi
If CheckBox3 = True Then
Selection.AutoFilter Field:=19, Criteria1:="<>"
end if
end if
end if
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anomymousA
bonsoir,
Qu'est ce qui plante ? A quel endroit ? Cela se plante t-il ou bien ca ne réalise pas ce que tu veux ? Y a t-il des entêtes à ta base de données et y a t-il un filtre de défini ?
A+
Bonsoir j'essaie de créer ce type de syntaxe déclenchée à partir d'un commandbutton sur mon userform afin que si les checkbox sont cochées cela filtre, mais voilà, cela plante... Encore merci Michel
Range("A2:AB50000").Select 'Toto If CheckBox1 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Tata If CheckBox2 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Titi If CheckBox3 = True Then Selection.AutoFilter Field:, Criteria1:="<>" end if end if end if
bonsoir,
Qu'est ce qui plante ? A quel endroit ?
Cela se plante t-il ou bien ca ne réalise pas ce que tu veux ?
Y a t-il des entêtes à ta base de données et y a t-il un filtre de défini ?
A+
Bonsoir
j'essaie de créer ce type de syntaxe déclenchée à partir d'un commandbutton
sur mon userform
afin que si les checkbox sont cochées cela filtre, mais voilà, cela
plante...
Encore merci
Michel
Range("A2:AB50000").Select
'Toto
If CheckBox1 = True Then
Selection.AutoFilter Field:, Criteria1:="<>"
'Tata
If CheckBox2 = True Then
Selection.AutoFilter Field:, Criteria1:="<>"
'Titi
If CheckBox3 = True Then
Selection.AutoFilter Field:, Criteria1:="<>"
end if
end if
end if
Qu'est ce qui plante ? A quel endroit ? Cela se plante t-il ou bien ca ne réalise pas ce que tu veux ? Y a t-il des entêtes à ta base de données et y a t-il un filtre de défini ?
A+
Bonsoir j'essaie de créer ce type de syntaxe déclenchée à partir d'un commandbutton sur mon userform afin que si les checkbox sont cochées cela filtre, mais voilà, cela plante... Encore merci Michel
Range("A2:AB50000").Select 'Toto If CheckBox1 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Tata If CheckBox2 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Titi If CheckBox3 = True Then Selection.AutoFilter Field:, Criteria1:="<>" end if end if end if
Michel.Girard
Bonsoir et merci
En fait je voudrais que le filtre fonctionne sur les cellules concernées cela ne filtre rien du tout : ¤¤¤ Au départ, j'avais cela, mais pour je ne sais quelle raison, cela ne fonctionne pas j'ai une plage avec des chiffres de 1 à 10, et je veux pouvoir avoir après filtre les chiffres inclus en tant et tant. Merci Michel
If ComboBox2 <> "" And ComboBox3 <> "" Then mavar = ComboBox2.Value mavar2 = ComboBox3.Value Application.ScreenUpdating = False Range("A2:Q50000").AutoFilter Field:, Criteria1:=">=" & mavar, _ Operator:=xlAnd, Criteria2:="<=" & mavar2 Range("A1").Select Unload Me
"anomymousA" a écrit dans le message de news:
bonsoir,
Qu'est ce qui plante ? A quel endroit ? Cela se plante t-il ou bien ca ne réalise pas ce que tu veux ? Y a t-il des entêtes à ta base de données et y a t-il un filtre de défini ?
A+
Bonsoir j'essaie de créer ce type de syntaxe déclenchée à partir d'un commandbutton sur mon userform afin que si les checkbox sont cochées cela filtre, mais voilà, cela plante... Encore merci Michel
Range("A2:AB50000").Select 'Toto If CheckBox1 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Tata If CheckBox2 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Titi If CheckBox3 = True Then Selection.AutoFilter Field:, Criteria1:="<>" end if end if end if
Bonsoir et merci
En fait je voudrais que le filtre fonctionne sur les cellules concernées
cela ne filtre rien du tout : ¤¤¤
Au départ, j'avais cela, mais pour je ne sais quelle raison, cela ne
fonctionne pas
j'ai une plage avec des chiffres de 1 à 10, et je veux pouvoir avoir après
filtre les chiffres inclus en tant et tant.
Merci
Michel
If ComboBox2 <> "" And ComboBox3 <> "" Then
mavar = ComboBox2.Value
mavar2 = ComboBox3.Value
Application.ScreenUpdating = False
Range("A2:Q50000").AutoFilter Field:, Criteria1:=">=" & mavar, _
Operator:=xlAnd, Criteria2:="<=" & mavar2
Range("A1").Select
Unload Me
"anomymousA" <anomymousA@discussions.microsoft.com> a écrit dans le message
de news: EE819305-B85E-4B37-8D7B-45F19F8231F1@microsoft.com...
bonsoir,
Qu'est ce qui plante ? A quel endroit ?
Cela se plante t-il ou bien ca ne réalise pas ce que tu veux ?
Y a t-il des entêtes à ta base de données et y a t-il un filtre de défini
?
A+
Bonsoir
j'essaie de créer ce type de syntaxe déclenchée à partir d'un
commandbutton
sur mon userform
afin que si les checkbox sont cochées cela filtre, mais voilà, cela
plante...
Encore merci
Michel
Range("A2:AB50000").Select
'Toto
If CheckBox1 = True Then
Selection.AutoFilter Field:, Criteria1:="<>"
'Tata
If CheckBox2 = True Then
Selection.AutoFilter Field:, Criteria1:="<>"
'Titi
If CheckBox3 = True Then
Selection.AutoFilter Field:, Criteria1:="<>"
end if
end if
end if
En fait je voudrais que le filtre fonctionne sur les cellules concernées cela ne filtre rien du tout : ¤¤¤ Au départ, j'avais cela, mais pour je ne sais quelle raison, cela ne fonctionne pas j'ai une plage avec des chiffres de 1 à 10, et je veux pouvoir avoir après filtre les chiffres inclus en tant et tant. Merci Michel
If ComboBox2 <> "" And ComboBox3 <> "" Then mavar = ComboBox2.Value mavar2 = ComboBox3.Value Application.ScreenUpdating = False Range("A2:Q50000").AutoFilter Field:, Criteria1:=">=" & mavar, _ Operator:=xlAnd, Criteria2:="<=" & mavar2 Range("A1").Select Unload Me
"anomymousA" a écrit dans le message de news:
bonsoir,
Qu'est ce qui plante ? A quel endroit ? Cela se plante t-il ou bien ca ne réalise pas ce que tu veux ? Y a t-il des entêtes à ta base de données et y a t-il un filtre de défini ?
A+
Bonsoir j'essaie de créer ce type de syntaxe déclenchée à partir d'un commandbutton sur mon userform afin que si les checkbox sont cochées cela filtre, mais voilà, cela plante... Encore merci Michel
Range("A2:AB50000").Select 'Toto If CheckBox1 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Tata If CheckBox2 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Titi If CheckBox3 = True Then Selection.AutoFilter Field:, Criteria1:="<>" end if end if end if
Michel.Girard
Merci beaucoup Je contourne le pb Bonne soirée Michel
"Michel.Girard" a écrit dans le message de news:
Bonsoir et merci
En fait je voudrais que le filtre fonctionne sur les cellules concernées cela ne filtre rien du tout : ¤¤¤ Au départ, j'avais cela, mais pour je ne sais quelle raison, cela ne fonctionne pas j'ai une plage avec des chiffres de 1 à 10, et je veux pouvoir avoir après filtre les chiffres inclus en tant et tant. Merci Michel
If ComboBox2 <> "" And ComboBox3 <> "" Then mavar = ComboBox2.Value mavar2 = ComboBox3.Value Application.ScreenUpdating = False Range("A2:Q50000").AutoFilter Field:, Criteria1:=">=" & mavar, _ Operator:=xlAnd, Criteria2:="<=" & mavar2 Range("A1").Select Unload Me
"anomymousA" a écrit dans le message de news:
bonsoir,
Qu'est ce qui plante ? A quel endroit ? Cela se plante t-il ou bien ca ne réalise pas ce que tu veux ? Y a t-il des entêtes à ta base de données et y a t-il un filtre de défini ?
A+
Bonsoir j'essaie de créer ce type de syntaxe déclenchée à partir d'un commandbutton sur mon userform afin que si les checkbox sont cochées cela filtre, mais voilà, cela plante... Encore merci Michel
Range("A2:AB50000").Select 'Toto If CheckBox1 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Tata If CheckBox2 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Titi If CheckBox3 = True Then Selection.AutoFilter Field:, Criteria1:="<>" end if end if end if
Merci beaucoup
Je contourne le pb
Bonne soirée
Michel
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message de
news: etH05LhDFHA.4072@TK2MSFTNGP10.phx.gbl...
Bonsoir et merci
En fait je voudrais que le filtre fonctionne sur les cellules concernées
cela ne filtre rien du tout : ¤¤¤
Au départ, j'avais cela, mais pour je ne sais quelle raison, cela ne
fonctionne pas
j'ai une plage avec des chiffres de 1 à 10, et je veux pouvoir avoir après
filtre les chiffres inclus en tant et tant.
Merci
Michel
If ComboBox2 <> "" And ComboBox3 <> "" Then
mavar = ComboBox2.Value
mavar2 = ComboBox3.Value
Application.ScreenUpdating = False
Range("A2:Q50000").AutoFilter Field:, Criteria1:=">=" & mavar, _
Operator:=xlAnd, Criteria2:="<=" & mavar2
Range("A1").Select
Unload Me
"anomymousA" <anomymousA@discussions.microsoft.com> a écrit dans le
message de news: EE819305-B85E-4B37-8D7B-45F19F8231F1@microsoft.com...
bonsoir,
Qu'est ce qui plante ? A quel endroit ?
Cela se plante t-il ou bien ca ne réalise pas ce que tu veux ?
Y a t-il des entêtes à ta base de données et y a t-il un filtre de défini
?
A+
Bonsoir
j'essaie de créer ce type de syntaxe déclenchée à partir d'un
commandbutton
sur mon userform
afin que si les checkbox sont cochées cela filtre, mais voilà, cela
plante...
Encore merci
Michel
Range("A2:AB50000").Select
'Toto
If CheckBox1 = True Then
Selection.AutoFilter Field:, Criteria1:="<>"
'Tata
If CheckBox2 = True Then
Selection.AutoFilter Field:, Criteria1:="<>"
'Titi
If CheckBox3 = True Then
Selection.AutoFilter Field:, Criteria1:="<>"
end if
end if
end if
Merci beaucoup Je contourne le pb Bonne soirée Michel
"Michel.Girard" a écrit dans le message de news:
Bonsoir et merci
En fait je voudrais que le filtre fonctionne sur les cellules concernées cela ne filtre rien du tout : ¤¤¤ Au départ, j'avais cela, mais pour je ne sais quelle raison, cela ne fonctionne pas j'ai une plage avec des chiffres de 1 à 10, et je veux pouvoir avoir après filtre les chiffres inclus en tant et tant. Merci Michel
If ComboBox2 <> "" And ComboBox3 <> "" Then mavar = ComboBox2.Value mavar2 = ComboBox3.Value Application.ScreenUpdating = False Range("A2:Q50000").AutoFilter Field:, Criteria1:=">=" & mavar, _ Operator:=xlAnd, Criteria2:="<=" & mavar2 Range("A1").Select Unload Me
"anomymousA" a écrit dans le message de news:
bonsoir,
Qu'est ce qui plante ? A quel endroit ? Cela se plante t-il ou bien ca ne réalise pas ce que tu veux ? Y a t-il des entêtes à ta base de données et y a t-il un filtre de défini ?
A+
Bonsoir j'essaie de créer ce type de syntaxe déclenchée à partir d'un commandbutton sur mon userform afin que si les checkbox sont cochées cela filtre, mais voilà, cela plante... Encore merci Michel
Range("A2:AB50000").Select 'Toto If CheckBox1 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Tata If CheckBox2 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Titi If CheckBox3 = True Then Selection.AutoFilter Field:, Criteria1:="<>" end if end if end if
anonymousA
sur un exemple avec un range de A1 à C12
Private Sub CheckBox1_Click() CheckBox2 = False: CheckBox3 = False End Sub
Private Sub CheckBox2_Click() CheckBox1 = False: CheckBox3 = False End Sub
Private Sub CheckBox3_Click() CheckBox1 = False: CheckBox2 = False End Sub
Private Sub CommandButton1_Click()
Range("A2:C12").Select
'Toto If CheckBox1 = True Then MAJFiltre Selection.AutoFilter field:=1, Criteria1:="<>" Exit Sub 'Tata ElseIf CheckBox2 = True Then MAJFiltre Selection.AutoFilter field:=2, Criteria1:="<>" Exit Sub 'Titi ElseIf CheckBox3 = True Then MAJFiltre Selection.AutoFilter field:=3, Criteria1:="<>" Exit Sub End If
End Sub Public Sub MAJFiltre()
For I = 1 To 3 Range("A1:C12").AutoFilter field:=I Next
End Sub
A+
Merci beaucoup Je contourne le pb Bonne soirée Michel
"Michel.Girard" a écrit dans le message de news:
Bonsoir et merci
En fait je voudrais que le filtre fonctionne sur les cellules concernées cela ne filtre rien du tout : ¤¤¤ Au départ, j'avais cela, mais pour je ne sais quelle raison, cela ne fonctionne pas j'ai une plage avec des chiffres de 1 à 10, et je veux pouvoir avoir après filtre les chiffres inclus en tant et tant. Merci Michel
If ComboBox2 <> "" And ComboBox3 <> "" Then mavar = ComboBox2.Value mavar2 = ComboBox3.Value Application.ScreenUpdating = False Range("A2:Q50000").AutoFilter Field:, Criteria1:=">=" & mavar, _ Operator:=xlAnd, Criteria2:="<=" & mavar2 Range("A1").Select Unload Me
"anomymousA" a écrit dans le message de news:
bonsoir,
Qu'est ce qui plante ? A quel endroit ? Cela se plante t-il ou bien ca ne réalise pas ce que tu veux ? Y a t-il des entêtes à ta base de données et y a t-il un filtre de défini ?
A+
Bonsoir j'essaie de créer ce type de syntaxe déclenchée à partir d'un commandbutton sur mon userform afin que si les checkbox sont cochées cela filtre, mais voilà, cela plante... Encore merci Michel
Range("A2:AB50000").Select 'Toto If CheckBox1 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Tata If CheckBox2 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Titi If CheckBox3 = True Then Selection.AutoFilter Field:, Criteria1:="<>" end if end if end if
sur un exemple avec un range de A1 à C12
Private Sub CheckBox1_Click()
CheckBox2 = False: CheckBox3 = False
End Sub
Private Sub CheckBox2_Click()
CheckBox1 = False: CheckBox3 = False
End Sub
Private Sub CheckBox3_Click()
CheckBox1 = False: CheckBox2 = False
End Sub
Private Sub CommandButton1_Click()
Range("A2:C12").Select
'Toto
If CheckBox1 = True Then
MAJFiltre
Selection.AutoFilter field:=1, Criteria1:="<>"
Exit Sub
'Tata
ElseIf CheckBox2 = True Then
MAJFiltre
Selection.AutoFilter field:=2, Criteria1:="<>"
Exit Sub
'Titi
ElseIf CheckBox3 = True Then
MAJFiltre
Selection.AutoFilter field:=3, Criteria1:="<>"
Exit Sub
End If
End Sub
Public Sub MAJFiltre()
For I = 1 To 3
Range("A1:C12").AutoFilter field:=I
Next
End Sub
A+
Merci beaucoup
Je contourne le pb
Bonne soirée
Michel
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message de
news: etH05LhDFHA.4072@TK2MSFTNGP10.phx.gbl...
Bonsoir et merci
En fait je voudrais que le filtre fonctionne sur les cellules concernées
cela ne filtre rien du tout : ¤¤¤
Au départ, j'avais cela, mais pour je ne sais quelle raison, cela ne
fonctionne pas
j'ai une plage avec des chiffres de 1 à 10, et je veux pouvoir avoir après
filtre les chiffres inclus en tant et tant.
Merci
Michel
If ComboBox2 <> "" And ComboBox3 <> "" Then
mavar = ComboBox2.Value
mavar2 = ComboBox3.Value
Application.ScreenUpdating = False
Range("A2:Q50000").AutoFilter Field:, Criteria1:=">=" & mavar, _
Operator:=xlAnd, Criteria2:="<=" & mavar2
Range("A1").Select
Unload Me
"anomymousA" <anomymousA@discussions.microsoft.com> a écrit dans le
message de news: EE819305-B85E-4B37-8D7B-45F19F8231F1@microsoft.com...
bonsoir,
Qu'est ce qui plante ? A quel endroit ?
Cela se plante t-il ou bien ca ne réalise pas ce que tu veux ?
Y a t-il des entêtes à ta base de données et y a t-il un filtre de défini
?
A+
Bonsoir
j'essaie de créer ce type de syntaxe déclenchée à partir d'un
commandbutton
sur mon userform
afin que si les checkbox sont cochées cela filtre, mais voilà, cela
plante...
Encore merci
Michel
Range("A2:AB50000").Select
'Toto
If CheckBox1 = True Then
Selection.AutoFilter Field:, Criteria1:="<>"
'Tata
If CheckBox2 = True Then
Selection.AutoFilter Field:, Criteria1:="<>"
'Titi
If CheckBox3 = True Then
Selection.AutoFilter Field:, Criteria1:="<>"
end if
end if
end if
Private Sub CheckBox1_Click() CheckBox2 = False: CheckBox3 = False End Sub
Private Sub CheckBox2_Click() CheckBox1 = False: CheckBox3 = False End Sub
Private Sub CheckBox3_Click() CheckBox1 = False: CheckBox2 = False End Sub
Private Sub CommandButton1_Click()
Range("A2:C12").Select
'Toto If CheckBox1 = True Then MAJFiltre Selection.AutoFilter field:=1, Criteria1:="<>" Exit Sub 'Tata ElseIf CheckBox2 = True Then MAJFiltre Selection.AutoFilter field:=2, Criteria1:="<>" Exit Sub 'Titi ElseIf CheckBox3 = True Then MAJFiltre Selection.AutoFilter field:=3, Criteria1:="<>" Exit Sub End If
End Sub Public Sub MAJFiltre()
For I = 1 To 3 Range("A1:C12").AutoFilter field:=I Next
End Sub
A+
Merci beaucoup Je contourne le pb Bonne soirée Michel
"Michel.Girard" a écrit dans le message de news:
Bonsoir et merci
En fait je voudrais que le filtre fonctionne sur les cellules concernées cela ne filtre rien du tout : ¤¤¤ Au départ, j'avais cela, mais pour je ne sais quelle raison, cela ne fonctionne pas j'ai une plage avec des chiffres de 1 à 10, et je veux pouvoir avoir après filtre les chiffres inclus en tant et tant. Merci Michel
If ComboBox2 <> "" And ComboBox3 <> "" Then mavar = ComboBox2.Value mavar2 = ComboBox3.Value Application.ScreenUpdating = False Range("A2:Q50000").AutoFilter Field:, Criteria1:=">=" & mavar, _ Operator:=xlAnd, Criteria2:="<=" & mavar2 Range("A1").Select Unload Me
"anomymousA" a écrit dans le message de news:
bonsoir,
Qu'est ce qui plante ? A quel endroit ? Cela se plante t-il ou bien ca ne réalise pas ce que tu veux ? Y a t-il des entêtes à ta base de données et y a t-il un filtre de défini ?
A+
Bonsoir j'essaie de créer ce type de syntaxe déclenchée à partir d'un commandbutton sur mon userform afin que si les checkbox sont cochées cela filtre, mais voilà, cela plante... Encore merci Michel
Range("A2:AB50000").Select 'Toto If CheckBox1 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Tata If CheckBox2 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Titi If CheckBox3 = True Then Selection.AutoFilter Field:, Criteria1:="<>" end if end if end if
Michel.Girard
Un très grand merci à toi. C'est vraiment parfait ! C'est super ! Michel
"anonymousA" a écrit dans le message de news: 42093658$0$25810$
sur un exemple avec un range de A1 à C12
Private Sub CheckBox1_Click() CheckBox2 = False: CheckBox3 = False End Sub
Private Sub CheckBox2_Click() CheckBox1 = False: CheckBox3 = False End Sub
Private Sub CheckBox3_Click() CheckBox1 = False: CheckBox2 = False End Sub
Private Sub CommandButton1_Click()
Range("A2:C12").Select
'Toto If CheckBox1 = True Then MAJFiltre Selection.AutoFilter field:=1, Criteria1:="<>" Exit Sub 'Tata ElseIf CheckBox2 = True Then MAJFiltre Selection.AutoFilter field:=2, Criteria1:="<>" Exit Sub 'Titi ElseIf CheckBox3 = True Then MAJFiltre Selection.AutoFilter field:=3, Criteria1:="<>" Exit Sub End If
End Sub Public Sub MAJFiltre()
For I = 1 To 3 Range("A1:C12").AutoFilter field:=I Next
End Sub
A+
Merci beaucoup Je contourne le pb Bonne soirée Michel
"Michel.Girard" a écrit dans le message de news:
Bonsoir et merci
En fait je voudrais que le filtre fonctionne sur les cellules concernées cela ne filtre rien du tout : ¤¤¤ Au départ, j'avais cela, mais pour je ne sais quelle raison, cela ne fonctionne pas j'ai une plage avec des chiffres de 1 à 10, et je veux pouvoir avoir après filtre les chiffres inclus en tant et tant. Merci Michel
If ComboBox2 <> "" And ComboBox3 <> "" Then mavar = ComboBox2.Value mavar2 = ComboBox3.Value Application.ScreenUpdating = False Range("A2:Q50000").AutoFilter Field:, Criteria1:=">=" & mavar, _ Operator:=xlAnd, Criteria2:="<=" & mavar2 Range("A1").Select Unload Me
"anomymousA" a écrit dans le message de news:
bonsoir,
Qu'est ce qui plante ? A quel endroit ? Cela se plante t-il ou bien ca ne réalise pas ce que tu veux ? Y a t-il des entêtes à ta base de données et y a t-il un filtre de défini ?
A+
Bonsoir j'essaie de créer ce type de syntaxe déclenchée à partir d'un commandbutton sur mon userform afin que si les checkbox sont cochées cela filtre, mais voilà, cela plante... Encore merci Michel
Range("A2:AB50000").Select 'Toto If CheckBox1 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Tata If CheckBox2 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Titi If CheckBox3 = True Then Selection.AutoFilter Field:, Criteria1:="<>" end if end if end if
Un très grand merci à toi.
C'est vraiment parfait !
C'est super !
Michel
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
42093658$0$25810$8fcfb975@news.wanadoo.fr...
sur un exemple avec un range de A1 à C12
Private Sub CheckBox1_Click()
CheckBox2 = False: CheckBox3 = False
End Sub
Private Sub CheckBox2_Click()
CheckBox1 = False: CheckBox3 = False
End Sub
Private Sub CheckBox3_Click()
CheckBox1 = False: CheckBox2 = False
End Sub
Private Sub CommandButton1_Click()
Range("A2:C12").Select
'Toto
If CheckBox1 = True Then
MAJFiltre
Selection.AutoFilter field:=1, Criteria1:="<>"
Exit Sub
'Tata
ElseIf CheckBox2 = True Then
MAJFiltre
Selection.AutoFilter field:=2, Criteria1:="<>"
Exit Sub
'Titi
ElseIf CheckBox3 = True Then
MAJFiltre
Selection.AutoFilter field:=3, Criteria1:="<>"
Exit Sub
End If
End Sub
Public Sub MAJFiltre()
For I = 1 To 3
Range("A1:C12").AutoFilter field:=I
Next
End Sub
A+
Merci beaucoup
Je contourne le pb
Bonne soirée
Michel
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message
de news: etH05LhDFHA.4072@TK2MSFTNGP10.phx.gbl...
Bonsoir et merci
En fait je voudrais que le filtre fonctionne sur les cellules concernées
cela ne filtre rien du tout : ¤¤¤
Au départ, j'avais cela, mais pour je ne sais quelle raison, cela ne
fonctionne pas
j'ai une plage avec des chiffres de 1 à 10, et je veux pouvoir avoir
après filtre les chiffres inclus en tant et tant.
Merci
Michel
If ComboBox2 <> "" And ComboBox3 <> "" Then
mavar = ComboBox2.Value
mavar2 = ComboBox3.Value
Application.ScreenUpdating = False
Range("A2:Q50000").AutoFilter Field:, Criteria1:=">=" & mavar, _
Operator:=xlAnd, Criteria2:="<=" & mavar2
Range("A1").Select
Unload Me
"anomymousA" <anomymousA@discussions.microsoft.com> a écrit dans le
message de news: EE819305-B85E-4B37-8D7B-45F19F8231F1@microsoft.com...
bonsoir,
Qu'est ce qui plante ? A quel endroit ?
Cela se plante t-il ou bien ca ne réalise pas ce que tu veux ?
Y a t-il des entêtes à ta base de données et y a t-il un filtre de
défini ?
A+
Bonsoir
j'essaie de créer ce type de syntaxe déclenchée à partir d'un
commandbutton
sur mon userform
afin que si les checkbox sont cochées cela filtre, mais voilà, cela
plante...
Encore merci
Michel
Range("A2:AB50000").Select
'Toto
If CheckBox1 = True Then
Selection.AutoFilter Field:, Criteria1:="<>"
'Tata
If CheckBox2 = True Then
Selection.AutoFilter Field:, Criteria1:="<>"
'Titi
If CheckBox3 = True Then
Selection.AutoFilter Field:, Criteria1:="<>"
end if
end if
end if
Un très grand merci à toi. C'est vraiment parfait ! C'est super ! Michel
"anonymousA" a écrit dans le message de news: 42093658$0$25810$
sur un exemple avec un range de A1 à C12
Private Sub CheckBox1_Click() CheckBox2 = False: CheckBox3 = False End Sub
Private Sub CheckBox2_Click() CheckBox1 = False: CheckBox3 = False End Sub
Private Sub CheckBox3_Click() CheckBox1 = False: CheckBox2 = False End Sub
Private Sub CommandButton1_Click()
Range("A2:C12").Select
'Toto If CheckBox1 = True Then MAJFiltre Selection.AutoFilter field:=1, Criteria1:="<>" Exit Sub 'Tata ElseIf CheckBox2 = True Then MAJFiltre Selection.AutoFilter field:=2, Criteria1:="<>" Exit Sub 'Titi ElseIf CheckBox3 = True Then MAJFiltre Selection.AutoFilter field:=3, Criteria1:="<>" Exit Sub End If
End Sub Public Sub MAJFiltre()
For I = 1 To 3 Range("A1:C12").AutoFilter field:=I Next
End Sub
A+
Merci beaucoup Je contourne le pb Bonne soirée Michel
"Michel.Girard" a écrit dans le message de news:
Bonsoir et merci
En fait je voudrais que le filtre fonctionne sur les cellules concernées cela ne filtre rien du tout : ¤¤¤ Au départ, j'avais cela, mais pour je ne sais quelle raison, cela ne fonctionne pas j'ai une plage avec des chiffres de 1 à 10, et je veux pouvoir avoir après filtre les chiffres inclus en tant et tant. Merci Michel
If ComboBox2 <> "" And ComboBox3 <> "" Then mavar = ComboBox2.Value mavar2 = ComboBox3.Value Application.ScreenUpdating = False Range("A2:Q50000").AutoFilter Field:, Criteria1:=">=" & mavar, _ Operator:=xlAnd, Criteria2:="<=" & mavar2 Range("A1").Select Unload Me
"anomymousA" a écrit dans le message de news:
bonsoir,
Qu'est ce qui plante ? A quel endroit ? Cela se plante t-il ou bien ca ne réalise pas ce que tu veux ? Y a t-il des entêtes à ta base de données et y a t-il un filtre de défini ?
A+
Bonsoir j'essaie de créer ce type de syntaxe déclenchée à partir d'un commandbutton sur mon userform afin que si les checkbox sont cochées cela filtre, mais voilà, cela plante... Encore merci Michel
Range("A2:AB50000").Select 'Toto If CheckBox1 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Tata If CheckBox2 = True Then Selection.AutoFilter Field:, Criteria1:="<>" 'Titi If CheckBox3 = True Then Selection.AutoFilter Field:, Criteria1:="<>" end if end if end if
