Discussion :

[mimic44]

bonjour,

je suis sur une base access avec code VBA et une routine qui permet de convertir une nomenclature "horizontale" en nomenclature "verticale" (merci FT035580 et Oleff ) la voici :

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
Private Sub BoutonExport_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim AppliExcel As Excel.Application
Dim FichierExcel As Excel.Workbook
Dim row As Integer
Set db = CurrentDb
Set rst = db.OpenRecordset("Req Mars", dbOpenDynaset)
Set AppliExcel = CreateObject("Excel.Application")
AppliExcel.Visible = True
Set FichierExcel = AppliExcel.Workbooks.Open("P:\MMA\Prepa MMA\Chargement_nomenclatures.xls")
AppliExcel.Sheets("MMH_LOAD_DPLL_EXEMPLE").Select
row = 1
 
While Not rst.EOF
 
'Cornière haute
AppliExcel.cells(row, 1) = "A33"
AppliExcel.cells(row, 2) = rst.Fields(0) 'tout le temps (0)
AppliExcel.cells(row, 3) = rst.Fields(2) 'evolu par article
AppliExcel.cells(row, 4) = "D" 'fixe
AppliExcel.cells(row, 5) = "MM14" & rst.Fields(1) 'suivant le kit de l'article concerné
AppliExcel.cells(row, 6) = "0" 'fixe
AppliExcel.cells(row, 7) = "1" 'dépend de l'arcticle
AppliExcel.cells(row, 10) = "272A" 'fixe
AppliExcel.cells(row, 11) = "PI" 'fixe
row = row + 1
 
'Cornière latérales
AppliExcel.cells(row, 1) = "A33"
AppliExcel.cells(row, 2) = rst.Fields(0) 'tout le temps (0)
AppliExcel.cells(row, 3) = rst.Fields(3) 'evolu par article
AppliExcel.cells(row, 4) = "D" 'fixe
AppliExcel.cells(row, 5) = "MM14" & rst.Fields(1) 'suivant le kit de l'article concerné
AppliExcel.cells(row, 6) = "0" 'fixe
AppliExcel.cells(row, 7) = "2" 'dépend de l'arcticle
AppliExcel.cells(row, 10) = "272A" 'fixe
AppliExcel.cells(row, 11) = "PI" 'fixe
row = row + 1
 
'U de pied
AppliExcel.cells(row, 1) = "A33"
AppliExcel.cells(row, 2) = rst.Fields(0) 'tout le temps (0)
AppliExcel.cells(row, 3) = rst.Fields(4) 'evolu par article
AppliExcel.cells(row, 4) = "D" 'fixe
AppliExcel.cells(row, 5) = "MM14" & rst.Fields(1) 'suivant le kit de l'article concerné
AppliExcel.cells(row, 6) = "0" 'fixe
AppliExcel.cells(row, 7) = "1" 'dépend de l'arcticle
AppliExcel.cells(row, 10) = "272A" 'fixe
AppliExcel.cells(row, 11) = "PI" 'fixe
row = row + 1
 
'Surbau
AppliExcel.cells(row, 1) = "A33"
AppliExcel.cells(row, 2) = rst.Fields(0) 'tout le temps (0)
AppliExcel.cells(row, 3) = rst.Fields(5) 'evolu par article
AppliExcel.cells(row, 4) = "D" 'fixe
AppliExcel.cells(row, 5) = "MM14" & rst.Fields(1) 'suivant le kit de l'article concerné
AppliExcel.cells(row, 6) = "0" 'fixe
AppliExcel.cells(row, 7) = "1" 'dépend de l'arcticle
AppliExcel.cells(row, 10) = "272A" 'fixe
AppliExcel.cells(row, 11) = "PI" 'fixe
row = row + 1
 
