macro indépendante de cellules

**meuah** · 22/05/2008, 10h11

Bonjour tout le monde

Désolée pour ce titre "bizarre" mais je ne savais pas trop comment expliquer.
Voilà, j'ai actuellement un fichier qui se présente comme ça

vide Col11 Col2A Col2B
heure vide donneeA donneeB
heure vide donneeA donneeB
heure vide donneeA donneeB
heure vide donneeA donneeB
heure vide donneeA donneeB
heure vide donneeA donneeB
vide Col12 Col2A Col2B
heure vide donneeA donneeB
heure vide donneeA donneeB
heure vide donneeA donneeB
heure vide donneeA donneeB
heure vide donneeA donneeB
heure vide donneeA donneeB

etc...

j'aimerais remonter les heures, que toutes les données en dessous de Col1 qui sont vides prennent la valeur de Col1 et d'autres choses mais ça sera plus facile à expliquer à travers un exemple.
Voilà ce que j'aimerais avoir au final :

heure Col11 Col2A donneeA
heure Col11 Col2A donneeA
heure Col11 Col2A donneeA
heure Col11 Col2A donneeA
etc
heure Col11 Col2B donneeB
heure Col11 Col2B donneeB
heure Col11 Col2B donneeB
heure Col11 Col2B donneeB
etc

Le problème est que, quand je fais une macro avec enregistrement, elle ne s'applique que sur une plage de donnée (celle sur laquelle elle a été appliquée)
J'aimerais que cette macro ne s'applique que sur les premières données, que je me place ensuite sur une case et qu'elle s'applique une plage de donnée (de la même taille) à partir de cette position.
Voici le code généré par Excel, si ça peut vous aider

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
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight 'on insère une colonne
    Range("A1").Select  'suppression de la case vide
    Selection.Delete Shift:=xlUp
    Range("B1").Select
    Selection.AutoFill Destination:=Range("B1:B21"), Type:=xlFillDefault
    Range("B1:B21").Select
    Range("C2:C22").Select
    Selection.Cut
    Range("E2:E22").Select
    Selection.Cut
    Range("C1").Select
    Selection.Copy
    Range("C2").Select
    ActiveSheet.Paste
    Range("E1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E2").Select
    ActiveSheet.Paste
    Range("C1:C2").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("C1:C21"), Type:=xlFillDefault
    Range("C1:C21").Select
    Range("E1:E2").Select
    Selection.AutoFill Destination:=Range("E1:E21"), Type:=xlFillDefault
    Range("E1:E21").Select
    Range("A1:B21").Select
    Selection.Copy
    Range("A1:D21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A1:F21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A22").Select
    Selection.Insert Shift:=xlDown
    ActiveWindow.SmallScroll Down:=-6
    Range("C1:D21").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.SmallScroll Down:=15
    Range("E22:F42").Select
    Selection.ClearContents

Merci d'avance

**Gorfael** · 22/05/2008, 11h26

Salut meuah
J'ai pas compris ce que tu cherches à faire
Explique la plus clairement possible, ou mets un fichier avant/après,.
ta macro, après suppression de ce qui ne sert pas :

Code :

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

1
2
3
4
5
6
7
8
9
Columns("D:D").Insert Shift:=xlToRight 'on insère une colonne
Range("A1").Delete Shift:=xlUp
Range("B1:C1").AutoFill Destination:=Range("B1:C21"), Type:=xlFillDefault
'Application.CutCopyMode = False
Range("E1").AutoFill Destination:=Range("E1:E21"), Type:=xlFillDefault
Range("A1:F21").Copy
Range("A22").Insert Shift:=xlDown
Range("C1:D21").Delete Shift:=xlToLeft
Range("E22:F42").ClearContents

Tu insère une colonne en D repoussant les donnéesB en E
tu supprime A1 faisant remonter toutes les cellules de A d'une ligne
tu fais une recopie de B1 sur B1, C1 et E1 jusqu'à la ligne 21
tu copies et insères A1:F21 à partir de A22
tu supprimes C1: D21 en comblant horizontalement
et tu effaces E22:F42

Je ne comprends pas ce que tu veux faire

Ton code est émaillé d'erreurs : tu sélectionnes une plage, tu la coupes, tu en resélectionnes une autre, tu la coupes, tu sélectionnes une autre que tu copies (enfin), etc...
tu insères une colonne, mais tu la supprimes etc...
et ta question, c'est une mise en variable de la plage (laquelle ?)

