Bonjour,

Je débute dans le langage VBA et si vous pouviez m'aider à traduire ces deux petits codes (test) ce serait génial :

TEST 1

'Deux feuilles dans le classeur: F1 et F2

'J'aimerai afficher sur F2, cellule C3 le résultat suivant :

résultat de F1 G104
If F1 G104 est = à 0 ; résultat F1 G112
If F1 G112 est = à 0 ; résultat F1 G111
If F1 G111 est = à 0 ; résultat F1 G113
...

'S'arrête quand l'un des résultat est > à 0
End

------------------------------------
TEST 2

'Afficher sur F2 D3 le résultat suivant le choix si dessus:

"SHOT" If F1 G104 est > 0
Else
"SPC" If F1 G112 est > 0
Else
"SHAB" If F1 G111 est > 0
Else
"nb logt" If F1 G113 est > 0



J'ai essayé pour le TEST 1 avec ce qui suit :
----------------------------------
TEST 1

Sub test1()

Dim Sheets("Feuil1") As Worksheet
For Each cellule In Range ("G99:G113")

If Cells (G104) > 0 ; Cells (G104)
Else Cells (G104) = 0 ; Cells (G112)
Else Cells (G112) = 0 ; Cells (G111)
Else Cells (G111) = 0 ; Cells (G113)

Exit For First Cells > 0


End if Cells > 0


Si vous avez des pistes pour m'aider je suis preneur.
Merci d'avance