'tapes
AppliExcel.cells(row, 1) = "A33"
AppliExcel.cells(row, 2) = rst.Fields(0) 'tout le temps (0)
AppliExcel.cells(row, 3) = rst.Fields(6) 'evolu par article
AppliExcel.cells(row, 4) = "D" 'fixe
AppliExcel.cells(row, 5) = "MM14" & rst.Fields(1) 'suivant le kit de l'article concerné
AppliExcel.cells(row, 6) = "0" 'fixe
AppliExcel.cells(row, 7) = "2" 'dépend de l'arcticle
AppliExcel.cells(row, 10) = "272A" 'fixe
AppliExcel.cells(row, 11) = "PI" 'fixe
row = row + 1
 
'suport de dr
AppliExcel.cells(row, 1) = "A33"
AppliExcel.cells(row, 2) = rst.Fields(0) 'tout le temps (0)
AppliExcel.cells(row, 3) = IIf(rst.Fields(7) > 0, "SupDR", "") 'evolu par article
AppliExcel.cells(row, 4) = "D" 'fixe
AppliExcel.cells(row, 5) = "MM14" & rst.Fields(1) 'suivant le kit de l'article concerné
AppliExcel.cells(row, 6) = "0" 'fixe
AppliExcel.cells(row, 7) = rst.Fields(7) 'dépend de la qté l'arcticle
AppliExcel.cells(row, 10) = "272A" 'fixe
AppliExcel.cells(row, 11) = "PI" 'fixe
row = row + 1
 
'support de Butée kit1
AppliExcel.cells(row, 1) = "A33"
AppliExcel.cells(row, 2) = rst.Fields(0) 'tout le temps (0)
AppliExcel.cells(row, 3) = IIf(rst.Fields(8) > 0, IIf(IsNull(rst.Fields(9)), "", "SupBut"), "") 'evolu par article
AppliExcel.cells(row, 4) = "D" 'fixe
AppliExcel.cells(row, 5) = "MM14" & rst.Fields(1) 'suivant le kit de l'article concerné
AppliExcel.cells(row, 6) = "0" 'fixe
AppliExcel.cells(row, 7) = rst.Fields(8) 'dépend de la qté l'arcticle
AppliExcel.cells(row, 10) = "272A" 'fixe
AppliExcel.cells(row, 11) = "PI" 'fixe
row = row + 1
rst.MoveNext
Wend
End Sub

maintenant il arrive que certaines cellules de ma base de "base" soient vides, j'aimerais que dans ce cas là les cellules de mon fichier destination ne le soit pas (ne soit pas créer non plus du coup).

Voili voila, j'ai essayé pas mal de truc du type iif then goto mais j'ai rencontré des problèmes et je doute que cela soit la meilleur solution vu mon piètre niveau sur VBA.

Pouvez vous m'aider ??

Merci d'avance

[Oleff]

Je ne suis pas sur d'avoir bien compris mais si c'est le cas il suffit d'introduire un if simple dans le code.
Entre le if et le end if, les lignes ne seront exécutées que si la condition d'entrée est remplie.

Code :

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

1
2
3
if condition then
    création de tes cellules
end if

[mimic44]

salut Oleff,

oui en fait je l'ai déjà tenté, ça fonctionne d'ailleur sur la plus part des lignes sauf sur une, j'ai essayé la condition IsNull(rst.Fields(2)) (ouais je l'ai tourné à l'envers)
c'est quoi l'inverse de IsNull ? ouais c'est moi qui est nul

[Oleff]

Tu peux doubler les conditions en écartant la valeur qui te gêne.

[mimic44]

Je comprends pas bien ce que tu veux dire là !

[Oleff]

Un if peut accepter plusieurs conditions

Code :

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

if condition1 and condition2 ... then

pour des conditions exclusives
ou

Code :

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

if condition1 OR condition2 then

Pour des conditions complémentaire.
Si j'ai bien compris ton cas, tu as plusieurs conditions blocantes.
Donc ton if doit être du type :

Code :

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

1
2
if not premièreConditionBlocante and not deuxièmeConditionBlocante then
   traitement

[Jordmund]

Pour l'inverse de IsNull tu fais :
if (rst.IsNull) = False

et le tour est joué

[mimic44]

merci à tous