Programmer copier coller et filtrage de données

Nouveau problème pour moi: Comment programmer en format enregistrement de macro l'action de filtrer sur une colonne toutes les cellules ne contenant pas une certaine donnée?

En fait, par exemple, si j'ai dans ma colonne A les données as, df, gh, jk; et que je veux filtrer pour afficher tout sauf la donnée as, Visual basic me donne le code suivant:

Code:

---

ActiveSheet.Range("$A$1:$A$22").AutoFilter Field:=1, Criteria1:=Array("df", gh", "jk"), Operator:=xlFilterValues

---

Le problème est que dans mon cas, les (df, gh, jk) ne seront pas toujours les mêmes. Certains s’ajouteront avec le temps. Je ne veux donc pas comme le code le propose afficher les (df, gh, jk) mais je veux afficher tout ce qui n’est pas du (as).

J’ai donc désormais ce problème et celui du lancement de la macro plus intuitivement que je ne parvient pas a résoudre :(

Salut,
Tu n'as pas du utiliser la bonne méthode de filtre, avec l'enregistreur tu aurais du avoir un truc du genre:

Code:

---

Selection.AutoFilter Field:=1, Criteria1:="<>as"

---

Si tu adaptes pour ton cas, ça devrait donner:

Code:

---

ActiveSheet.Range("$A$1").AutoFilter Field:=1, Criteria1:="<>as"

---

A+

J'avais deja essayé comme ca Fvandermeulen mais ca ne fonctionne pas. Etant donné que le nombre de ligne varie chaque mois, je suis obligé de faire la selection sur toute la colonne et pas seulement sur les cellules remplies.

Du coup, en faisant l'opération

Code:

---

=NB.SI(A:A;"<>as")

---

, je me retrouve avec un resultat correspondant à 65536-le nombre de "as".

En bidouillant, j'arrive a créer une formule me donnant le résultat mais c'est pas tres jolie :S

Je met donc:

Code:

---

=NB.SI(A:A;"<>as")-NB.SI.ENS(A:A;"<>as";A:A;"")

---

Je pense partir là dessus mais si vous avez mieux je suis preneur ^^

Merci

Salut,
Je comprends plus, tu parles de filtres et puis de Nb.Si que veux tu faire exactement ?
A+

En fait, quand je ne connais pas la facon d'ecrir une formule, je fait des test, en créant des filtres,... tout en enregistrant une macro. Après, je vais regarder le code et comprend comment l'ecrir.

Pour cet exemple, en gros, j'ai une feuille avec plein de données, j'en cré une autre, je construit un tableau avec une belle mise en page (tout ca en enregistrement de macro), et pour le remplir, j'utilise des formules.

Mais je ne suis pas un specialiste d'excel du tout :P

Voici par exemple une ligne de formule:

Code:

---

=MOYENNE.SI.ENS(Jan09!R:R;Jan09!D:D;"*medos*";Jan09!F:F;"<>na";Jan09!F:F;"<>n/a")

---

Ca me donne la moyenne des données de la colonne R de la feuille Jan09, lorsque dans la colonne F, il n'y a pas écrit na ou n/a et que dans la colonne D, il y a le mot "Medos" de contenu.

Mais je ne parvient pas a ecrire une formule qui me ferait exactement la même chose, mais au lieu dd'avoir comme 2eme et 3eme critere l'obligation de ne pas inclure les lignes ou il y a na ou n/a dans la colonne F; aurait comme critere l'obligation de ne prendre en compte aue les lignes ou il y a tout sauf na ET n/a dans la colonne F.

Jespere avoir été clair :S

Salut,
Désolé mais je ne suis toujours pas certain d'avoir bien capté (du coup je peux pas te pondre une formule toute faite) mais en tout cas va voir du côté des fonctions d'opération 'OU' et 'ET' et aussi les formules matricielles, tu verras souvent SommeProduit, moi j'utilise plutôt les 'Somme(si' mais c'est une question d'habitude.

En fait il faut que tu précise si les N/A sont du simple text ou le résultat d'une formule car alors on parle de #N/A et le traitement n'est pas indentique...

A+

Non le NA et N/A sont du simple texte. Désolé pour l'ambigutée je ne savait pas qu'un resultat de formule pouvait donner du NA :)

Re,
Sur base de ton exemple:

Code:

---

=MOYENNE.SI.ENS(Jan09!R:R;Jan09!D;"*medos*";Jan09!F:F;"<>na";Jan09!F:F;"<>n/a")

---

Voici avec la méthode de formule matricielle 'somme(si', attention j'ai pas testé, jespère ne pas avoir fait d'erreur...

Code:

---

{=somme(si(jan09!d:d<>"Medos";si(jan!09!F:F<>"na";si(jan!09!F:F<>"N/A";jan09!R:R;0))))/somme(si(jan09!d:d<>"Medos";si(jan!09!F:F<>"na";si(jan!09!F:F<>"N/A";1;0))))}

---

Comme c'est une formule matricielle il faut les {}, pour ça il faut valider la formule par Ctrl+Shift+Enter

Comme j'ai pas accès à Excel j'ai pas testé non plus si

Code:

---

={moyenne(si(jan09!d:d<>"Medos";si(jan!09!F:F<>"na";si(jan!09!F:F<>"N/A";jan09!R:R;0))))}

---

Et je rappelle qu'il doit y avoir moyen de "simplifier" avec les opérateurs.

A+

Edit: Adapation du text pour avoir d:d au lieu de D:D
Faut plus utilser la colonne D ça fout le bord.. dans les posts ;)

Super j'ai réussi à me debrouiller avec les bouts de codes merci beaucoup pour toute ton aide!

Une petite auestion mais je ne pense pas que ce soit possible, si j'ai une colonne comme ca:


as
as
df
df
as
df
er
as
er
er
df
df
as
er
as
df


Est'il possible de se retrouver dans une autre feuille avec:

nom quantité
as 6
df 6
er 4


Je cherche juste la manip excel, soit avec formule, ou avec des fonctions. Je pense qu'il y q aachose a faire avec l'omglet Données mais je n'y arrive pas.

Sachant que des nouveaux "noms" seront créés a chaque MAJ.

Tks

Re,
Tu as plusieurs possibilités, la plus simple, à mon sens, est d'utiliser un tableau croisé dynamique.

Sinon, le plus "gênant" est d'avoir la liste 'nettoyée', là aussi, plusieurs possibilités, il doit y avoir moyen par formule, fais des recherches avec "Doublon" sur ce forum.
Tu peux aussi utiliser le filtre avancé, en sélectionnant 'enregistrement unique' et copier à un autre endroit (désolé c'est de la traduction aproximative je suis en version GB)
Sur base de ça, imaginons ta liste de base sur la feuille Données plage A2:A17 et la liste 'nettoyée' avec la somme sur la feuille Récap plage A2:A4, la formule matricielle serait:

Code:

---

{=SUM(IF(Données!$A$2:$A$17=Récap!A2;1;0))}

---

Petit rappel pour avoir les {} nécessaires il faut valider la formule par Ctrl+Shift+Enter.

A+

J'ai un problème avec ce bout de code que tu m'as donné:

Citation:

---

Envoyé par Fvandermeulen

Salut,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Workbook_Open()   Application.CommandBars(1).Controls("Macro Perso").Delete 'Supprime "Macro perso" pour éviter bug si déjà présente   With Application.CommandBars(1).Controls.Add(msoControlPopup, , , 10) .Caption = "Macro Perso" 'Ajout de la barre "Macro Perso"   'Explication sur la macro associé au bouton qu'on va créer... With .Controls.Add(msoControlButton) .Caption = "Trait. Fichier" 'Libellé du bouton .FaceId = 505 'Image associée .OnAction = "TaMacro" 'Nom de la macro à lancer .BeginGroup = False 'Permet de mettre des lignes de séparation si plusieurs Items End With End sub

---

Il faut aussi prévoir de l'enlever à la fermeture du fichier (c'est plus propre)

Code:

---

1 2 3 4 5 6

Private Sub Workbook_BeforeClose(Cancel As Boolean)   On Error Resume Next Application.CommandBars(1).Controls("Macro Perso").Delete   End Sub

---

A+

---

Deja, il manquait un End With que j'ai ajouté apres cette ligne:
.Caption = "Macro Perso" 'Ajout de la barre "Macro Perso"

C'est juste?

Sinon, maintenant, il me renvoi une "erreur de compilation" sur le .Controls de l'"explication sur la macro associé au bouton qu'on va creer..."

Merci d'avance de ton aide

C'est bon j'ai trouvé désolé!!!

En fait j'ai éal placé le end with il fallait le mettre a la fin ^^

J'avais un probleme avec la ligne pour supprimer les eventuels "Macro perso" mais je l'ai supprimé et l'ai plutot renomé par un nom propre a cette macro.

Du coup tout roule c'est super.

Je poursuit donc mon travail :)

