Utilisation IF THEN en VBA
Bonjour,
J’ai un souci avec une macro simple mais je n’arrive pas à trouver une erreur
J’ai une liste déroulante dans la Cellule C4 que j’ai réalisé à l’aide de l’onglet validation des données
Cette liste comprend les données suivantes : 0.030, 0.040, 0.050, 0.060
Je veux qu’en fonction de mon choix de données la cellule C6 se remplit automatiquement avec les chiffres suivants : SI 0.030 0.028, SI 0.040 0.0.28, SI 0.050 0.027 et SI 0.060 0.027. Cette formule marche très bien quand je l’écrit dans le feuil de calcul mais je voudrais écrire cela en utilisant VBA. Et voici mon essai :
Sub Calcul ()
Dim Valeur As Double
Valeur= Worksheets("Calcul").Range("C4").Value
If Valeur = 0.030 Then Worksheets ("Calcul").Range("C6").Value = 0.028
If Valeur = 0.040 Then Worksheets ("Calcul").Range("C6").Value = 0.028
If Valeur = 0.50 Then Worksheets ("Calcul").Range("C6").Value = 0.027
If Valeur = 0.060 Then Worksheets ("Calcul").Range("C6").Value = 0.027
End If
End Sub
Mon code ne fonctionne pas…, j’ai fait certainement une erreur mais je ne sais pas où. Aidez-moi SVP !
Je vous remercie par avance
Excellent ! La formule fonctionne très bien !!! Merci beaucoup !!!!!