en VBA problem avec " IF "

salut tout le monde
je veut faire une formule avec un test en utilitarian "if "en VBA sachant que je suis debutant, et quand j'ai fait mon code, le test ne s'effectue pas correctement? comme vous allez voir dans le fichier ci_joint

Salut
Avant de mettre un fichier joint (qui n'y ai pas au moment de ma réponse) met plutôt le bout de code (en utilisant les balise "Code", bouton # dans le menu d’édition). Et explique un peu ce que tu souhaites faire exactement.

[Edit]
En règle général il vaut mieux éviter les accentuations sur les variables.

Pour ce qui est du If, il serait bien que tu regardes du coté des Tutoriel, il t'apporteront les connaissance de base du langage et les structures des différentes boucles et conditions.

http://vb.developpez.com/cours/
http://excel.developpez.com/cours/

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub calcul() Dim diamétre As Integer 'evite de mettre des accent sur le nom de variable Dim longueur As Integer Dim profondeur As Integer diamétre = Range("A2").Value longueur = Range("B2").Value profondeur = Range("C2").Value If diamétre <= 600 Then 'si la valeur du dimétre est <= 600 Range("D2") = (Range("A2").Value / 10 + 60) * 0.01 Else 'Sinon Range("D2") = (Range("A2").Value / 10 + 80) * 0.01 'sinon End If End Sub

---

Pour info ce type de fonctionnement ne nécessite aucunement l'utilisation de macro, de simples formules gèrent parfaitement ce type de cas. Il ne faut pas perdre de vu qu'Excel est un tableau avant d’être un logiciel de programmation ;)
[/Edit]

a++
Qwaz