Discussion :

[freeland15]

Salut a toutes et a tous

J'ai encore un probleme de mise en forme.
J'ai un tableau (fichier joint).

Voila les modif a y apporter.
Je doit inserer autant de ligne que de mois.
Puis copier les materiel et les description materiel.
Inserer 2 colonnes a la suite M
1ere Colonne insere :
Reprendre 1 a 1 les references qui sont repretorier par mois dans chacune des colonnes crées.
2eme colonne insere :
Creer une date au 1er de cahque mois en fonction des mois sous ce format 01jan2008.



Je vous met le debut de mon code (tres lourd)

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Sub Reorganisation()
 
    Dim f As Long
    Dim Cellule As Range
 
'copie des 9 lignes pour reorganisation du tableau
'9 ligne pour une ligne exisante...
    For f = Range("a" & Rows.Count).Row To 2 Step -1
        Set Cellule = Range("a" & f)
        If Cellule(0).Value <> Cellule Then Cellule.EntireRow.Insert Shift:=xlDown
    Next f
 
 
        For f = Range("a" & Rows.Count).Row To 2 Step -1
            Set Cellule = Range("a" & f)
            If Cellule(0).Value <> Cellule Then Cellule.EntireRow.Insert Shift:=xlDown
        Next f
 
 
            For f = Range("a" & Rows.Count).Row To 2 Step -1
                Set Cellule = Range("a" & f)
                If Cellule(0).Value <> Cellule Then Cellule.EntireRow.Insert Shift:=xlDown
            Next f
 
 
                For f = Range("a" & Rows.Count).Row To 2 Step -1
                    Set Cellule = Range("a" & f)
                    If Cellule(0).Value <> Cellule Then Cellule.EntireRow.Insert Shift:=xlDown
                Next f
 
 
                    For f = Range("a" & Rows.Count).Row To 2 Step -1
                        Set Cellule = Range("a" & f)
                        If Cellule(0).Value <> Cellule Then Cellule.EntireRow.Insert Shift:=xlDown
                    Next f
 
 
'Suppression des ligne non utiles dans le haut du tableau.
    Rows("1:6").Select
    Selection.Delete Shift:=xlUp
    Rows("2:10").Select
    Selection.Delete Shift:=xlUp
    Rows("3:7").Select
    Selection.Delete Shift:=xlUp
    Rows("4:8").Select
    Selection.Delete Shift:=xlUp
    Rows("5:9").Select
    Selection.Delete Shift:=xlUp
    Rows("6:10").Select
    Selection.Delete Shift:=xlUp
    Rows("7:15").Select
    Selection.Delete Shift:=xlUp
 
 
'Ajout de colones pour traitement des données
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
 
 
 
 
End Sub

J'aurais besoin d'un serieux coup de main je bloque.
Je vois que ca ne fonctionne pas comme je le voulais
Mais ca vous donne une idee de ma manipe
N'hesiter pas a laisser des com pour + l'explication.
Merci d'avance

[Qwazerty]

SAlut
Je n'ai pas regardre ton fichier mais j'ai 2 remarque sur ton code
Pourquoi a tu repeter 5 fois la meme boucle for sans rien changer a l'interieur?
Si tu dois repeter x fois cette boucle place la dans une boucle for ... 1 to x, ca sera deja moins lourd.
La 2eme remarque est au sujet de cette ligne

Code :

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

 f = Range("a" & Rows.Count).Row

Le row qu'elle te retourne est le row de la derniere cellule de ta colonne, mais pas la derniere vide, la derniere 65540.. peut etre est ce que tu souhaite mais j'en doute, ca alourdi enormement la routine. Prefert peut etre

Code :

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

f = Range("a" & Rows.Count).End(xlUp).Row

Qui te pointera la derniere cellule non vide de ta colonne.

A++
Qwaz

[freeland15]

Deja a alourdi moin la macro

Le soucis en fait c de copier 9 lignes blanches a la suite d'une ligne remplie.
Et c la que je trouve pas la bonne manip.

Apres il faut recopier sur ces 9 ligne la ligne qui precede.

Ou + simple (peut etre) se serai de copier 9 x la ligne puis recommancer...

Deja c mieux
A peluche

[Qwazerty]

SAlut
Ben au hazard je dirais qu'il faut utilsé Range(...).copy et range(...).Insert avec un si ces 2 fonctions pour plus amples informations

Tu peux enregistrer egalement une macro et faire les action copier inserer puis aller voir le code qu'a generé Excel.


Bon courrage
A++
Qwaz

[freeland15]

Je bloque severe sur ce tableau de m....

J'arrive pas a definir les bon parametres pour permettre 9 ligne entre chaque ligne existante.
Puis copier les references qui sont dessus.

[Qwazerty]

SAlut
Je ne sais pas ce que tu cherche a faire exactement mais une simple boucle qui copi/insert 9 fois est simple a realiser

Code :

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

1
2
3
4
5
6
 
    Application.CutCopyMode = False
    For I = 1 To 9
        Rows("6:6").Copy
        Rows("8:8").Insert Shift:=xlDown
    Next I

Celle ci copie la ligne 6 et l'insert avant la ligne 8, as toi de modifier ca pour avoir le resultat escompté

[Edit] En reprenant ton post du debut j'ai vu que tu avais joint un fichier, j'ai regarder un peu plus en avant ton fichier mais je ne comprend pas, avec les infos que tu fourni dans ton 1er post ce que tu veux faire exactement, tu parles de créer des ligne apres tu parle de crée des colonnes en fonction des colonne créés... je trouve pas ca tres claire.
Tu delmande a inserer des colonne a la suite de la colonne M, hors apres la colonne M il n'y a plus rien donc autant utiliser les colonne N et O qui sont vide, non?
Dans ta boucle While, qui se trouve dans ton module, tu cherche a incrementer i visiblement, mais tu met celui ci en dehors de la boucle.
Encore une fois, sans explication claire et detailé il est tres dur de repondre aux demandes.
En attendant plus de detail
++[/Edit]

A++
Qwaz