Discussion :

[atk_49]

Bonjour à tous,

Je suis débutant en VBA, je m'y suis mis il y a un mois lors de la création d'un tableau de calcul pour mon entreprise.
Jusque la j'ai réussi à faire ce que je voulais, entre autre grâce aux nombreuses ressources que j'ai pu trouver sur votre forum. (Affichage de certaines lignes en fonction d'une valeur, modification du format de cellules en fonction d'une autre, etc...)

Aujourd'hui je sèche, voici mon problème :

La cellule C80 contient une valeur en tonne que j'indique manuellement. (3.0 T par exemple)
La cellule C79 contient une liste de choix. (Oui ou non)

J'aimerais que si C79 indique "oui", alors la valeur de C80 soit multipliée par 0.9, ou si C79 indique "non", alors la valeur de C80 reste normale. (3.0 T)

Voici ce que j'ai fais pour le moment.

Code :

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

1
2
3
4
5
6
7
8
9
Dim VAL3
VAL3 = Sheets("Analyse technique").Range("C79").Value
 
If VAL3 = "Oui" Then
Range("C80").Value = Range("C80").Value * 0.9
 
ElseIf VAL3 = "Non" Then
Range("C80").Value = Range("C80").Value
End If

Cela ne fonctionne pas car la multiplication tourne en boucle et ne s'arrête pas, ce qui fini par indiquer un message d'erreur. Je n'ai pas trouvé d'informations concernant le format des multiplications en VBA, j'ai donc fait comme pour excel. (Ce qui n'est pas forcement une bonne idée ^^)

Merci d'avance de votre aide, n'hésitez pas à me demander plus de détails si je n'ai pas été suffisamment clair.

[Philippe Tulliez]

Bonjour,

Cela ne fonctionne pas car la multiplication tourne en boucle et ne s'arrête pas, ce qui fini par indiquer un message d'erreur. Je n'ai pas trouvé d'informations concernant le format des multiplications en VBA, j'ai donc fait comme pour excel. (Ce qui n'est pas forcement une bonne idée ^^)

Il doit sûrement manquer un bout de code parce-que je ne vois pas comment celui-ci pourrait tourner en boucle.
La multiplication se fait effectivement comme dans Excel cependant tu dis

La cellule C80 contient une valeur en tonne que j'indique manuellement. (3.0 T par exemple)

Si tu écris le T, ce n'est plus une valeur numérique mais alphanumérique. C'est alors plutôt un message d'erreur d'incompatibilité de Type que tu reçois.
Si tu souhaites voir 3.0 T alors que tu tapes 3 il faut utiliser le format personnalisé. Ainsi la valeur est bien numérique et l'utilisateur visualise la valeur avec plus de confort.

[atk_49]

Merci pour vos réponses !

Si tu écris le T, ce n'est plus une valeur numérique mais alphanumérique.

Oui en effet, je n'ai pas précisé que l'unité était gérée par excel via les formats personnalisés. J'entre uniquement un chiffre dans cette cellule. (3 en l’occurrence)

Si a=1=> a=a* 0.9=0.9 => 0.81 => 0.729 => 0.6561

C'est exactement ce qui se passe malheureusement.

En conséquence tu n'as besoin que d'une simple formule :

Je comprends bien mais justement, si je passe par VBA c'est parce que je souhaite pouvoir laisser cette cellule "modifiable".
J'ai bien l'impression que ce que je demande est impossible étant donné que la cellule de base de mon script agi sur cette même cellule... (d'ou la boucle)

Il n'y a pas un moyen pour que la multiplication ne fasse qu'une fois ?

[Philippe Tulliez]

Bonjour,

Il n'y a pas un moyen pour que la multiplication ne fasse qu'une fois ?

A moins de placer un flag dans une autre cellule, je ne vois pas comment on pourrait le réaliser. Ce flag pourrait-être de remettre un Non.
Je pense que tu devrais mieux expliquer la problématique parce-que à la première lecture j'étais plutôt de l'avis de Robert de faire cela avec une simple formule Excel.

[gFZT82]

Bonjour,

Ce qui est dommage, c'est que tu ne précises pas ce qui provoque le lancement de la procédure.
S'il s'agit de l'évènement Change de ta feuille, tu peux utiliser la propriété EnableEvents pour éviter de tourner en boucle.

Cordialement.

[Invité]

Si tu as la possibilité de retrouver la valeur initial par calcule, colle le résultat dans une cellule non visible par l’utilisateur et applique la formule que je t’es donné.

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Cells(Target.Row, 255) = ValeurInitiale
End Sub

[atk_49]

Pour faire plus simple, je voudrais écrire cette formule...

Code :

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

=SI(C79="oui";C80*0,9;C80)

... dans la cellule C80.

Impossible sur excel mais est-ce possible en VBA ?

Voici pour gFZT82 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Calculate()
Dim VAL3
VAL3 = Sheets("Analyse technique").Range("C79").Value
 
If VAL3 = "Oui" Then
Range("C80").Value = Range("C80").Value * 0.9
 
ElseIf VAL3 = "Non" Then
Range("C80").Value = Range("C80").Value
End If
 
End Sub

S'il s'agit de l'évènement Change de ta feuille, tu peux utiliser la propriété EnableEvents pour éviter de tourner en boucle.

Je ne connais pas cette propriété, aurais-tu un exemple ?

Merci encore de votre aide.

[Invité]

Bonjour,
Malheureusement pour toi ta macro est d’une efficacité redoutable.
Si a=1=> a=a* 0.9=0.9 => 0.81 => 0.729 => 0.6561
En revanche a=1 b= a* 0.9=0.9 donnera toujours le même résultat.
Maintenant tu n’as pas besoin dans ton exemple d’un ElseIf si c’est pas oui c’est forcément non

Code :

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

1
2
3
If VAL3 = "Oui" Then
Else
End if

De plus toujours dans ton exemple a=a n’est pas utile puisque a ne change pas donc un if et end if pas de else.
Donc en conclusion, tu as besoin de deux cellules une pour la valeur initiale et l’autre pour la valeur calculées.
En conséquence tu n'as besoin que d'une simple formule :

Code Formule :

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

=SI(B1="oui";A1*0,9;A1)

Cordialement.