Fais ta manip avec la macro apprentissage sans faire d'erreurs, juste les actions que tu veux faire réellement qu'on ait un code cohérent et donne le but final que tu veux atteindre
Si toutes tes lignes sont identiques, pas la peine de donner un tableau
ce que je comprens sur tes données
Colonne A : 1 : Vide / 2 à 7 : "heure"
Colonne B : 1 : "Col11" / 2 à 7 : vide
Colonne C : 1 : "Col2A" / 2 à 7 : "donneeA"
Colonne D : 1 : "Col2B" / 2 à 7 : "donneeB"
Colonne E : 1 à 7 : vide
le cycle se répète 3 fois
Mais il est possible que heure, donneeA et donneeB soient des valeurs différentes suivant la ligne (peu probable, puisqu'on décale A)

En gros, ma logique ne comprend pas la tienne

alrs que pour t'aider, il me faudrait savoir ce UE TU VEUX FAIRE
A+

**meuah** · 22/05/2008, 11h38

j'ai déjà remarqué un premier problème, c'est que quand je coupe des données, elles ne sont pas collées! C'est déjà une raison pour laquelle la macro est bizarre. Ensuite, voici la forme des fichiers :
Initial :
STA Q1 Q2
05/06h 1 2
06/07h 3 4
07/08h 5 6

et j'aimerais obtenir
05/06h STA Q1 1
06/07h STA Q1 3
07/08h STA Q1 5
05/06h STA Q2 2
06/07h STA Q2 4
07/08h STA Q2 6
En gros, je veux passer mon tableau croisé en tableau simple
Par contre, je ne sais pas comment faire pour recommencer la macro et pour qu'il prenne en compte le "coller"

**meuah** · 22/05/2008, 12h45

Voilà mon code terminé, j'ai ajouté des commentaires pour voir un peu plus clair. Pour les copier-coller, je me suis débrouillée comme j'ai pu.

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
Sub SeparationQ()
'
' SeparationQ Macro
'
'
    Application.CutCopyMode = True
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight 'insertion d'une colonne une seule et unique fois
 
'suppression d'une cellule vide et remontée des données
    Range("A1").Select
    Selection.Delete Shift:=xlUp
'copie des données en E2:E22 en F1, les données de Q2
    Range("E2:E22").Select
    Selection.Copy
    Range("F1").Select
    ActiveSheet.Paste
'suppression des cellules copiées
    Range("E2:E22").Select
    Selection.ClearContents
 
'idem avec C2:C22 en D1, copie des données de Q1
    Range("C2:C22").Select
    Selection.Copy
    Range("D1").Select
    ActiveSheet.Paste
    Range("C2:C22").Select
    Selection.ClearContents
 
'glisser les données de B1 jusqu'en B21, copie de STA sur la colonne
    Range("B1").Select
    Selection.AutoFill Destination:=Range("B1:B21"), Type:=xlFillDefault
'Copie de la cellule C1 et coller de C2 à C21, copie de "Q1" sur la colonne
    Range("C1").Select
    Selection.Copy
    Range("C2:C21").Select
    ActiveSheet.Paste
 
'idem avec E1 en E2:E21 idem avec Q2
    Range("E1").Select
    Selection.Copy
    Range("E2:E21").Select
    ActiveSheet.Paste
 
'copie de toutes les données fraichement manipulées
    Range("A1:F21").Select
    Selection.Copy
'et je les colle en A22 avec insertion et décalge des cellules vers le bas
    Range("A22").Select
    Selection.Insert Shift:=xlDown
'suppression les données en E1:F21, des données de Q2 (il me reste celle de Q1)
    Range("E1:F21").Select
    Selection.ClearContents
'suppression en C22:D42, les données de Q1 (il me reste celle de Q2)
    Range("C22:D42").Select
    Range("D22").Activate
    Selection.Delete Shift:=xlToLeft
'suppression de la ligne 43, ligne vide en dessous
    Rows("43:43").Select
    Selection.Delete Shift:=xlUp
End Sub

Ce que je voudrais c'est que ce bout de code ne s'applique pas seulement sur la plage A1 à E22(au départ), mais aussi sur les prochaines données qui suivent cette manipulation. J'espère m'être fait correctement comprendre

**fred65200** · 22/05/2008, 13h01

bonjour, ton code simplifié. Dans la mesure du possible, évite les .select suivis par Selection.

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
Sub SeparationQ()
'
' SeparationQ Macro
'
'
    Application.CutCopyMode = True
    Columns("D:D").Insert Shift:=xlToRight 'insertion d'une colonne une seule et unique fois
 
'suppression d'une cellule vide et remontée des données
    Range("A1").Delete Shift:=xlUp
'copie des données en E2:E22 en F1, les données de Q2
    Range("E2:E22").Copy Range("F1")
'suppression des cellules copiées
    Range("E2:E22").ClearContents
 
'idem avec C2:C22 en D1, copie des données de Q1
    Range("C2:C22").Copy Range("D1")
    Range("C2:C22").ClearContents
 
'glisser les données de B1 jusqu'en B21, copie de STA sur la colonne
    Range("B1").AutoFill Destination:=Range("B1:B21"), Type:=xlFillDefault
'Copie de la cellule C1 et coller de C2 à C21, copie de "Q1" sur la colonne
    Range("C1").Copy Range("C2:C21")
 
'idem avec E1 en E2:E21 idem avec Q2
    Range("E1").Copy Range("E2:E21")
'copie de toutes les données fraichement manipulées
    Range("A1:F21").Copy
'et je les colle en A22 avec insertion et décalge des cellules vers le bas
    Range("A22").Insert Shift:=xlDown
'suppression les données en E1:F21, des données de Q2 (il me reste celle de Q1)
    Range("E1:F21").ClearContents
'suppression en C22:D42, les données de Q1 (il me reste celle de Q2)
    Range("C22:D42").Delete Shift:=xlToLeft
'suppression de la ligne 43, ligne vide en dessous
    Rows("43:43").Delete Shift:=xlUp
End Sub

Sinon, je n'ai pas bien compris ta question.

Cordialement

**ouskel'n'or** · 22/05/2008, 13h03

Pas tellement, non, tu parles de A1:E22, un autre endroit ta plage est E2:E22, tu as un Q2 sans suite dans tes commentaires...
Si je tente une "reformulation"... d'après ce que j'ai compris
Tu veux, si de nouvelles données sont placées à la place des précédentes (effacées, donc) connaître la plage à traiter.
Concerne la plage A1:E & dernièreligne.
Ensuite, tu veux les coller où ? dans la colonne F à la suite des autres ?
Chais pas si je suis très clair sur ce coup-ci

Tu dis
A+

**meuah** · 22/05/2008, 13h57

marf, ce n'est pas ça! En fait, j'ai mes données sous forme de tableau croisé. Le code que je vous ai donné permet de changer la forme du tableau, de le passer de tableau croisé à un tableau à une entrée. Mais étant donné que ce code utilise des données fixes (c'est-à-dire va toujours s'appliquer sur la même plage comme A1:A21 puisque ces données sont dans le code même de la macro), comment est-ce que je peux faire pour que cette macro soit utilisable sur une autre plage, par exemple, au lieu de commencer en A1, exécuter la même macro mais à partir de la cellule A43 par exemple, en sachant que la macro va toujours s'appliquer sur les 4 colonnes à droite et 21 lignes en dessous.

**meuah** · 22/05/2008, 16h05

c'est bon ,j'ai trouvé, je m'en suis sortie en réalisant une boucle. Voici le code et le "résolu"

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
64
65
66
67
68
69
70
71
72
73
74
Sub SeparationQ()
'
' SeparationQ Macro
 
Dim i As Integer
'
    Application.CutCopyMode = True
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight 'insertion d'une colonne
i = 1
Do While (i < 1520)
 
'suppression d'une cellule vide et remontée des données
    Range("A" & i).Select
    Selection.Delete Shift:=xlUp
'copie des données en E2:E22 en F1, les données de Q2
    Range("E" & i + 1 & ":E" & i + 21).Select
    Selection.Copy
    Range("F" & i).Select
    ActiveSheet.Paste
'suppression des cellules copiées
    Range("E" & i + 1 & ":E" & i + 21).Select
    Selection.ClearContents
 
'idem avec C2:C22 en D1, copie des données de Q1
    Range("C" & i + 1 & ":C" & i + 21).Select
    Selection.Copy
    Range("D" & i).Select
    ActiveSheet.Paste
    Range("C" & i + 1 & ":C" & i + 21).Select
    Selection.ClearContents
 
'glisser les données de B1 jusqu'en B21, copie de STA sur la colonne
    Range("B" & i).Select
    Selection.AutoFill Destination:=Range("B" & i & ":B" & i + 20), Type:=xlFillDefault
'Copie de la cellule C1 et coller de C2 à C21, copie de "Q1" sur la colonne
    Range("C" & i).Select
    Selection.Copy
    Range("C" & i + 1 & ":C" & i + 20).Select
    ActiveSheet.Paste
 
'idem avec E1 en E2:E21 idem avec Q2
    Range("E" & i).Select
    Selection.Copy
    Range("E" & i + 1 & ":E" & i + 20).Select
    ActiveSheet.Paste
 
'copie de toutes les données fraichement manipulées
    Range("A" & i & ":F" & i + 20).Select
    Selection.Copy
'et je les colle en A22 avec insertion et décalge des cellules vers le bas
    Range("A" & i + 21).Select
    Selection.Insert Shift:=xlDown
'suppression les données en E1:F21, des données de Q2 (il me reste celle de Q1)
    Range("E" & i & ":F" & i + 20).Select
    Selection.ClearContents
'suppression en C22:D42, les données de Q1 (il me reste celle de Q2)
    Range("C" & i + 21 & ":D" & i + 41).Select
    Range("D" & i + 21).Activate
    Selection.Delete Shift:=xlToLeft
'suppression de la ligne 43, ligne vide en dessous
    Rows(i + 42 & ":" & i + 42).Select
    Selection.Delete Shift:=xlUp
 
'copie des heures
    Range("A" & i & ":A" & i + 20).Select
    Selection.Copy
    Range("A" & i + 21).Select
    ActiveSheet.Paste
 
    i = i + 42
 
Loop
End Sub

**fred65200** · 22/05/2008, 16h09

re

très bien,

mais pourquoi n'as tu pas supprimer tes .Select sivi de Selection. ?

@

**meuah** · 22/05/2008, 16h15

En fait, j'ai gardé comme base la macro que j'avais enregistrée. Mais c'est vrai que c'est inutile. Gare à toi si ça ne fonctionne plus

Merci à tous

**Gorfael** · 23/05/2008, 09h13

Salut meuah et le forum

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
Sub SeparationQ()
Dim i As Long
Columns("D:D").Insert Shift:=xlToRight 'insertion d'une colonne
i = 1
Do While (i < 1520)
    'suppression d'une cellule vide et remontée des données (***)
    Range("A" & i).Delete Shift:=xlUp
    'copie des données en E2:E22 en F1, les données de Q2
    Range(Cells(i + 1, "E"), Cells(i + 21, "E")).Copy Range("F" & i)
    'suppression des cellules copiées
    Range(Cells(i + 1, "E"), Cells(i + 21, "E")).ClearContents
 
    'idem avec C2:C22 en D1, copie des données de Q1 (+++)
    Range(Cells(i + 1, "C"), Cells(i + 21, "C")).Copy Range("D" & i)
    Range(Cells(i + 1, "C"), Cells(i + 21, "C")).ClearContents
 
    'glisser les données de B1 jusqu'en B21, copie de STA sur la colonne
    Range("B" & i).AutoFill Destination:=Range("B" & i & ":B" & i + 20)   ', Type:=xlFillDefault
    'Copie de la cellule C1 et coller de C2 à C21, copie de "Q1" sur la colonne (***)
    Range("C" & i).Copy Range("C" & i + 1 & ":C" & i + 20)
    'idem avec E1 en E2:E21 idem avec Q2
    Range("E" & i).Copy Range("E" & i + 1 & ":E" & i + 20)
 
    'copie de toutes les données fraichement manipulées
    Range("A" & i & ":F" & i + 20).Copy
    'et je les colle en A22 avec insertion et décalge des cellules vers le bas
    Range("A" & i + 21).Insert Shift:=xlDown
    'suppression les données en E1:F21, des données de Q2 (il me reste celle de Q1)
    Range("E" & i & ":F" & i + 20).ClearContents
    'suppression en C22:D42, les données de Q1 (il me reste celle de Q2)
    Range("C" & i + 21 & ":D" & i + 41).Delete Shift:=xlToLeft
    'suppression de la ligne 43, ligne vide en dessous
    Rows(i + 42 & ":" & i + 42).Delete Shift:=xlUp
 
    'copie des heures
    Range("A" & i & ":A" & i + 20).Copy Range("A" & i + 21)
 
    i = i + 42
Loop
End Sub

J'ai épuré le code, mais...
tu débutes par un travail sur 21 lignes et après tu passes à 20 (***) ?
tu parles de Q1 et Q2, mais n'as aucune action sur ces cellules (peut-être que c'est quantité 1 & 2) ?
.Activate : ici ne servait à rien, c'est ce que tu as fait dans la macro apprentissage

J'ai redéclaré la variable i en long : un conseil, prends l'habitude de déclarer tes variables dans la valeur maximale qu'elle peut prendre. Me suis arraché les cheveux pour trouver l'erreur sur un espace ne ligne 65536.

A+

macro indépendante de cellules

Macros et VBA Excel

Discussions similaires

Partager

Partager