Bonjour

problème 1 :

tu appliques un filtre avec une personnalisation pour la deuxième colonne du fait de 2 critères.
ensuite tu sélectionnes tes lignes puis couper et coller où tu veux.


problème 2 :

Faire la somme des valeurs de chaque colonne(4 colonnes) sur la 1ère ligne vierge au bas du tableau.

fait la somme en ligne 2 après le titre, avec la formule :

=somme(d3:d65536)

toujours zen

Bonjour et merci pour les réponses.
Problème 1 :
Il s'agit de faire une macro comme indiqué dans mon premier message qui est parti trop vite .
Je peux appliquer les filtres mais en fonction du fichier de départ le nombre de lignes filtrées à copier peut varier. Comment repérer les lignes à copier ?
Je viens de tester un couper/coller après un filtre, mais la copie prend toutes les lignes du tableau et pas uniquement les lignes filtrées...est ce normal ?
Voici mes nouvelles interrogations

Bonjour, merci solcosmico pour cette fantastique macro qui repond a un besoin que j'avais egalement. Cependant en ce qui me concerne il y a une nuance et comme je connais trop peu le langage VB je me permets de poser la question:
il s'agit du meme modele de macro que du tien mais avec la difference suivante: dans mon tableau avec colonnes Nom Prenom Sexe Age, je mets "M" ou "F" sous sexe, mais c'est uniquement le Nom qui doit se copier dans un autre onglet (pas toute la ligne Nom Prenom Sexe Age). Il se peut que j'aie a poser d'autres questions similaires, si ca ne derange pas... merci d'avance en tout cas

Configuration: Windows XP
Internet Explorer 6.0

Et deja j'ajoute la question suivante: comment faire pour que le "tri" d'une donnee vers l'un ou l'autre des onglets s'applique uniquement a la derniere ligne que l'on vient d'entrer (et non pas a toute la plage de cellules)? Ou alternativement, comment faire pour que lorsqu'on execute la macro, elle n'applique pas encore une fois le tri a toutes les donnees (mais uniquement aux dernieres donnees introduites)? Merci!

Configuration: Windows XP
Internet Explorer 6.0

Bonjour tout le monde,

Voilà, je trouve la macro proposée très interéssante... J'ai un problème similaire à ce sujet, si cela ne vous dérange pas que je la pose ici-même, cela va peut-être pouvoir répondre également à d'autres problèmes posés.

dans mon tableau Excell, j'ai une feuille1 qui contient ceci :

Nom Entreprise Nbre d'Accident

Entrp1 5
Entrp2 1
Entrp3 3
Entrp1 1

Comme vous pouvez le voir, une entreprise peut se répeter plusiurs fois (ici Entrp1).

Je voudrais pouvoir faire en sorte de faire un récapitulatif dans une Feuille2 du nombre d'accident par entreprises, exemple :

Entrp1 6 (5+1)
Entrp2 1
Entrp3 3

Le vrai problème est qu'on puisse reperer que le nom d'une entreprise se répete, et copier seulement qu'une seule fois le nom de cette entreprise et calculer (somme) le nombres d'accident que cette entreprise à pu generer.

Merci beaucoup de votre aide, et encore désolé si je pertube le veritable sujet.

Bonjour gbinforme,

La seule chose que je voudrais te dire c'est MERCI :)

Ca marche très très bien. Je ne sais quoi te dire d'autre, tu me sauve la vie, et je peux enfin avancer dans mon travail.

Avec ta permission je voudrai garder contact avec toi :)

Merci encore.

Bonjour,

Tu peux aussi utiliser un tableau croisé dynamique
- Sélectionner ta zone de données avec les noms des champs
- menu 'données / Rapport de tableau croisé dynamique puis 'terminer' (plus tard tu pourras passer par 'suivant' pour voir d'autres possibilités)
- dans la liste des champs tu prends 'nom_entreprise' que tu déposes dans 'champs de lignes'
- dans la liste des champs tu prends 'nbre_accidents' que tu déposes dans zone de 'Données'

Par défaut c'est le total des valeurs mais ça pourrait être le nombre, la moyenne etc
Et si tu double-cliques sur un total ça t'extrait les lignes concernées dans une nouvelle feuille
Ce n'est qu'un aperçu de ce que tu peux faire avec les tableaux croisés dynamiques

eric

PS : Sin devient Swindler, je me suis inscrit sur le forum :)

