VBA - condition sur toute une colonne

Bonjour à tous,

Je suis désolé les amis mais je suis désespéré... J'ai débuté VBA il y a peu et je maitrise les base de la mise en forme pour le moment et les conditions très basiques.

II y a quelque chose qui me bloque tout mon potentiel voici ma question :

Je souhaite pouvoir appliquer une condition IF sur toute une colonne.

J'ai la colonne A (CA) et la colonne B (Commentaire)

Je souhaite que si dans la colonne A le CA est supérieur à 100, dans la colonne B il s'affichera un commentaire "Bon" ou "Mauvais" pour toutes les cellules...

Je suis bloqué, se serait vraiment un grand secours si vous pouviez me débloquer..

Faut-il une boucle? Je n'arrive pas a appliquer un "IF" à toute la colonne..

Bonjour,

On peut le faire sans VBA

236bon-mauvais.xlsx (9.17 Ko)

Bonjour mon ami

Merci pour ta réponse

En faite je cherche par VBA car je vais automatiser certaines taches... Si tu as la solution..

Bonjour,

Une morceau de code :

Sub Bon_Mauvais()
For ligne = 1 To ActiveSheet().UsedRange.Rows.Count
    If Range("A" & ligne) > 100 Then
        Range("B" & ligne) = "Bon"
    Else
        Range("B" & ligne) = "Mauvais"
    End If
Next
End Sub

@ ouisansdoute

Oui, sans doute, MAIS je pensais qu'il voulait que la colonne complète soit sup à 100 ! d'après le titre.

auquel cas ...

Sub Bon_Mauvais()
BonMauvais= "Bon"
For ligne = 1 To ActiveSheet().UsedRange.Rows.Count
    If Range("A" & ligne) < 100 Then
        BonMauvais= "Mauvais"
    End If
Next
For ligne = 1 To ActiveSheet().UsedRange.Rows.Count
    Range("B" & ligne) =  BonMauvais
Next
End Sub

Mais c'est certainement moi qui me trompe...

Rechercher des sujets similaires à "vba condition toute colonne"