Discussion :

[pascal913]

Bonjour à tous!!

Je dois créer une macro (sous Excel avec VBA), et je dois regrouper des champs (des noms de famille) qui se situent tout le temps dans la première colonne A (sachant qu'il y a sur cette même colonne d'autres éléments d'inscrits hormis ces noms), mais qui ne se trouvent jamais sur les mêmes lignes d'une semaine sur l'autre. J'aimerai bien les rassembler en utilisant à chaque fois une seule et unique macro. Est-ce possible?

J'ai déjà regardé dans les différents tutoriels et exemples mais je n'y ai pas trouvé mon bonheur, c'est donc pour cela que je fais appel à vos lumières.

Merci d'avance

[mail.spam]

Bonjour,

Si j'ai bien compris tu dois faire un regrouppement par nom mais pour en faire quoi? Si je te pose la question c'est pour y voir un peu plus clair. Car sinon un simple tri sur tes colonnes doit suffir. Sinon peux tu nous mettre un ptit exemple de ton tableau et ce que tu a besoin d'en faire..

Bon cou rage et bonne journée

[ouskel'n'or]

Donne-nous un exemple de ta base de données car l'explication que tu en donnes me ferait plutôt dresser les cheveux sur la tête (et comme il ne m'en reste plus que quatre, ça fait pas beau )

[pascal913]

Bonjour à tous les deux et merci d'avoir répondu si vite!

je vous donne en p-j une partie de mon fichier.

En espérant vous aider

[pascal913]

Je vous voudrais donc que ma macro me donne un fichier ayant cette mise en forme(voir pièce-jointe).

J'ai pour but de faire en sorte que le fichier, où a été appliqué la macro (ici classeur2), soit utilisable directement sur un logiciel spécialisé dans les factures et fiches de paies. Voilà tout.

Merci

[ouskel'n'or]

Si tu es certain que tous les noms commencent par "- " ou que toutes ces cellules sont en caractères gras, alors tu as une chance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
dim cell as range, derlig as long, i as integer, nom as string
    derlig = 2
    worksheets("feuil1").activate
    for each Cell in worksheets("feuil1").range("a1:a" & range("A65536").end(xlUp).Row)
        if Left(Cell, 2) = "- " or Cell.Font.Bold = True Then
            Nom = Cell
            i = 1
            Do
                if not Isempty(Cell.offset(i, 0)) then
                    worksheets("feuil2").range("A" & derlig) = Nom
                    worksheets("feuil2").range("B" & derlig & ":H" & derlig).value = Worksheets("feuil1").range(Cell.offset(i, 0).address & ":" & Cell.offset(i, 6).address).value
                    derlig = derlig + 1
                end If
                i = i + 1
            loop while Cell.offset(i, 0) <> Nom and Cell.offset(i, 0) <> ""
        end If
    next
End sub

A+

[pascal913]

merci beaucoup à toi ouskel'n'or de m'avoir concocté ce code, mais cela ne fonctionnera pas avec ce fichier là (que vous fourni en pièce-jointe), vu que les éléments ne sont pas placés au même endroit(colonne et ligne).

D'une semaine sur l'autre, mon fichier .xls sera toujours différent.

Là est mon problème.

merci