Private Sub couleur_lignes() With fgrEditFrais 'Colorer les lignes If .Rows > 1 Then For i = 1 To .Rows - 1 'Lignes paires rouge If (i - 1) Mod 2 <> 0 Then .Row = i For j = 1 To .Cols - 1 .COL = j .CellBackColor = RGB(249, 170, 170) Next End If Next End If End With End Sub
La seule chose à ajouter est qu'il faut sauvegarder la position actuelle avant de lancer la routine. Autrement dit, il faut garder en mémoire le .Row et .Col de façon à ce que quand la routine rend la main à l'utilisateur celui ci soit toujours au même endroit (même cellule) et non sur la dernière colonne de la dernière ligne.
Merci pour ce bout de code.
Pour ce sauvegarder la position actuelle il y as pas si simple que ça :Private Sub couleur_lignes()Dim i, j As LongDim tempCol, tempRow As Long With dgAPI tempCol = .Col tempRow = .Row 'Colorer les lignes If .Rows > 1 Then For i = 1 To .Rows - 1 'Lignes paires rouge If (i - 1) Mod 2 <> 0 Then .Row = i For j = 1 To .Cols - 1 .Col = j .CellBackColor = &HFFC0C0 Next End If Next End If .Col = tempCol .Row = tempRow End WithEnd Sub
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 874 348 membres 146 nouveaux aujourd'hui 16 152 membres club