Merci Eric pour ta proposition, très interessante, je viens de la tester, seulement voilà (peut-être que j'utilise mal) :

Il me fait bien la somme, et ne copie pas 2 fois le même nom d'entreprise, jusque là tout va bien, mais dès que j'ajoute une nouvelle entreprise dans ma Feuille1, il ne la compte pas. Hors dans la formule précedente de " gbinforme" cela marche.

J'ai quand même essayé avant de creer le tableau, de selectionner une plus grande zones de données, mais là il met dans le tableau dynamique, un champ vide, et c'est tout...

Parcontre j'avous que le tabelau dynamique est interessant.

Pour encore mieu améliorer le sytème, j'essai de faire en sorte que maintenant, je n'ai plus besoin de noter le nombre d'accident par entreprise, puisque le fait d'ecrire le nom d'une entreprise équivaut à 1 accident. Exemple :

Entrp 1
Entrp 5
Entrp 7
Entrp 5
Entrp 2
Entrp 5

On ne rentrera seulemnt que les nom, et on obtiendra : Entrp 5 = 3 accident (vu que le nom se repete 3 fois) etc etc...

Justement ceci je n'arrive pas à le faire :(

Je suis vraiment désolé, je suis un vrai débutant qui essai d'apprendre...

Merci encore pour vos réponse et votre aide précieuse.


Swindler

Pour la mise à jour:
-Sélectionne les colonnes (en cliquant-glissant sur les noms des colonnes sur fond gris A B C...) plutôt qu'une zone pour définir ton tableau croisé
- Dans le tableau croisé tu as une barre d'outils, clique sur ! rouge pour mettre à jour, ou clic-droit dans le tableau et 'actualiser les données'.

Pour compter au lieu d'additionner:
-dans le tableau croisé sélectionne un total
- dans la barre d'outil utilise l'outil 'parametres de champ' et choisi la fonction que tu veux (nombre ou nb)

eric

Encore merci Eric,

Ca à marché, seulement je ne comprend pas pourquoi dans le tabelau dynamique, dans "champ de ligne" il me met bien le nom des entreprise et un champ (vide).

Sachant que je vais faire un graphique après, il risque de me copier (vide) également.

D'où peut bien sortir ce nom (vide) ??

Merci Eric

Il veut comptabiliser les valeurs vides également. Sur le nom de ton champ dans le TCD tu as une liste déroulante pour choisir les valeurs affichées, décoche '(vide)'
eric

Exact, je ne suis pas fufute là :(

Derniere question Eric, peut-on éviter de "rafréchir" à chaque modification ?? On ne peut pas mettre un timer de rafrachissement automatique ???

Merci :)

Honnetement tu vas aller le voir à chaque saisie le TCD ?
Ca serait pas un truc de faineant ça faire une macro pour éviter un clic ? ;-)
Sinon oui tout est faisable... mais si tu veux faire met le plutôt dans l'evement 'change' que par un timer. Déjà il sera vraiment à jour à chaque consultation et c'est bcp plus simple à faire. Tu enregistres la macro en faisant le rafraichissement, tu l'adaptes un peu le code et tu le colles là`où ça va bien (evenement change de ta feuille)
eric

Merci Eric :)

Ce n'est pas moi le féneant :)

Disons que ce fichier sera consulté et modifier assez régulièrement par la secretaire, donc j'essai de lui facilité la tache au maximum, mais j'avous qu'une petite formation sur le clic droit rafraichir serai à faire (rire).

Merci beaucoup de ton aide :)

Déproteger une feuille en début de macro:

Sheets("Feuil2").Unprotect

Sheets("Feuil2").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Private Sub Worksheet_Activate()
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
End Sub

Bonjour Eric,

Merci encore pour ton message...

Dis moi, quand tu dis : Déproteger une feuille en début de macro. C'est pour "activer/désactiver" une macro ?
Parcontre je n'ai pas très bien compris où je dois mettre Sheets("Feuil2").Unprotect et Sheets("Feuil2").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Pour ce qui est des 3 dernière ligne ca j'ai compris...

En fait je ne compreznd pas à quoi servent ces ligne et où les mettre éxactement...

Merci encore pour ta réponse.

:)

C'est bon j'ai trouvé ^^

Ca marche bien et voir même super bien :)

Et bien encore merci Eric pour ce fameux cours que tu m'as donné là...

A très bientôt :)