Problème Filtre avancé, code erreur
Résolu/Fermé
ti_mouton
Messages postés
143
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
5 septembre 2020
-
20 juil. 2015 à 09:46
ti_mouton Messages postés 143 Date d'inscription vendredi 29 mai 2015 Statut Membre Dernière intervention 5 septembre 2020 - 20 juil. 2015 à 11:35
ti_mouton Messages postés 143 Date d'inscription vendredi 29 mai 2015 Statut Membre Dernière intervention 5 septembre 2020 - 20 juil. 2015 à 11:35
A voir également:
- Problème Filtre avancé, code erreur
- Erreur 0x80070643 - Guide
- Photo filtre gratuit - Télécharger - Retouche d'image
- Code asci - Guide
- Code erreur t32 ✓ - Forum Livebox
- Code puk bloqué - Guide
3 réponses
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
20 juil. 2015 à 10:06
20 juil. 2015 à 10:06
Bonjour,
Ton fichier est inaccessible et le bout de code que tu proposes ne nous permet pas de t'aider... Toutefois, sélectionner une plage d'un onglet autre que l'onglet actif, nécessite la sélection au préalable de cet onglet. Le code correct serait :
On devrait pouvoir se passer des Select qui ne font que ralentir l'exécution du code mais il faudrait le code en entier...
Ton fichier est inaccessible et le bout de code que tu proposes ne nous permet pas de t'aider... Toutefois, sélectionner une plage d'un onglet autre que l'onglet actif, nécessite la sélection au préalable de cet onglet. Le code correct serait :
With Sheets(1)
.Select
.Range(.Cells(4, 1), .Cells(DL, 4)).Select
End With
On devrait pouvoir se passer des Select qui ne font que ralentir l'exécution du code mais il faudrait le code en entier...
jordane45
Messages postés
38145
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 avril 2024
4 650
20 juil. 2015 à 10:14
20 juil. 2015 à 10:14
Bonjour,
Je n'ai pas regardé ton fichier .. mais dans un premier temps pour que tu puisse essayer de trouver l'erreur... as tu regardé, lorsque ça plante..., ce que vaut ta variable DL ?
Je n'ai pas regardé ton fichier .. mais dans un premier temps pour que tu puisse essayer de trouver l'erreur... as tu regardé, lorsque ça plante..., ce que vaut ta variable DL ?
ti_mouton
Messages postés
143
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
5 septembre 2020
Modifié par jordane45 le 20/07/2015 à 10:42
Modifié par jordane45 le 20/07/2015 à 10:42
Voici mon code en entier :
EDIT : Ajout du LANGAGE dans les balises de code (la coloration syntaxique).
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
Merci d'y penser dans tes prochains messages.
.
Sub FiltreAvance() Dim DL As Integer DL = Sheets(1).Cells(Application.Rows.Count, 1).End(xlUp).Row Sheets(1).Range(Cells(4, 1), Cells(DL, 4)).Select Selection.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets(2).[B1:B2], CopyToRange:=Sheets(2).[B6], Unique:=True End Sub
EDIT : Ajout du LANGAGE dans les balises de code (la coloration syntaxique).
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
Merci d'y penser dans tes prochains messages.
.
jordane45
Messages postés
38145
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 avril 2024
4 650
20 juil. 2015 à 10:44
20 juil. 2015 à 10:44
Lorsque ça plante... n'aurais tu pas des lignes masquées ? (déjà filtrées peut être....)
ti_mouton
Messages postés
143
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
5 septembre 2020
>
jordane45
Messages postés
38145
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 avril 2024
20 juil. 2015 à 10:49
20 juil. 2015 à 10:49
Non :(
jordane45
Messages postés
38145
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 avril 2024
4 650
>
ti_mouton
Messages postés
143
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
5 septembre 2020
20 juil. 2015 à 10:51
20 juil. 2015 à 10:51
Donc je te repose la question ...
Lorsque ça plante .... que vaut la variable DL ? (sa VALEUR ...Celle que tu peux voir lorsque tu places le curseur de la souris dessus quand tu es en mode pas à pas ...)
Lorsque ça plante .... que vaut la variable DL ? (sa VALEUR ...Celle que tu peux voir lorsque tu places le curseur de la souris dessus quand tu es en mode pas à pas ...)
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
20 juil. 2015 à 11:15
20 juil. 2015 à 11:15
Re,
Quand tu lances le code, quel est l'onglet actif ? Si ce n'est pas le premier onglet (sheets(1)) il te faut écrire :
Comme je te l'avais suggéré dans mon premier post...
Il est vraiment regrettable qu'on soit obligé, Jordane et moi, de te tirer les vers du nez pour t'aider. Tu pourrais au moins faire l'effort de répondre à nos questions. Après tout c'est pour toi qu'on le fait !...
Quand tu lances le code, quel est l'onglet actif ? Si ce n'est pas le premier onglet (sheets(1)) il te faut écrire :
With Sheets(1)
.Select
.Range(.Cells(4, 1), .Cells(DL, 4)).Select
End With
Comme je te l'avais suggéré dans mon premier post...
Il est vraiment regrettable qu'on soit obligé, Jordane et moi, de te tirer les vers du nez pour t'aider. Tu pourrais au moins faire l'effort de répondre à nos questions. Après tout c'est pour toi qu'on le fait !...
ti_mouton
Messages postés
143
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
5 septembre 2020
>
jordane45
Messages postés
38145
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 avril 2024
20 juil. 2015 à 11:29
20 juil. 2015 à 11:29
La valeur indiquée est 15889
