Aide Code IF sur VBA

lejack02 · 3 Novembre 2012

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 · 3 Novembre 2012

Re : Aide Code IF sur VBA

lejack02 à dit:
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 · 3 Novembre 2012

Re : Aide Code IF sur VBA

Bonjour à tous,

en vba :

Code:

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 · 3 Novembre 2012

Re : Aide Code IF sur VBA

Bonjour à tous

Histoire de varier les plaisirs 😉

Code:

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 · 3 Novembre 2012

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 · 3 Novembre 2012

Re : Aide Code IF sur VBA

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

Code:

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

C'était vraiment pour le fun.

Aide Code IF sur VBA

lejack02

Guest

Pièces jointes

gilbert_RGI

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

lejack02

Guest

Dormeur74

XLDnaute Occasionnel

Discussions similaires

Aide Code IF sur VBA

lejack02

Guest

Pièces jointes

gilbert_RGI

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

lejack02

Guest

Dormeur74

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency