OVH Cloud OVH Cloud

du lundi au samedi

1 réponse
Avatar
yves
Bonjour a tous



dans un tableau avec JOUR pour entête de la colonne B et un nombre variable
de lignes,
comment inserrer automatiquement une ligne vide au dessus de la ligne
contenant lundi
uniquement quand ce lundi est précédé par un samedi


JOUR
lundi
lundi
mardi
mercredi
mercredi
jeudi
jeudi
vendredi
vendredi
samedi
samedi
lundi
lundi
lundi
mardi
mercredi
mercredi
jeudi

1 réponse

Avatar
JpPradier
Bonjour Yves

Une petite macro pour faire ce que tu demandes.

j-p

Sub Inserer()

Fin = Range("B65536").End(xlUp).Row
For Each cellu In Range("B2:B" & Fin)
If cellu.Value = "lundi" And cellu.Offset(-1).Value = "samedi" Then cellu.Insert shift:=xlDown
Next

End Sub