Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
XL 2019Suivi de musculation-cardio/remise en forme (des MEF à appliquer)...
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Re,
Effectivement, il y a un bug dans la dernière PJ.
Ca marche parce que Mercredi n'a qu'une ligne, s'il y en a plusieurs ça ne colore que la première.
Dans cette PJ c'est rectifié.
Bonjour Antho,
Un essai en PJ. J'ai opté pour un simple clic en colonne F. Un 1er clic met en vert, un second supprime le vert.
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E2:E17")) Is Nothing Then
Dim L, C
L = Target.Row
C = IIf(Cells(L, "B").Interior.Color = vbGreen, xlNone, vbGreen)
Range("B" & L & ":E" & L).Interior.Color = C
Range("F" & L).Select
End If
Fin:
End Sub
Re,
Effectivement, il y a un bug dans la dernière PJ.
Ca marche parce que Mercredi n'a qu'une ligne, s'il y en a plusieurs ça ne colore que la première.
Dans cette PJ c'est rectifié.
Re,
Effectivement, il y a un bug dans la dernière PJ.
Ca marche parce que Mercredi n'a qu'une ligne, s'il y en a plusieurs ça ne colore que la première.
Dans cette PJ c'est rectifié.
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD