VBA plusieurs conditions if

Excel
1

Bonjour le forum,

j’aurai besoin de votre aide.

dans le code ci-dessous je souhaiterai qu’il fasse ce qui suit;

Si la cellule " H10 " de l’onglet " CDE " est différente de 0 alors il doit exécuter le code qui sera appelé par la ligne

Call SAUVEGARDE_MOUVEMENTS_COMMANDES_TVA_5_5

sinon il ne doit pas l’exécuter.

Si la cellule " H11 " de l’onglet " CDE " est différente de 0 alors il doit exécuter le code qui sera appelé par la ligne

Call SAUVEGARDE_MOUVEMENTS_COMMANDES_TVA_10

sinon il ne doit pas l’exécuter.

Si la cellule " H12 " de l’onglet " CDE " est différente de 0 alors il doit exécuter le code qui sera appelé par la ligne

Call SAUVEGARDE_MOUVEMENTS_COMMANDES_TVA_20

sinon il ne doit pas l’exécuter.

pourriez-vous me guider pour cela s’il vous plaît.

Je vous remercie d’avance.

Amicalement
Rubis

2

j’ai réussi de cette façon, enfin, je crois que c’est OK vu que cela fonctionne, aux pros de ce forum de bien vouloir me dire.

With Sheets("CDE")

If .Range("H10") <> 0# Then
Call SAUVEGARDE_MOUVEMENTS_COMMANDES_TVA_5_5
Else
Exit Sub
End If

If .Range("H11") <> 0# Then
Call SAUVEGARDE_MOUVEMENTS_COMMANDES_TVA_10
Else
End If

If .Range("H12") <> 0# Then
Call SAUVEGARDE_MOUVEMENTS_COMMANDES_TVA_20
Else
End If
3

j’ai parlé trop vite, cela ne fonctionne pas !

alors si vous auriez une réponse s’il vous plaît.

Merci à vous

4

Bonjour, peut-être comme ça?

Sub VERIFICATION_TVA()

With Worksheets("CDE")
    If .Range("H10").Value <> 0 Then
        Call SAUVEGARDE_MOUVEMENTS_COMMANDES_TVA_5_5
    End If
    
    If .Range("H11").Value <> 0 Then
        Call SAUVEGARDE_MOUVEMENTS_COMMANDES_TVA_10
    End If
    
    If .Range("H12").Value <> 0 Then
        Call SAUVEGARDE_MOUVEMENTS_COMMANDES_TVA_20
    End If
End With

End Sub

Slts

5

Bonsoir tontonbox,

Merci pour ta proposition.
Mais est ce que tu crois que ma solution en post 2 n’est pas bien ?

6

En fait si pourquoi pas mais comme tu as marqué que cela ne fonctionnait pas je t’ai proposé un semblant de code à tester.

Slts

1 « J'aime »
7

Ok, j’avais pas modifié ma réponse après mes essais. Cela fonctionne bien mais je vais aussi essayé ta proposition demain matin et je te tiendrai informé.

En attendant Merci et bonne soirée.

Rubis

8

Bonjour,

alors j’ai essayé ta proposition et cela fonctionne bien. Vu que le code est plus court j’opte pour celui-ci.

Merci à toi pour ton aide et à une prochaine fois peut-être.

Bonne journée.