Bon ca n'aura pas été long pour mon probleme suivant :(

Du fait d'avoir enregistré une macro personnelle, si j'ouvre un document Excel, puis un second meme sans qu'aucun des deux n'ait un rapport avec la macro, j'ai le message:

"fichier en cours d'utilisation.

PERSONAL.XLSB est verrouillé pour modification

par "moi".

Ouvrez le document en utilisant Lecture seule ou cliquez sur Notifier pour ouvrir......."

Avec comme proposition d'action: "lecture seule, notifier, annuler".

Comment fair pour que cette fenetre ne s'affiche pas a chaque fois svp??

Merci beaucoup


EDIT:

Je ne sais plus pourquoi mais je n'ai plus ce probleme, mais par contre, maintenant, si je veux enregistrer une macro ds le classeur de donnees personnelles, j'ai le éessage suivant:
"Le classeur Macros personnelles dans le dossier de demarrage doit etre ouvert pendant l'enregistrement".

J'ai cherché sur google, fait une manip proposée, mais ca n'a pas vraiment fonctionné. Et je prefere avoir les bons conseils propres a mon cas pour ne pas faire de betise ^^

Merci beaucoup d'avance :-)

Salut,
Désolé j'ai pas trop été dispo ces derniers temps mais je vois que tu t'es bien débrouillé, désolé pour le With manquant, je me demande bien où il est resté :calim2:

