VBA-Excel:Présentation d'un tableau (insertion ligne de légende)

Version imprimable

Voir 40 message(s) de cette discussion en une page

14/06/2006, 02h48
gabrielle_dl

VBA-Excel:Présentation d'un tableau (insertion ligne de légende)

Bonjour à tous!!!

Voila mes problèmes:

*comment faire un tri d'une plage sans prendre en compte la première ligne qui contient la légende (titre, date, montants) et en sachant que cette plage ne doit pas être limitée c'est à dire que la procédure doit marcher jusqu'à la première ligne vide (si je rajoute un autre titre, la procédure doit marche toujours).

*comment créer une feuille par titres en sachant que pour chaques titres identiques, il ne doit y avoir qu'une seule feuille et que, dans chaque feuilles, on doit avoir les colonnes "dates" et "montant" (en légende) et les valeurs qui y correspondent.

Je vous remercie tous d'avance.... Répondez moi vite (cause d'examen le 19 juin) :)
14/06/2006, 08h31
Ania

Juste un ti truc avant toute chose :

pour qu'un forum fonctionne bien il est nécessaire de respecter certaine règles que tu trouvera ici :

d'autre part le dit souvent un de nos cher modérateur, si on pose une question sur le forum c'est que l'on a besoin d'aide... (pas besoin de le signaler dans le titre)

Je te laisse étudier cela modifier tontitre en consequence et nous t'aiderons sans faute :D

[Edit...]
As tu des notions en programmation ou est-ce que tu n'y connais rien du tout
si c'est la deuxième option je t'invite à aller jeter un oeil au cour et tutoriel afin que tu comprennes ce que nous te donnons
14/06/2006, 13h00
gabrielle_dl

Désolé pour le titre, je ne me suis pas rendue compte :(

Pour ta question, je m'y connais un peu est j'ai déjà chercher de partout pour essayer de résoudre mon problème. Y'a quelques truc qui m'ont aider et j'ai pu arranger ma procédure, mais je coince toujours sur les deux points que j'ai expliquer plus haut. C'est donc pour ca que je suis là....
14/06/2006, 13h23
zazaraignée

Salut

Le tri dans Excel est une manipulation si simple qu'il ne convient pas d'en faire une macro sauf s'il doit être préalable à d'autres manipulation...

Si c'est le cas, tu dois déterminer la plage à trier en trouvant la dernière ligne, la dernière colonne étant généralement connue.

Code:

DernièreLigne = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

Ensuite tu peux faire le tri. Inspires toi d'une macro enregistrée.

Une fois trié tu peux faire une boucle qui cherche les titres différents, La collonne titres étant connue, sa longueur déterminée par DernièreLigne.

Commence un peu et dis nous où ça coince.

Voici un p'tit bout de code qui permet d'utiliser la fonction Trier d'Excel de la cellule A2 à la dernière (les cellules vides sont automaquement non traitées)
Code:

1 2 3 4 5 Sub test() Range("A2:A65536").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub
Excuse moi j'ai oublier de te mettre lien des règles du forum
http://www.developpez.net/forums/sho...d.php?t=112760

bonne continuation :D

merci beraucoup à vous deux....

En fait, j'ai déjà commencer ma procédure. Comme je vous ai dit, elle marche mais le "hic" est qu'elle trie aussi la première ligne qui contient le titre, la date et le montant.

Voila ma procédure:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub exercice3() Dim i As Integer i = 1 Do Until IsEmpty(Sheets("Feuil3").Cells(i, 1)) Sheets("Feuil3").Cells(i, 1).Sort key1:=Range("A2"), order1:=xlAscending, key2:=Range("B2"), order2:=xlAscending i = i + 1 Loop End Sub
merci encore ;)

14/06/2006, 14h03
Ania
si ton titre se trouve à la première ligne il suffit de commencer le tri à seconde donc pour cela il te suffit de faire
Code:

1 2 3 i = 2 au lieu de i = 1
14/06/2006, 14h21
gabrielle_dl

:cry:

J'ai déjà essayer....
14/06/2006, 14h24
Ania

et si tu utilise le code que je t'ai donné plus avant ca ne fonctionne pas non plus ?

si mais la plage est définie (A2:A65536) et mon problème est que, si je rajoute une ligne ou une colonne n'importe où, la procédure doit quand même marcher.

J'ai essayer en écrivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim i, j As Integer i = 2 j = 1 Do Until Sheets("Feuil3").Cells(i, 1) = "" Range("A" & i & ":C" & j).Sort key1:=Range("A" & i), order1:=xlAscending, key2:=Range("B" & j), order2:=xlAscending i = i + 1 Loop j = j + 1
mais le résultat est le même: la remière ligne est comprise dans le tri!

