Discussion :

[nessbeal]

Bonjour et meilleur voeux à tous ,


Je sollicite votre aide pour une de mes procédures.

J'ai un projet dans laquelle deux populations occupant des cellules différentes
s'opposent selon la valeur de la cellule qu'ils occuppent.

Cette valeur peut etre numérique (population cellule=1,2,3...) ou de en fonction d'un paramètre T (population 2 cellule = 1T,2T...).

Le but étant que lorsque je fais varier le T si la valeur de la cellules de la population 2 > population 1 alors elle envahit la case de l'autre et devient un des leurs .Idem pour le cas inverse.

J'ai essayé avec un if mais ca ne marche pa, voila ma procédure:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub iteration()
 
    Dim T As Double
    T = InputBox("Donnez le montant de la prime ")
 
    If Cells(x, y).Value = CStr(NB) & "T" > Cells(x, y).Value = NB Then
       Cells(x, y).Value = CStr(NB) & "T"
 
 
End Sub

Merci pour votre aide

ps: je vous joins mon fichier.