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.
Sub test()
Intersect(ActiveSheet.Columns("D"), ActiveSheet.UsedRange.EntireRow) _
.FormulaR1C1 = "=CHOOSE(SIGN(RC[-1])+2,""Négatif"",""Nul"",""Positif"")"
End Sub
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..
Code:
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