Lignes en couleurs changeantes [Résolu]

Messages postés
347
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
7 octobre 2019
-
Bonjour,
Comme vous le verrez ces codes ne fonctionnent pas correctement pour une ou plusieurs raison qui m'échappent.

Je voudrai obtenir une ligne sur deux en vert clair.
de la colonne A2 à la colonne AF pour en faciliter la lecture ou l'impression.
ou
Une ligne jaune seulement si cliqué en colonne A ou B</bold
<gras> Ici, il ne faut plus
que une ligne sur deux en vert apparaissent.
si possible, également de la colonne A2 à la colonne AF pour la ligne jaune
'Tous clics, colonne 3 et suivantes dans les autres cellules sont sans effet mais permettent l'écriture


Je compte sur votre gentillesse bien connue et vos profondes connaissances que vous mettez à nous rendre de si précieux services.
Je n'oublie pas non plus tout le temps que passez.
En vous en remerciant.

Voici les code que j'utilise :
'*****Codes sur la feuille Base*****
' Mise en couleur une ligne sur deux en vert clair - "le Total  nombre de ligne  est variable."
Private Sub Worksheet_Activate()     'MFC - Code actif à l'activation de l'onglet
'ici erreur définie par l'applicaion ou par l'objet
    Range("A2:AG").Select       'ici erreur définie par l'application ou par l'objet
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=MOD(LIGNE();2)=0"
    Selection.FormatConditions(1).Interior.ColorIndex = 35 '(vert clair)
    Range("A2").Select    'comment supprimer ce .Select
End Sub

'Colorer ligne active en jaune si clic en colonne "A" ou "B"
'Tous clics, colonne 3 et suivantes dans les autres cellules sont sans effet mais
' permettent l'écriture
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Selection.FormatConditions.Delete   'annulation de la Mfc
     If Target.Cells.Column > 2 Then Exit Sub
     Cells.Interior.ColorIndex = xlNone
     Target.EntireRow.Interior.ColorIndex = 36  '(jaune clair)
End Sub





Configuration: Configuration: Configuration: Windows / Firefox 69.0
Afficher la suite 

2 réponses

Messages postés
9152
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
9 octobre 2019
1647
0
Merci
Bonjour

Il manque un numéro de ligne dans ta plage

Private Sub Worksheet_Activate()     'MFC - Code actif à l'activation de l'onglet
Dim lifin As Long
lifin = Range("A" & Rows.Count).End(xlUp).Row
'ici erreur définie par l'applicaion ou par l'objet
    Range("A2:AG" & lifin).Select  

Cdlmnt
Commenter la réponse de ccm81
Messages postés
347
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
7 octobre 2019
13
0
Merci
Bonjour ccm81
Je te remercie beaucoup et te souhaite une bonne journée
Commenter la réponse de jean300