Bonjour,
Je suis très loin de maitriser Vba, c'est pourquoi je viens vers vous pour trouver solution à mon problème.
Les codes Vba trouvé sur le Net sont fonctionnels, j'aimerai cependant qu'ils se limite à la plage A:AB jusqu'à la dernière ligne non vide. Ces lignes étant variables.
Je désirerai que la couleur se mette de la colonne A2:AB et jusque la dernière ligne non vide
Je vous remercie de bien vouloir corriger les codes, ce que je suis incapable de faire.
Feuille1(Base)
'La ligne de titre ne doit pas changer de couleur
'Colorer ligne active en jaune si clic en colonne "A" ou "B"
'Tous clics dans les autres cellules doivent être sans effet, mais permettant l'écriture
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Cells.Column > 2 Then Exit Sub
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 36 '(jaune clair) de colonne A:AB et jusque la dernière ligne non vide
Range("C3").Select
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Activate()
Application.ScreenUpdating = True
Dim maPlage As Range
Call EffCouleur
Dligne = Range("A500").End(xlUp).Row
For A = 3 To Dligne Step 2
Rows(A).Interior.ColorIndex = 35 '(vert clair) de colonnes A:AB et jq derniere ligne non vide
Next A
Range("C3").Select
Application.ScreenUpdating = False
End Sub
Module1
Sub EffCouleur()
Application.ScreenUpdating = False
'de A:AB et jq derniere ligne non vide
''' Sheets("Feuil1").Range("A1:AB" & DerLigne).Select
With Selection.Interior
.Pattern = xlNone
End With
Application.ScreenUpdating = True
End Sub