Discussion :

[floflo50100]

Bonjour,
Je voudrais tout simplement savoir comment faire ceci :
Si j'écris "infini" dans une cellule, ce "infini" doit correspondre à un nombre supérieur ou égal à 99.
Comment faire ?
Merci

[Nico Chg]

Bonjour,

Si tu te place dans la feuille en question, tu peux activer une macro à chaque événement de la feuille, à savoir ici, un changement de valeur.

A placer dans le code de la feuille en question :

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Value = "infini" Then Target.Value = (1 + Rnd) * 100
 
End Sub

[floflo50100]

Rebonjour,
Dans ce que vous m'avez envoyé cela me change le contenue de ma cellule par un nombre.
Justement je voudrais que dans ma cellule j'ai toujours "infini" de marqué mais que "infini" ai une valeur fantôme (pour faire des caculs).

[Nico Chg]

Aaah !

ça dépend de la façon dont tu fais tes calculs, mais tu devrais pouvoir mettre dans ton code un truc qui ressemble à ça :

Code :

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

1
2
3
4
5
6
7
Dim RndValue as single
RndValue = (1 + Rnd) * 100 
If Worksheets("MaFeuille").range("MaCellule").value = "infini" then 
    'Mon calcul avec RndValue
Else
     'Mon calcul normal
End if

Mais pour avoir quelque chose de plus précis, peux tu poster ton code s'il te plait ?

[mercatog]

Je te propose l'inverse

Formater les cellules (MFC) de telle façon que si en y inscrit un nombre > 99, le texte infini apparaitra à la place et les éventuels calculs ne seront pas affectés

[floflo50100]

Bonjour,
le problème est la on m'inpose d'ecrire "infini" dans les celulles et non un nombre
Cdlt

[Nico Chg]

Bonjour

Ne peux tu pas simplement ajouter une colonne masquer, avec un

Code :

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

=SI(B1="infini";100;B1)

et faire tes calculs à partir de ta colonne masquée ?

[floflo50100]

C'ets bon je vais faire avec la méthodes que tu m'as donné ^^.
Merci pour votre temps.