Macro report de donnée et incrémentation

**Edaine** · 05/07/2011, 15h01

Bonjour,

J'ai 2 feuilles,
FeDo et FeT, que j'ai défini dans mon code,

Dans FeT, j'ai un tableau en B10:K29,

J'aimerai reporter des valeurs dans ce tableau à partir des colonnes T,U,V de FeDo,

En faite,

Si en T de FeDo, j'ai un chiffre supérieur à 0, alors j'inscris en B11 de FeT, la valeur de la cellule A qui se trouve sur la même ligne que le chiffre supérieur à 0.
Pareil pour U mais cette fois en F11 et V en I11,

Le problème c'est que j'aimerai qu'il passe automatiquement à la ligne si il y a déjà une valeur inscrite sur la FeT

J'étais partie sur un code avec For Next .. mais je n'arrive à .. rien :/

J'ai un code qui pourrait m'inspirer mais rien n'en ressort ..

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
a = 2
                                Do While Cells(a, 2) <> ""
                                a = a + 1
                                Loop
 
 
                        i = 2 
                                Do While FeDo.Cells(i,1) <> "" 
 
                                If Cells(i, 21) > 0 Then
 
FeT.Cells(a,2).Value=FeDo.Cells(i,1).Value
 
                                a = a + 1
 
                                End If
 
                        i = i + 1
 
        Loop

Le problème c'est qu'il peut arriver que pdt 5-10 lignes il n'y ait rien d'inscrit dans les colonnes...

Merci d'avance pour vos réponse et conseils !

**jfontaine** · 05/07/2011, 16h57

Bonjour,

Peux tu fournir un fichier test avec un exemple en fin de traitement

**Edaine** · 05/07/2011, 17h07

Voilà le fichier joint,

J'ai juste pris les deux feuilles du fichier original et mis un exemple dedans !Et il n'y a pas les macros non plus

**jfontaine** · 05/07/2011, 17h47

Ok, avec le fichier je comprend mieux.

Pour ajouter une ligne dans la colonne F

Code :

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

Range("F11").Offset(Application.WorksheetFunction.CountA(Range("F11:F29")), 0).Value = "TEST"

Cela devrait te mettre sur la voie

**Edaine** · 06/07/2011, 09h56

Merci,

Mais c'est normale que ça s'écrive en F15 le "TEST" uniquement ?

**jfontaine** · 06/07/2011, 10h04

oui, c'est normal, il faut faire adapter cette ligne pour les autres colonnes

**Edaine** · 06/07/2011, 10h09

Nan mais, ça commence même pas en F11 c'est ça que je capte pas ...

Elle dit quoi en faite ta ligne de code ? J'ai jamais utilisé ça ^^'

**jfontaine** · 06/07/2011, 10h21

Ce code décale de x ligne en partant de la cellule F11 (x correspond au nombre de cellule avec une donnée)
Si tu as 0 ligne, il insere la donnée en F11 ensuite en F12 etc ...

Code :

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

Sheets("Feuille Type").Range("F11").Offset(Application.WorksheetFunction.CountA(sheets("Feuille Type").Range("F11:F29")), 0).Value = sheets("Douchette").range("A1").value

**Edaine** · 06/07/2011, 10h25

C'est bizarre ...

Mais merci je vais essayer de me "dépatouiller" avec ça comme je sui sbloquée dans le F15 quoique je fasse ^^' ..

Ah,

Jai réussi à changé un truc, du coup il m'écrit plus uniquement en F15

**jfontaine** · 06/07/2011, 10h35

Ce bout de code boucle sur les données onglet douchette et insére les infos colonnes A dans la colonne F de l'onglet "Feuille Type" (sur modele fichier communiqué dans précédent post)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub MiseAjour()
 
Dim i As Long
 
For i = 2 To Sheets("Douchette").Range("A:A").End(xlDown).Row
 
    Sheets("Feuille Type").Range("F11").Offset(Application.WorksheetFunction.CountA(Sheets("Feuille Type").Range("F11:F29")), 0).Value = Sheets("Douchette").Range("A1").Value
 
Next i
 
End Sub

A toi de travailler les conditions pour transférer les données dans les bonnes colonnes

**Edaine** · 06/07/2011, 10h42

Merci pour le bout de code, je vais tenter avec celui là ! Ca ira certainement mieux que le mien x)

En faite j'étais partie avec ça moi;

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
Sub GRA()
 
Dim FeDo As Worksheet
Dim FeT As Worksheet
 
Set FeT = Sheets("Feuille Type")
Set FeDo = Sheets("Douchette")
 
 
 
                        i = 2
                                Do While FeDo.Cells(i, 1) <> ""
 
                                If FeDo.Cells(i, 21) > 0 Then
 
 
 
FeT.Range("F11").Offset(Application.WorksheetFunction.CountA(Range("F11:F29")), 0).Value = FeDo.Cells(i, 1).Value
 
FeT.Range("G11").Offset(Application.WorksheetFunction.CountA(Range("G11:G29")), 0).Value = FeDo.Cells(i, 2).Value
 
FeT.Range("H11").Offset(Application.WorksheetFunction.CountA(Range("H11:H29")), 0).Value = FeDo.Cells(i, 21).Value
 
 
                                a = a + 1
 
                                End If
 
                        i = i + 1
                                Loop
 
 
 
End Sub

Parce que j'ai plusieurs conditions pour reporter les données

**Edaine** · 06/07/2011, 11h06

TADAM :

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
Sub TableauPalette()
 
Dim FeDo As Worksheet
Dim FeT As Worksheet
 
Set FeT = Sheets("Feuille Type")
Set FeDo = Sheets("Douchette")
 
 
 
                        i = 2
                                Do While FeDo.Cells(i, 1) <> ""
 
                                If FeDo.Cells(i, 21) > 0 Then
 
 
 
FeT.Range("F11").Offset(Application.WorksheetFunction.CountA(Range("F11:F29")), 0).Value = FeDo.Cells(i, 1).Value
 
FeT.Range("G11").Offset(Application.WorksheetFunction.CountA(Range("G11:G29")), 0).Value = FeDo.Cells(i, 2).Value
 
FeT.Range("H11").Offset(Application.WorksheetFunction.CountA(Range("H11:H29")), 0).Value = FeDo.Cells(i, 21).Value
 
                                End If
 
 
                                If FeDo.Cells(i, 22) > 0 Then
 
 
 
FeT.Range("I11").Offset(Application.WorksheetFunction.CountA(Range("I11:I29")), 0).Value = FeDo.Cells(i, 1).Value
 
FeT.Range("J11").Offset(Application.WorksheetFunction.CountA(Range("J11:J29")), 0).Value = FeDo.Cells(i, 2).Value
 
FeT.Range("K11").Offset(Application.WorksheetFunction.CountA(Range("K11:K29")), 0).Value = FeDo.Cells(i, 22).Value
 
 
 
                                End If
 
                                If FeDo.Cells(i, 20) > 0 Then
 
 
 
FeT.Range("B11").Offset(Application.WorksheetFunction.CountA(Range("B11:B29")), 0).Value = FeDo.Cells(i, 1).Value
 
 
 
                                End If
 
                        i = i + 1
 
                                Loop
 
 
 
End Sub

Macro report de donnée et incrémentation [XL-2003]

Macros et VBA Excel

Discussions similaires

Partager

Partager