Bonjour,
j'aimerai inserer une colonne vide à chaque changement de mois.
mes mois commencent en I3 jusque NX3 (1 par jour).
j'ai essayé d'adapter un code trouvé pour insérer des lignes mais ..
j'y pompe rien
Sub ins()
lastr = Range("ZZ3").End(xlLeft).Row (je commence loin a droite et je reveins 1 par 1)
For i = lastr To 1 Step -1
nom1 = Cells(i, 1).Value
nom2 = Cells(i + 1, 1).Value
If nom1 <> nom2 Then
Cells(i + 1, 1).Select
Selection.EntireColumn.Insert Shift:=xlRight
End If
Next
End Sub
sur l'onglet '2017', vous avez le résultat voulu (colonne grise) fait a la main.
sur l'onglet '2018', une page test...
si quelqu'un est dispo pour m'expliquer
en vous remerciant
fabrice
j'aimerai inserer une colonne vide à chaque changement de mois.
mes mois commencent en I3 jusque NX3 (1 par jour).
j'ai essayé d'adapter un code trouvé pour insérer des lignes mais ..
j'y pompe rien
Sub ins()
lastr = Range("ZZ3").End(xlLeft).Row (je commence loin a droite et je reveins 1 par 1)
For i = lastr To 1 Step -1
nom1 = Cells(i, 1).Value
nom2 = Cells(i + 1, 1).Value
If nom1 <> nom2 Then
Cells(i + 1, 1).Select
Selection.EntireColumn.Insert Shift:=xlRight
End If
Next
End Sub
sur l'onglet '2017', vous avez le résultat voulu (colonne grise) fait a la main.
sur l'onglet '2018', une page test...
si quelqu'un est dispo pour m'expliquer
en vous remerciant
fabrice