Pour ce qui est des macro person vu l'extention je devinne que tu es sur 2007, comme je ne suis que sur 2003, je t'avoue que je ne sais pas du tout, j'ai jamais eu ce cas de figure...

Je te conseille de rouvrir un nouveau post avec que cette question, tu auras certainement plus de réactions. Et précise bien que tu es sur 2007, tu peux choisir ça dans la création du message.

A+

Salut!

Comme tu me l'a conseillé, j'ai créé un post mais je n'ai pas eu de reponse resolvant mon probleme.

C'est finalement en cherchant sur internet que j'ai trouvé. Voici la réponse que j'ai laissé à mon post (ca audera peut etre qq aui passerai par là):

Voici comment je m'y suis pris. En fait, j'ai suivi une explication trouvées sur internet pour office 2003 et je l'ai modifié.

1/ Ouvrir Excel
2/ Masquer le classeur --> Affichage - Masquer
3/ Enregistrer sous --> C:programmes files/microsoft office/office12/XLSTART
--> Avec le Nom Personal.xlsb
4/ Fermer Excel.

----------------------------------------

Par contre, j'ai un probleme avec le morceau de code que tu m'avais donné. Celui là:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Workbook_Open()   Application.CommandBars(1).Controls("Macro Perso").Delete 'Supprime "Macro perso" pour éviter bug si déjà présente   With Application.CommandBars(1).Controls.Add(msoControlPopup, , , 10) .Caption = "Macro Perso" 'Ajout de la barre "Macro Perso"   'Explication sur la macro associé au bouton qu'on va créer... With .Controls.Add(msoControlButton) .Caption = "Trait. Fichier" 'Libellé du bouton .FaceId = 505 'Image associée .OnAction = "TaMacro" 'Nom de la macro à lancer .BeginGroup = False 'Permet de mettre des lignes de séparation si plusieurs Items End With End sub

