Bonjour,
Pourriez-vous m'indiquer un code pour sauter ou ignorer une ou plusieurs lignes dont les cellules sont colorées (quelque soit la couleur).
Cela s'appliquerait à la saisie de données par un userform (déjà en place), qui renseigne les cellules des colonnes C,D,E,F et H, ligne par ligne. Chaque ligne correspond à un jour de la semaine. Les lignes des samedi et dimanche sont colorées au préalable. Lorsque les données du vendredi sont saisies, il faudrait sauter le samedi et le dimanche et passer à la ligne du lundi. Cela s'appliquerait à d'autres cas, jours fériés, congés, RTT, etc.... tous ces jours ont une couleur de ligne différente. Est-ce qu'il y aurait moyen d'adapter ce code ?:
Private Sub Worksheet_Change(ByVal Target As Range)
With Cells("A:A")
If .Interior.Color
. ' sauter la ou les cellules colorées.
End If
End With
End Sub
Merci pour votre aide.
Pourriez-vous m'indiquer un code pour sauter ou ignorer une ou plusieurs lignes dont les cellules sont colorées (quelque soit la couleur).
Cela s'appliquerait à la saisie de données par un userform (déjà en place), qui renseigne les cellules des colonnes C,D,E,F et H, ligne par ligne. Chaque ligne correspond à un jour de la semaine. Les lignes des samedi et dimanche sont colorées au préalable. Lorsque les données du vendredi sont saisies, il faudrait sauter le samedi et le dimanche et passer à la ligne du lundi. Cela s'appliquerait à d'autres cas, jours fériés, congés, RTT, etc.... tous ces jours ont une couleur de ligne différente. Est-ce qu'il y aurait moyen d'adapter ce code ?:
Private Sub Worksheet_Change(ByVal Target As Range)
With Cells("A:A")
If .Interior.Color
. ' sauter la ou les cellules colorées.
End If
End With
End Sub
Merci pour votre aide.