Aide Code IF sur VBA

[lejack02]

Bonjour,

Je cherche a construire un code IF sur VBA uniquement. La colonne Size (colonne G) doit contenir les conditions suivantes.

Pour chaque cellule de la colonne E, on va faire l'exemple pour E2.

Si E2<= 1 milliard alors "SML"
Si E2 > 1milliard Alors "MID"
Si E2 <= 5 milliard alors MID
Si E2 >5 milliard alors "LRG"

Ce calcul doit ensuite "se tirer vers le bas" de la colonne G pour arriver à la ligne 218.

Je vous remercie d'avance,

lejack

 

[gilbert_RGI]

Re : Aide Code IF sur VBA

Bonjour,

Je cherche a construire un code IF sur VBA uniquement. La colonne Size (colonne G) doit contenir les conditions suivantes.

Pour chaque cellule de la colonne E, on va faire l'exemple pour E2.

Si E2<= 1 milliard alors "SML"
Si E2 > 1milliard Alors "MID"
Si E2 <= 5 milliard alors MID
Si E2 >5 milliard alors "LRG"

Ce calcul doit ensuite "se tirer vers le bas" de la colonne G pour arriver à la ligne 218.

Je vous remercie d'avance,

lejack

Bonjour

un truc du genre

=SI(E2<10^9;"SML";SI(ET(E2>=10^9;E2<5*10^9);"MID";"LRG"))

ensuite faire un tri ZA

 

[eriiic]

Re : Aide Code IF sur VBA

Bonjour à tous,

en vba :

Sub size()
    Dim lig As Long
    For lig = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        Select Case Cells(lig, 5)
        Case Is <= 1000000000
            Cells(lig, 7) = "SML"
        Case Is <= 5000000000#
            Cells(lig, 7) = "MID"
        Case Else
            Cells(lig, 7) = "LRG"
        End Select
    Next lig
End Sub

eric

 

[Staple1600]

Re : Aide Code IF sur VBA

Bonjour à tous

Histoire de varier les plaisirs 😉

Sub sizeII()
Dim lig&
For lig = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Not IsEmpty(Cells(lig, 5)) Then
Cells(lig, 7) = _
Switch(Cells(lig, 5) <= 100, "SML", Cells(lig, 5) <= 500, "MID", Cells(lig, 5) > 501, "LRG")
End If
Next lig
End Sub

PS: Remettre les valeurs adéquates dans le Switch car j'ai testé sur un classeur vierge avec de petiotes valeurs 😉

 

[lejack02]

Re : Aide Code IF sur VBA

Merci pour vos codes, j'ai pris celui d'eric qui marche très très bien !

Passez un bon week end

 

[Dormeur74]

Re : Aide Code IF sur VBA

Juste une petite simplification dans la formule qui permet d'éviter le "ET":

=SI(E2<=10^9;"SML";SI(E2>5*10^9;"LRG";"MID"))

C'était vraiment pour le fun.