Je suis désespérée! :piou:

Voila autre chose qui fonctionne seulement elle n'effectue le tri que sur la première colonne et fait suivre toutes les lignes (suis je assez claire)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
Dim i, j As Integer
 
  i = 2
  j = 2
 
 
  Do Until Sheets("Feuil3").Cells(i, 1) = ""
 
    i = i + 1
  Loop
 
  Range("A2" & ":C" & i).Sort Key1:=Range("A2"), Order1:=xlAscending, _
        Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
 
End Sub

14/06/2006, 15h05
gabrielle_dl

lorsque j'exécute ta procédure, j'ai une erreur pour DataOption1
14/06/2006, 15h09
Ania

tu utilise quelle version d'Excel car moi je n'ai aucun problème, sinon essaie en supprimant cette partie :?
14/06/2006, 15h13
gabrielle_dl
la procédure marche quand même lorsque j'enlève la partie:
Code:

1 2 OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal
Par contre, lorsqu'il y a deux fois le meme titre en colonne 1, il faut que le tri se fasse sur la colonne 2 (date)...

Pardon, je n'avais pas vu ta réponse :) j'utilise excel 2000
14/06/2006, 15h30
gabrielle_dl

C'est bon pour le tri, j'ai reussi à trouver comment joindre les deux et.... CA MARCHE!!!!

Merci beaucoup!!! en fait j'avais oublier de rajouter Header:=xlGuess....

Par contre j'ai un autre problème sur la suite de ma procédure :(

J'arrive à créer une nouvelle feuille par titre et à insérer les dates et les montants correspondant, par contre je n'arrive pas à insérer la légende c'est à dire à mettre en première ligne: "date" et "montant" (suis-je claire???:roll: = )

Voila ma procédure défaillante:
(je dois s'en doute rajouter quelque chose quelque part.... et c'est là que je coince:mur: )

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub exercicesuite()
 
Dim a, b As Worksheet
Dim i, k As Long, nontrouve As Boolean
 
Set b = Sheets("Feuil3")
 
i = 2
 
Do Until b.Cells(i, 1) = ""
    nontrouve = True
    For Each a In Worksheets
        If a.Name = b.Cells(i, 1) Then
        nontrouve = False
    Exit For
        End If
    Next a
    If nontrouve Then
        Set a = Worksheets.Add(after:=Worksheets(Worksheets.Count))
        a.Name = b.Cells(i, 1)
        k = 1
    Else
    k = 2
        Do Until a.Cells(k, 1) = ""
            k = k + 1
        Loop
    End If
    b.Range("B" & i & ":F" & i).Copy Destination:=a.Range("A" & k)
    i = i + 1
Loop
 
End Sub

Faudrait peut être pas oublier de mettre les balises code si tu veux que ton code soit lisible ;) Tu sélectionnes et tu fais un clic sur # (ajoutées par ouskel'n'or)

14/06/2006, 18h13
Ania

je reviens sur ton message précédent
en fait tu veux insérer en première ligne un titre à savoir "Date" ou "Montant"
ou le contenu d'une cellule

ou bien changer le nom de la feuille que tu ajoute

j'avoue avoir un peu de mal a te comprendre
14/06/2006, 20h39
gabrielle_dl

:lol:

oui... j'avoue que même moi je me mélange les pinceaux :)

En fait, je voudrait qu'une fois mes feuilles créées (chacune portant le nom du titre), je puisse également insérer non seulement les valeurs qui y sont liées mais aussi leur légende ("date" et "montant").

En résumé, sur chaque feuille nouvelle, je dois avoir: "date" et les dates liées au titre de la feuille et "montant" avec les montants liés au titre de feuille....

Je ne sais pas si j'ai été vraiment plus claire :oops:

ps: merci pour le conseil, c'est tout de suite plus lisible comme ca!!! ;)
15/06/2006, 08h56
Ania

Si je comprends bien

Dans feuil3 tu as un tableau sous cette forme (ou de même forme)

DATE MONTANT
10/06/2006 100,00 €
20/08/2005 120,00 €
etc...

et tu souhaites copié avec des liaisons toutes les dates dans la feuille "Date" et tous les montants dans la feuil "Montant"
Si l'une de ces 2 feuilles n'existe pas tu la crée.
15/06/2006, 10h59
gabrielle_dl

MERCI A TOUS!!!

c'est bon!!! je me suis couché à 3h mais j'ai réussi!!!

Merci à tous et spécialement à toi Ania ;)

Voir 40 message(s) de cette discussion en une page