Chaine de texte automatique

Bonjour,

J'ai du mal à comprendre pour rédiger une chaine de texte automatique.

En testant, j'ai seulement de A249:N249 en couleur.

Pouvez-vous m'éclairer sur la commande. En vue de la réutiliser pour d'autre fichier excel, sur une autre zone de sélection.

Pour le moment j'ai :

Sub Surlignage()

' Surlignage 1 sur 2 Macro

Dim rng As Range, i As Long

For i = 7 To 249 Step 2

If rng Is Nothing Then

Set rng = Cells(1, i)

Else

Set rng = Union(rng, Cells(14, i))

End If

Next i

rng.EntireRow.Select

strRange = strRange + "A249:N249"

Range(strRange).Select

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.ThemeColor = xlThemeColorAccent3

.TintAndShade = 0.599993896298105

.PatternTintAndShade = 0

End With

End Sub

bonsoir,

une proposition de correction (si j'ai bien compris)

Sub Surlignage()
' Surlignage 1 sur 2 Macro
    Dim i As Long

    For i = 7 To 249 Step 2
        With Range(Cells(i, "A"), Cells(i, "N")).Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent3
            .TintAndShade = 0.599993896298105
            .PatternTintAndShade = 0
        End With
    Next i
End Sub

mais ceci peut se faire beaucoup plus simplement en mettant les données sous forme de tableau ou/et en utilisant une mise en forme conditionnelle.

Merci, exact. C'est aussi pour m'améliorer au VBA