[Toutes versions] if cellule vide goto

if cellule vide goto

Bonjour l'équipe,

j'ai essayé d'écrire un code mais ile ne marche pas je suis aujourd'hui là pour sollicité votre aide :

Code:

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
If range("AR4" & "AS4").value = "" GoTo line1 
 
'gjn
Range("AU4").Value = Range("AR4").Value - Range("D4").Value
 
'vbn
Range("AV4").Value = Range("AS4").Value - Range("E4").Value
 
 
For U = 9 To 40
 
Cells(U, 9) = Cells(U, 9) + Range("AU4").Value
Cells(U, 13) = Cells(U, 13) + Range("AU4").Value
Cells(U, 17) = Cells(U, 17) + Range("AU4").Value
Cells(U, 10) = Cells(U, 10) + Range("AV4").Value
Cells(U, 14) = Cells(U, 14) + Range("AV4").Value
Cells(U, 18) = Cells(U, 18) + Range("AV4").Value
 
Next U
Range("D4").Value = Range("AR4").Value
Range("E4").Value = Range("AS4").Value
 
'REMA
For h = 9 To 40
If Cells(h, 24) = "N/A" Then
Else
Cells(h, 24) = Cells(h, 24) - Feuil5.Range("AU4").Value
End If
Next h
'REM
For E = 9 To 40
If Cells(E, 24) = "N/A" Then
Else
Cells(E, 24) = Cells(E, 24) - Feuil5.Range("AV4").Value
End If
Next E
 
' PRIX
For t = 9 To 40
Cells(t, 44) = Cells(t, 10)
Next t
 
 
Range("AU4").Value = ""
Range("AV4").Value = ""
Range("AR4").Value = ""
Range("AS4").Value = ""
 
line1 : 
 
 
'WFG
 
Feuil14.Range("O2:U2").ClearContents
Feuil5.Range("G4:Z4").ClearContents
 
Dim Compid As Range
 
Set Compid = Feuil14.Range("A:A").Find(what:=Range("B4").Value, LookIn:=xlValues, lookat:=xlWhole)
Feuil14.Range("O2").Value = Compid.Offset(, 1).Value
Feuil14.Range("P2").Value = Compid.Offset(, 2).Value
Feuil14.Range("Q2").Value = Compid.Offset(, 3).Value
Feuil14.Range("R2").Value = Compid.Offset(, 10).Value
Feuil14.Range("S2").Value = Compid.Offset(, 11).Value
Feuil14.Range("T2").Value = Compid.Offset(, 12).Value
Feuil14.Range("U2").Value = Compid.Offset(, 9).Value
 
 
Feuil5.Range("G4").Value = Feuil14.Range("O2")
Feuil5.Range("H4").Value = Feuil14.Range("U2")
 
'LES 
 
Feuil14.Range("N2:N15").ClearContents
Feuil5.Range("Z9:Z40").AdvancedFilter xlFilterCopy, CopyToRange:=Feuil14.Range("N2:N15"), Unique:=True
Feuil5.Range("I4") = Feuil14.Range("N2").Value
Feuil5.Range("K4") = Feuil14.Range("N3").Value
Feuil5.Range("M4") = Feuil14.Range("N4").Value
Feuil5.Range("O4") = Feuil14.Range("N5").Value
Feuil5.Range("Q4") = Feuil14.Range("N6").Value
Feuil5.Range("S4") = Feuil14.Range("N7").Value
Feuil5.Range("U4") = Feuil14.Range("N8").Value
Feuil5.Range("W4") = Feuil14.Range("N9").Value
Feuil5.Range("Y4") = Feuil14.Range("N10").Value
 
'Remplacer l
 
Set Compid = Feuil14.Range("B:B").Find(what:=Range("I4").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("J4").Value = Compid.Offset(, 8).Value
Set Compid = Feuil14.Range("B:B").Find(what:=Range("K4").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("L4").Value = Compid.Offset(, 8).Value
Set Compid = Feuil14.Range("B:B").Find(what:=Range("M4").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("N4").Value = Compid.Offset(, 8).Value
Set Compid = Feuil14.Range("B:B").Find(what:=Range("O4").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("P4").Value = Compid.Offset(, 8).Value
Set Compid = Feuil14.Range("B:B").Find(what:=Range("Q4").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("R4").Value = Compid.Offset(, 8).Value
Set Compid = Feuil14.Range("B:B").Find(what:=Range("S4").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("T4").Value = Compid.Offset(, 8).Value
Set Compid = Feuil14.Range("B:B").Find(what:=Range("U4").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("V4").Value = Compid.Offset(, 8).Value
Set Compid = Feuil14.Range("B:B").Find(what:=Range("W4").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("X4").Value = Compid.Offset(, 8).Value
Set Compid = Feuil14.Range("B:B").Find(what:=Range("Y4").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("Z4").Value = Compid.Offset(, 8).Value
End Sub

ici ce qui marche pas c'est : If range("AR4" & "AS4").value = "" GoTo line1.
merci d'avance j'espère que j'étais clair

Bonjour,

il n'y a pas d'espace entre GO et TO
Il faut écrire

Code:

then goto line1

Bonjour,
Pour compléter la réponse de Curt, que je salue au passage, l'étiquette de renvoi, votre exemple Line1), doit avoir évidemment le même nom (voir la ligne 77 de votre code publié où vous écrivez Line 1) ne peut avoir de caractères espacé (l'underscore est autorisé).

Petite remarque : l'instruction Goto devrait être bannie de toute programmation sérieuse. Elle est assimilée à une programmation spaghetti

1 pièce(s) jointe(s)

Bonjour,

J'ai écris GoTo line 1 mais ça ne marche toujours pas en PJ le message erreur d'exécution '1004'
Pièce jointe 622957

Bonjour,

En utilisant ta méthodologie tu dois corriger ta syntaxe
Code:

1 2 3 4 5 6 If Range("AR4") = "" And Range("AS4") = "" Then GoTo line1 'ton code ici line1: 'ton code ici
Je n'ai pas détaillé le reste du code mais j'ai vu

Code:

If Cells(h, 24) = "N/A" Then

Attention si la valeur est effectivement "N/A" alors OK par contre si la valeur est "#N/A" (avec le #) il s'agit d'un type erreur Excel. Ce ne sera pas traité par ton If. Dans ce cas utilises IsError().

J'ai corrigé le syntaxe mais ça ne marche toujours pas

1 pièce(s) jointe(s)

Comment ça ça ne marche toujours pas ?

Avec le code fourni Excel se rend à line1: si AR4 ET AS4 sont "".

Voici un fichier exemple.
Complète ou non les cellule AR4 et AS4 et clique sur le bouton. Tu verras que si les 2 cellules sont "" alors tu n'auras pas le message indiquant qu'au moins 1 des cellules n'est pas "". Ce qui voudra dire que le code à bien été à line1:

Fais du pas à pas.

Merci et au revoir ?