VBA création d'une boucle

Bonjour cousinhub29?

C'est vrai que sans les .Select, ça allège le code, merci pour cette info.
Ton code fonctionne parfaitement, merci beaucoup !
Bonne journée

Bonjour,

En VBA, les .Select sont rarement nécessaires...

Essaie avec ce code :

Sub essai()
Dim i As Integer
For i = 1 To Range("AG65000").End(xlUp).Row
    If Range("AG" & i) = "SUP" Then
        Rows(i).Interior.ColorIndex = 40
    ElseIf Range("AG" & i) = "PRE" Then
        Rows(i).Interior.ColorIndex = 39
    ElseIf Range("AG" & i) = "LMT" Then
        Rows(i).Interior.ColorIndex = 37
    End If
    If Range("AI" & i) = "T" Then
        Rows(i).Font.Bold = True
    End If
Next i
End Sub

Bonne journée

Re bonjour,
J'ai essayé d'étendre le code en ajoutant d'autres conditions derrière.

'Création Variable
Dim i As Integer
For i = 1 To 1000

'Mise en Forme
If Range("AG" & i) = SUP Then
Rows(i).Select
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
.PatternColorIndex = 1
End With

Else
If Range("AG" & i) = PRE Then
Rows(i).Select
With Selection.Interior
.ColorIndex = 39
.Pattern = xlSolid
.PatternColorIndex = 1
End With

Else
If Range("AG" & i) = LMT Then
Rows(i).Select
With Selection.Interior
.ColorIndex = 37
.Pattern = xlSolid
.PatternColorIndex = 1
End With

Else
If Range("AI" & i) = T Then
Rows(i).Select
Selection.Font.Bold = True

End If
Next i

J'ai un message d'erreur qui dit "Next sans For"
--> Comment se fait-il qu'il ne détecte pas le For ?

Merci

Bon à savoir :-)
Merci encore

J'ai trouvé, il fallait saisir :
Rows(i & ":" & i).Select

Merci à tous pour votre aide !

Bonsoir,

L'objectif et de colorer toute la ligne et uniquement la cellule.
Mais je n'arrive pas à sélectionner une ligne sans spécifier le n°.
Comment puis-je faire ?
Si je mets Range("i:i").Select, il me colore ma colonne I.

Je suis désolée, j'ai encore un message d'erreur :

Voici le code :

Sub Mise_en_forme()

Dim i As Integer
For i = 1 To 10

If Range("c" & i) = FAUX Then
Rows("i:i").Select
With Selection.Interior
.PatternColorIndex = 1
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
End If
Next i
End Sub

Le message d'erreur est "Erreur définie par l'objet ou par l'application" sur la ligne "Rows("i:i").Select"

Qu'est-ce qui cloche ?
Merci

"c" & i à mettre à la place de ci, autant pour moi

Bonjour,

Merci pour ta réponse rapide !

C'est une manip' que je fais plusieurs fois par jour en passant par la mise en forme conditionnelle, et j'aimerais l'automatiser, car elle me fait perdre du temps.
C'est pourquoi j'aimerais créer une macro.

Concernant ton code, j'ai un message d'erreur qui dit "La méthode 'Range' de l'Objet '_Global' à échoué", du coup j'ai remplacé par cells (3, i)
--> Là je n'ai pas de message d'erreur, mais rien ne se passe sur mon fichier.

A quoi cela peut-il être dû ? Est-ce cohérent ?

Autre question, dans ton code, tu mets Rows("i:2"), c'est plutôt Rows("i:i"), non ?

Encore merci

Pourquoi ne pas passer par une mise en forme conditionnelle simplement par excel?

Sinon tu peux tenter avec un truc du genre

dim i as integer
for i=1 to 10 (tableau de ligne 1 à 10)

If Range("Ci") = FAUX Then
Rows("i:2").Select
With Selection.Interior
.PatternColorIndex = 1
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
End If
next i
End Sub