Remplissage d'un tableau avec des données d'une colonne variable

**Armatura** · 20/01/2016, 12h07

Bonjour,

je cherche à remplir un tableau que je réalise.

Nom : Vue01.PNG
Affichages : 280
Taille : 97,1 Ko

Mes données d'entrée sont copiées dans une autre page du classeur.
Elles sont de cette forme :

Nom : Vue02.PNG
Affichages : 327
Taille : 38,3 Ko

Dans la page de mes données d'entrées je cherche à :

-trouver le terme Vitamine A,
si dans la cellule en dessous je trouve des chiffres,
copier cette cellule
la copier dans la page de mon tableau dans la colonne Vitamine A.

Une idée ?

De plus je n'ai aucune idée pour supprimer [1-9][1-9][1-9]%[1-9][1-9][1-9]% (sachant que les pourcentages varient de 300 à 1.)

Merci de votre lecture

**Daniel.C** · 20/01/2016, 12h54

Bonjour,

Je ne vois pas le nom du produit ? Commence par le faire manuellement en te servant de l'enregistreur de macro et poste la macro obtenue.

**Armatura** · 20/01/2016, 13h47

Merci.
Je l'ai déjà fait.

C'est tout le problème.
Les données d'entrées changent
et donc lorsqu'il n'y a pas de d'Alpha-carotène par exemple,
les cellules ciblées me rapportent le texte "Bêta-cryptoxanthine".

Je pense qu'il faut donc trouer le moyen de faire un test comme expliqué plus haut.

Les données d'entrées sont ici pour un abricot ou autre mais peu importe.

Pour chaque aliment les données d'entrées sont de cette forme mais il manque de temps à autre des valeurs.

Envoyé par Daniel.C

Bonjour,

Je ne vois pas le nom du produit ? Commence par le faire manuellement en te servant de l'enregistreur de macro et poste la macro obtenue.

L'aliment est l'ananas. Mon tableau est en page 1, les données d'entrée dans la page 2.

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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
Sub Extraction_Données()
'
' Extraction_Données Macro
'
' Touche de raccourci du clavier: Ctrl+Maj+D
'
    Sheets("1").Select
    Range("A6").Select
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("F10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("G10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("H10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("I10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("J10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A18").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("K10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("L10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("M10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A24").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("N10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A26").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("O10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A28").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("P10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A30").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("Q10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A32").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("R10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A34").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("S10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A36").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("T10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A38").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("U10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A40").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("V10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A42").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("W10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A44").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("X10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A46").Select
    ActiveWindow.SmallScroll Down:=3
    Range("A46").Select
    ActiveWindow.SmallScroll Down:=3
    Range("A48").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("Y10").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A50").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("Z10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A52").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("AA10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    ActiveWindow.SmallScroll Down:=9
    Range("A54").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("AB10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A56").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("AC10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A60").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("1").Select
    Range("A58").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C62").Select
    Sheets("Tableau rangé vitamine").Select
    Range("AD10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A60").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("AE10").Select
    Sheets("1").Select
    Range("A60").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("AD10").Select
    ActiveSheet.Paste
    Sheets("1").Select
    Range("A62").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tableau rangé vitamine").Select
    Range("AE10").Select
    ActiveSheet.Paste
End Sub

**Armatura** · 20/01/2016, 20h23

Nom : Probleme.PNG
Affichages : 229
Taille : 81,0 Ko

Je ré-expose mon problème et explique ma solution.

Je réalise un tableau vide dans la feuille 1.
Je colle des données brutes dans la feuille 2.

PROBLÈME : comment automatiser cela tout en nettoyant mes valeurs suivies de 12%34% ou 00 etc ?

SOLUTION :
J'enregistre une macros en allant chercher chaque valeur et en les collant dans mon tableau.
Je colle mes données dans OpenOffice Calc est utilise les expressions régulières pour supprimer ce qui entoure mes valeurs.

Mes données brutes changent pour chacun des aliments,
j'ai quelques ratés mais minimes. Le classement des données, la mise en forme, un premier nettoyage est automatisé.
Le nettoyage complet se fait dans OpenofficeCalc en un second temps à la mano.

Je pose ici mes macros pour ce que ça intéresse.
Cordialement.

Remplissage d'un tableau avec des données d'une colonne variable

Macros et VBA Excel

Partager

Partager