Discussion :

[laaich]

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

[Qwazerty]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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