Re : macro pour insérer espaces
Salut Job75, Sergio, le Forum.
Job75, ta macro est royale, elle tourne nickel, je l'ai juste modifiée pour qu'elle cherche un écart de plus d'un jour entre deux dates
merci beaucoup donc.
Sergio, j'ai pas testé la tienne, mais je le ferai plus tard.
Par contre, question pour comprendre le VBA:
dans le bout de code:
For i = [A65536].End(xlUp).Row To 3 Step -1
If DateDiff("y", Cells(i - 1, 1), Cells(i, 1)) > 1 Then
Cells(i, 1).Resize(, 2).Insert xlDown
i = i - 1
End If
n'est-ce-pas redondant de "décrementer le i avant le end if vu que tu as défini un step -1?
Aussi, tu fais comment pour créer le bouton et mettre un texte dedans?
Aussi, si je veux utiliser cette macro avec d'autres fichiers, j'ai enlevé le Private devant le Sub, comme ça elle visible en cliquant sur outils/macro/.. y-a-t-il une alternative plus smart (comme par exemple que le bouton apparaisse sur tous les fichiers que j'ouvre à partir du moment ou celui ou tu as mis la macro est ouvert?
Enfin, y'a-t-il une raison pour que tu aies écrit ta macro dans ce qui correspond à la feuille dans l'éditeur VBA et pas dans un module (moi je crée souvent des macros à partir de Outils/macro et ça ouvre automatiquement un module...). Un peu de théorie sur le bon usage du module serait le très bienvenu...
En tout cas merci encore et vive ce forum!