demande d'aide pour macro

Bonjours tous le monde.
J'aimerais vous demande votre aide.

Voila je ne connais pas grand chose au macro sous excel.

Mais je dois gerer un fichier comportant un grand nombre de colonnes, dont l'une d'elle permet de classer toutes lignes suivant des projets.

Par exemple la ligne 1 appartient au projet 1, la ligne 2 au projet 4 par exemple.
Les lignes ne sont pas organisé suivant les projets, mais dans le desordre.

J'ai dans dans une feuille excel toutes ces donnes et je voudrais classer toutes les lignes pour un projet donnes, et pour chaque projet creer une feuille a part dans le meme classeur. Ansi dans le classeur, la feuille 1 correponds a toutes les donnees, la feuille deux devras correpondre au projet 1, etc....

Ensuite pour chaque feuille (celle des projets), il y a donc plusieurs colonne, (leur nombre est encore inconnue pour le moment) et pour chaque colonne je voudrais faire la moyenne et ensuite generer le graphique de ces moyennes pour chaqu'un de ces projets.

Je sais pas si c'est tres claire, mais j'ai vraiment besoin d'aide sur ce coup la.
Merci de m'aider ou de m'orienter vers un bon cours de macro ou je pourrais voir tous ce dont j'ai besoin faire tous ce dont j'ai besoin

Salut
tu te dis dis débutant en VBA (c'est pas grave, ça se guérit ici)
Comment veux-tu qu'on t'aide ? On ne peut pas te fournir juste une idée avec la nécessité d'une grosse adaptation. Il faut t'aider à la construire pas-à-pas.

Pour ça, il faut un fichier d'essai qui contient ta premire feuille, un dizaine de ligne avec quelques colonnes dont celles contenant l'identifiant du projet
T'en met une seconde que tu construis à partir de la première et qui refète ce que tu attends. Comme tu la fais à la main, avec des copier/coller, t'as pas besoin de t'y connaitre en VBA

à partir de cette base, on pourra commencer à faire une macro qui fera un double de ta feuille (et la même chose pour les autres projets).

A+
NOTA dans les fichiers transmis, il ne faut pas de données personnelles. Toujours remplacer les textes explicites, par des lettres

Merci pour ta reponse.
Mais depuis hier, j'ai bien bosser et tous seul en plus.................:lol:
Mais j'ai un probleme que je n'arrive pas a surmenter ou plutot 2.

Probleme 1 :
Comment on fait pour avoir le nom d'uen colonne si on a son numero.
Par exemple si on met :

Code:

---

1 2 3

Columns(col).Select NomCol = ActiveCell.Column

---

avec col=1, on devrais avoir NomCol=A

Probleme 2:
Je voudrais une fois que tous ça est fait, selectionner une ligne en particulier et ensuite a partir de cette ligne en tirer uen grahique eb baton.
Je sais pas si je suis tres claire la on faite?

SALut
Pour le 1er probleme (je n'est pas excel sous la main) mais je pense que comme ca ca oit fonctionner

Code:

---

Columns(NumCol).Name

---

Pour ton 2eme probleme le mieux serait de faire dans le menu Outils-> Macro -> Nouvelle macro...
Puis tu laisse le nom par defaut ca va tres bien et OK
Ensuite Excel enregistre et cré le code VBA qui correspond au actions que tu effectue, ainsi il te suffit de selectionner ta ligne et faire ton tableau. Tu clique sur le bouton Arreter (le carré, qui se trouve dans le petit menu qui c'est ouvert juste apres avoir choisi le nom de ta macro).
Ensuite tu vas danbs VBA et tu regarde dans les module l'un d'eux (le derniere) contient ta macro nouvellement créé avec a l'interieur le code qui permet de créer un graphique baton (si toi meme tu as fit un graphique baton lors de l'enregistrement)

A++
Qwaz

bonjour,

Citation:

---

Pour le 1er problème (je n'est pas Excel sous la main) mais je pense que comme ça, ça doit fonctionner

Code:

---

1 2	Columns(NumCol).Name

---

---

Eh non! :nono: :mouarf:

pour avoir les lettres de la colonne

Code:

---

NomCol = Split(Columns(col).Address, ":$")(1)

---

cordialement

La réponse de fred65200 n'étant applicable que pour une seule colonne entière, je vais donner ma méthode applicable sur toute plage pour obtenir la colonne à l'extrême gauche de la plage.

Code:

---

1 2 3 4 5 6 7 8 9

Function GetColumnA1Name(ByVal c As Range) As String ' Renvoit la valeur litérale de colonne de la première cellule de la plage c Dim pos As Long   pos = InStr(2, c.Address, "$") If Not pos = 0 Then GetColumnA1Name = Mid(c.Address, 2, pos - 2) End If End Function

---

;)

Salut à tous
chez moi
Columns(10).Name
indispose tellement Excel, qu'il me traite d'erreur 1024 :P

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim NomCol As String Dim Col As Integer Col = 100 NomCol = Cells(1, Col).Address(0, 0) NomCol = Left(NomCol, IIf(Len(NomCol) > 2, 2, 1)) End Sub

---

évidemment, on pourrait tout mettre sur une seul instruction, et Col est fixé pour tester
A+

re

@Gorfael,
ta macro n'est pas valide pour Excel 2007 qui comporte 16384, la dernière colonne étant la XFD

Code:

---

1 2 3 4 5 6 7

Sub Test() Dim NomCol As String Dim Col As Integer Col = 100 NomCol = Cells(1, Col).Address(0, 0) NomCol = Left(NomCol, Len(NomCol) - 1) End Sub

---

cordialement

Salut
J'aurais du y penser tout seul :evilred:
Merci de l'avoir fais à ma place :king:
A+

Citation:

---

Envoyé par fred65200

bonjour,

Eh non! :nono: :mouarf:

pour avoir les lettres de la colonne

Code:

---

NomCol = Split(Columns(col).Address, ":$")(1)

---

cordialement

---

SAlut
Oupsss ... j'ai repondu trop vite ... ;) :hola: pas taper
++
Qwaz

Bon, je m'essaye encore avec une fonction plus perfectionnée!

Grâce à la piste de Gorfael et fred65200:

Code:

---

1 2 3 4 5

Function NomColonneA1(ByVal c As Range) As String ' Renvoit la valeur litérale de colonne de la première cellule de la plage c NomColonneA1 = Left(c.Cells(1, 1).Address(0, 0), _ Len(c.Cells(1, 1).Address(0, 0)) - 1) End Function

---

Et à ceux qui en ont contre les fonctions, je dis...:evilred:

tant pis, j'aime mieux avoir un résultat moins rapide mais plus universel. :king:

un peu plus simple... ;)

Code:

---

1 2 3 4

Function NomColonneA1(ByVal c As Range) As String ' Renvoit la valeur litérale de colonne de la première cellule de la plage c NomColonneA1 = c.Column End Function

---

A+
Edit:
Dans une sélection renvoi toujours les coordonnées de la première cellule de la sélection, ça pourrait aussi être...

Code:

---

1 2	NomColonneA1 = c.Row NomColonneA1 = c.Address

---

bonjour à tous,
:nono: LeForestier.
Je crois que Mom's voulait la (les) lettre(s) de la colonne

Citation:

---

Envoyé par Mom's

avec col=1, on devrais avoir NomCol=A

---

Salut,

Avez vous essayé : http://excel.developpez.com/faq/inde...ille#RefLettre ?

Citation:

---

Envoyé par fred65200

bonjour à tous,
:nono: LeForestier.
Je crois que Mom's voulait la (les) lettre(s) de la colonne

---

Ben Oui...:oops:
mais qu'a cela ne tienne...

Code:

---

NomColonneA1= Split(c.Address(1, 0), "$")(0)

---

A+ ;)

