‘Il me manque du savoir-faire pour ma programmation (débutant)
‘Sur un écran quel conque ‘’pas Excel’’
‘Je reçois un numéro du format de caisse de 0 à 4
Nombre reçu | Aimerais afficher |
1 (ForC1) | 4 X 4 bouteilles |
2 (ForC2) | 4 X 6 bouteilles |
1 (ForC3) | 4 X 4 bouteilles |
4 (ForC4) | 4 X 24 bouteilles |
3 (ForC5) | 4 X 12 bouteilles |
2 (ForC6) | 4 X 6 bouteilles |
‘ex : 0 = aucun format, 1 = caisse ‘’4 X 4 bouteilles’’, 2 = caisse ‘’4 X 6 bouteilles’’, 3 =
‘Caisse ‘’4 X 12 bouteilles’’, 4 = caisse ‘’4 X 24 bouteilles’’
‘Je nomme les TAG que je reçois ‘’ForC1’’, ‘’ForC2’’, ‘’ForC3’’, ‘’ForC4’’, ‘’ForC5’’, ‘’ForC6’’,
‘qui est inscris dans la première colonne
‘J’aimerais mettre le tag qui est en ‘’Integer’’ (colonne #1) en ‘’string’’ comme la colonne #2
Option Explicit
Dim as Integer ‘’ForC1’’, ‘’ForC2’’, ‘’ForC3’’, ‘’ForC4’’, ‘’ForC5’’, ‘’ForC6’’,
Dim as String ‘’FC0‘’, “FC1’’, ‘’FC2’’, ‘’FC3’’, ‘’FC4’’
‘ dois-je ajouter quelque chose comme à Private Sub Display_Open()
FC0 = ‘’aucun format’’,
FC1 = ‘’4 X 4 bouteilles’’
FC2 = ‘’4 X 6 bouteilles’’,
FC3 = ‘’4 X 12 bouteilles’’
FC4 = ‘’4 X 24 bouteilles’’
If ForC1.GetValue(???, ???) = 0 Then ??? Else If ForC1.GetValue(???, ???) = 1 Then ??? Else If ForC1.GetValue(???, ???) = 2 Then ??? Else If ForC1.GetValue(???, ???) = 4 Then ??? Else ???
End If
Merci,