---

En fait, apres avoir rajouté le End with, j'ai eu une autre erreur sur la ligne de suppression de "macro perso". Je l'ai supprimée, et ca a fonctionné :)

Par contre, maintenant, a chaque nouveau lancement, je me retrouve avec un "macro perso" de plus dans l'onglet "complement". Probablement la ligne que j'ai supprimé ^^

Pourrais tu me dire si elle est bien correct stp?

Merci

Citation:

---

C'est finalement en cherchant sur internet que j'ai trouvé. Voici la réponse que j'ai laissé à mon post (ca audera peut etre qq aui passerai par là):

---

:ccool:


Pour l'autre problème il faudrait savoir pourquoi la ligne te bloque mais elle n'est pas essentielle dans ce code, par contre à me de tester l'existance du menu perso il faut le supprimer pour ne pas avoir la multiplication que tu constate.

Tu peux mettre dans le module du classeur un code sur la fermeture comme celui-ci:

Code:

---

1 2 3 4 5 6

Private Sub Workbook_BeforeClose(Cancel As Boolean)   On Error Resume Next Application.CommandBars(1).Controls("Macro Perso").Delete   End Sub

---

Adapte bien sûr le nom du controle à ton cas.

A+

Salut!

C'est bien ce que j'avais deja mais ca ne supprime pas...

Voici exactement ce que j'ai dans le ThisWorkbook de mes macros perso:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub Workbook_Open()     With Application.CommandBars(1).Controls.Add(msoControlPopup, , , 10) .Caption = "Macro Perso"     With .Controls.Add(msoControlButton) .Caption = "Trait. Fichier" .FaceId = 505 .OnAction = "tableau2009" .BeginGroup = False 'Permet de mettre des lignes de séparation si plusieurs Items End With End With End Sub     Private Sub Workbook_BeforeClose(Cancel As Boolean)   On Error Resume Next Application.CommandBars(1).Controls("Macro Perso").Delete   End Sub

---

J'ai laissé le nom de "macro perso".

Je pensais que c'etait la premiere ligne de la premiere partie que tu m'avais donné qui permettait de ne pas avoir un nouveau "macro perso" de créé a chaque fois. A savoir:

Code:

---

Application.CommandBars(1).Controls("Macro Perso").Delete 'Supprime "Macro perso" pour éviter bug si déjà présente

---

Etant donné que vba me donnait une erreur sur cette ligne, je l'ai supprimée.

Sinon, en plus, je me retrouve avec le premier probleme sur les macros persos. Je le remet:

Citation:

---

Du fait d'avoir enregistré une macro personnelle, si j'ouvre un document Excel, puis un second meme sans qu'aucun des deux n'ait un rapport avec la macro, j'ai le message:

"fichier en cours d'utilisation.

PERSONAL.XLSB est verrouillé pour modification

par "moi".

Ouvrez le document en utilisant Lecture seule ou cliquez sur Notifier pour ouvrir......."

Avec comme proposition d'action: "lecture seule, notifier, annuler".

Comment fair pour que cette fenetre ne s'affiche pas a chaque fois svp??

---

Re,
Là ça me dépasse, je n'ai aucun souci chez moi avec la même procédure, j'imagine donc que c'est lié à la version et comme je t'ai dit étant donné que je suis sur 2003, je vais avoir du mal à t'aider, vraiment désolé :calim2:

A+