Citation:

---

Envoyé par LeForestier

Ben Oui...:oops:
mais qu'a cela ne tienne...

Code:

---

NomColonneA1= Split(c.Address(1, 0), "$")(0)

---

A+ ;)

---

:nono:
Teste ça :

Code:

---

1 2 3 4

Dim c As Range Set c= Columns("A:Z") NomColonneA1 = Split(c.Address(1, 0), "$")(0) MsgBox NomColonneA1

---

Moi, j'ai "A:Z", pas "A"
Mais ce n'est peut-être pas ce que tu voulais dire :mouarf:

Edit
Avec ça ça fonctionne

Code:

---

1 2 3 4 5 6

Sub TestMacro() Dim c As Range Set c = Columns("A:Z") NomColonneA1 = Split(Split(c.Address(1, 0), "$")(0), ":")(0) MsgBox NomColonneA1 End Sub

---

Et tant pis pour ceux qui aiment bien les fonctions :mouarf:

Sans vouloir être désobligeant

un supposant qu'il n'y aie qu'une colonne

Citation:

---

Envoyé par fred65200

pour avoir les lettres de la colonne

Code:

---

NomCol = Split(Columns(col).Address, ":$")(1)

---

cordialement

---

NB si Mom's suivait ce fil, il me semble qu'il serait Résolu depuis longtemps.

Cordialement

Citation:

---

Envoyé par Fred

NB si Mom's suivait ce fil, il me semble qu'il serait Résolu depuis longtemps.

---

Normalement ! :aie:
@Fred
Je répondais à l'homme des bois, pas à mom's vu qu'on l'a perdu. Mais tiens, fred, tu as tout un laïus là-dessus ici http://www.developpez.net/forums/sho...d.php?t=438438... La prochaine fois je donnerai l'adresse à mom's :mouarf:

Citation:

---

Envoyé par ouskel'n'or

:nono:

Code:

---

1 2 3 4 5 6

Sub TestMacro() Dim c As Range Set c = Columns("A:Z") NomColonneA1 = Split(Split(c.Address(1, 0), "$")(0), ":")(0) MsgBox NomColonneA1 End Sub

---

Et tant pis pour ceux qui aiment bien les fonctions :mouarf:

---

Bien vu!

Voté meilleure méthode pour avoir le nom de la première colonne d'une plage. :king:

Tant pis pour moi! :mouarf: