VBA remplir colonne d'un tableau avec conditions

[PA16]

Bonjour,

Je bloque sur la réalisation d'une macro sur VBA.

J'ai un tableau avec dans les deux premières colonnes les noms et prénoms des personnes, dans la 3ème colonne, un nombre positif, négatif ou égal à 0. Mon but est de remplir la 4ème colonne.

J'aimerais créer une macro qui me remplisse automatiquement la colonne 4 par "Positif" si le nombre est positif, "Négatif" s'il est négaif ou "Nul" s'il est nul.

Merci d'avance.

 

[Dranreb]

Bonsoir.

Sub test()
Intersect(ActiveSheet.Columns("D"), ActiveSheet.UsedRange.EntireRow) _
   .FormulaR1C1 = "=CHOOSE(SIGN(RC[-1])+2,""Négatif"",""Nul"",""Positif"")"
End Sub

 

[zebanx]

Bonjour PA16, Dranreb, le forum

En plus pompeux...

Sub valeurs()

For i = 1 To Cells(Rows.Count, 1).End(3).Row
    If Cells(i, 3) > 0 Then
    Cells(i, 4) = "positif"
    ElseIf Cells(i, 3) < 0 Then Cells(i, 4) = "negatif"
    ElseIf Cells(i, 4) = 0 Then Cells(i, 4) = 0
    End If
Next
End Sub

ou un peu moins..

Sub valeurs2()

For i = 1 To Cells(Rows.Count, 1).End(3).Row
    Cells(i, 4) = IIf(Cells(i, 3) > 0, "positif", IIf(Cells(i, 3) < 0, "negatif", "0"))
Next
End Sub

 

[PA16]

Super, merci beaucoup pour vos réponses, je vais tester les 3 méthodes.

Bonne soirée à vous.