Améliorer une macro: copier des valeurs sr plusieurs fl en ordre crois

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Améliorer une macro: copier des valeurs sr plusieurs fl en ordre crois

Coellophysis

Bonjour à tous,

Voilà, j'ai une dizaine de "Sheets" pour lesquelles je souhaite copier une valeur et la classer par ordre croissant. La dite valeur ce trouve au même endroit sur chaque feuille.

J'ai pensé à utiliser un "For each sh".. copier valeur avec le nom, ensuite, une fois que la macro a terminé, de faire un "select all" puis data sort du plus grand au plus petit.

Mais peut-être il y a un moyen plus rapide, qu'en pensez-vous?

Publicité

SuppotDeSaTante

Aka dje69r

UNE valeur par ordre alphabetique ??

Explique plus clairement ton besoin...

Message cité 1 fois

---------------
Soyez malin, louez entre voisins !

Coellophysis

SuppotDeSaTante a écrit :

UNE valeur par ordre alphabetique ??

Explique plus clairement ton besoin...

Bonsoir,

j'ai 13 personnes (un nom par feuille), chacun à le même tableau avec une somme total. Je voudrais que la macro copie la valeur totale ainsi que le nom sur une feuille supplémentaire qui représenterai le classement général de la journée. Bien entendu, je voudrais qu'il mette la personne qui a eu la valeur la plus élevée en 1er, ensuite le second et ainsi de suite.

Bien à toi
Coellophysis

Message édité par Coellophysis le 11-10-2010 à 19:47:15

SuppotDeSaTante

Aka dje69r

Hello

Ok, je comprends mieux

Essaie qqchose comme ceci :

Code :

Sub Coellophysis()
NomPageTotal = "Somme" 'feuille sur laquelle mettre les totaux
CelluleTotal = "A21" 'cellule où se trouve tes totaux par personnes/onglet
'On recupere la ligne et la colonne de 'CelluleTotal'
Col = Range(CelluleTotal).Column
Ligne = Range(CelluleTotal).Row
'On passe sur chaque feuille
For x = 1 To Sheets.Count
'Si le nom de la feuille est different de celle des totaux
If Sheets(x).Name <> NomPageTotal Then
'On met en colonne A de la feuille des Totaux les noms des onglets
Sheets(NomPageTotal).Cells(x, 1) = Sheets(x).Name
'On met en colonne B de la feuille des Totaux les valeurs de chaque onglet _
de la cellule 'CelluleTotal'
Sheets(NomPageTotal).Cells(x, 2) = Sheets(x).Cells(Ligne, Col)
End If
Next x
'On selectionne la page des totaux
Sheets(NomPageTotal).Select
'On selectionne les colonnes A et B
Columns("A:B" ).Select
'On trie par ordre decroissant de B, qui contient les montants
Selection.Sort Key1:=Range("B1" ), Order1:=xlDescending
'On selectionne A1
Range("A1" ).Select
End Sub

---------------
Soyez malin, louez entre voisins !

Coellophysis

Merci dje69r

ça a marché du tonnerre ;D

SuppotDeSaTante

Aka dje69r

:jap:

---------------
Soyez malin, louez entre voisins !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Améliorer une macro: copier des valeurs sr plusieurs fl en ordre crois

Sujets relatifs
Besoin d'aide pour un copier/coller sur filtres en vba	[Résolu] MsSql 2005 : comment vider des log de plusieurs Go?
[PHP] Récupérer toutes les valeurs de devises	Maximum entre plusieurs colonnes
Plusieurs count dans une requete sql	Macro excel coloration de cellules sous conditions
copier un dossier qui contient un "é"	[OpenOffice macro] publipostage avec un fichier txt externe
[RESOLU] addition de plusieurs heures, minutes	Inclure plusieurs fichiers xml dans un seul
Plus de sujets relatifs à : Améliorer une macro: copier des valeurs sr plusieurs fl en ordre crois

Page générée en 0.051 secondes