Tester une valeur comprise entre

bonjour

je souhaite une macro qui teste la valeur d'une celule entre -350 et 350

si joint le fichier

merci de votre aide par avance

philippe

Sub miseajour()

Dim ligne As String

ligne = 20

Do While Cells(ligne, 1).Value <> ""

If Cells(ligne, 16).Value <> "-350" And "350" Then

Cells(ligne, 20).Value = Cells(ligne, 16).Value
Else
Cells(ligne, 20).Value = "0"
End If

ligne = ligne + 1
Loop

End Sub

Bonjour Philippe,

Si la macro n'est pas obligatoire, il y a la solution formule :

=SI(ET(LC(-4)>=-350;LC(-4)<=350);LC(-4);0)

Espérant avoir aidé, à+ Daniel

bonjour daniel,

je connais bien la fonction, mais je souhaite la mettre en vba vue les lignes que j'aurais au bout d'un certain temps.

je ne pense pas que ça soit compliqué à mettre en vba , mais la c'est moi qui bug.

merci pour ta reponse

philippe

Bonjour philippe87

voici une solution

Sub miseajour()

Dim ligne As String

ligne = 2

Do While Cells(ligne, 1).Value <> ""

If Cells(ligne, 16).Value > -350 And Cells(ligne, 16) < 350 Then

Cells(ligne, 20).Value = Cells(ligne, 16).Value
Else
Cells(ligne, 20).Value = "0"
End If

ligne = ligne + 1
Loop

End Sub

cdt

henri

bonjour Henri

je savais que c'était simple, je l'avais bien écrit la premiére fois mais le probléme c'est que j'avais mis des guillemets a "-350" et "350"

merci pour ta réponse

philippe

Rechercher des sujets similaires à "tester valeur comprise entre"