Modifier un code

[maval]

Bonjour,

J'ai un code qui ma était fait par Papou-Net que je salut et remercie, qui fonctionne pas trop mal juste une petite modif.
J'ai un Userform avec une combobox et j'ai un code qui permet de sélectionner une cellule de la couleur rouge avec ma combobox, et lorsque je ferme mon Userform à l'aide de bouton quitter, les cellules de la colonne "A" redevienne de deux
Ma question est:

Si je fini par la dernière ligne non vide de ma combopbox j'ai bien la cellule en rouge et lorsque je ferme mon Userform pas de problème tous revient comme avant, avec mais deux couleurs comme a l'ouverture de l'Userform,si je fini avec ex: le N°3 la cellule 3 reste en rouge?

D'avance merci à qui pourra m'aider.
Cordialement
Maval

 

[Papou-net]

Re : Modifier un code

RE Maval,

Remplace ta macro par celle-ci :

Private Sub Quitter_Click()
    For i = 5 To 100
      With Range("A" & i).Interior
        .ColorIndex = xlAutomatic
        .Pattern = IIf(i Mod 2 = 0, xlNone, xlSolid)
        .TintAndShade = IIf(i Mod 2 = 0, 0, -0.149998474074526)
        .PatternTintAndShade = 0
      End With
    Next
    Range("M3").Select
    Unload Me
    End Sub

Dans laquelle j'ai rajouté .ColorIndex = xlAutomatic.

Cordialement.

 

[maval]

Re : Modifier un code

Re,

Merci beaucoup sa fonctionne Nickel

Bonne journée

Max