HelloDy
XLDnaute Junior
Bonjour le forum
J'ai des gros tableaux moches à rendre plus jolis et j'aimerais automatiser le processus.
Il faut que je les sépare en "blocs"
J'ai fait un petit truc comme ça :
etc etc...
Oui vous moquez pas c'est tout pourri n'empêche que ça fonctionne
Mais le problème c'est que parfois il faut répéter ce processus 3 fois, parfois 10, parfois 15, bref, "n" fois.
Et ça je sais pas comment le dire à Excel (qu'il faut qu'il s'arrête une fois qu'on est arrivé au bout du tableau).
Est-ce que quelqu'un peut m'expliquer comment compter le nombre de répétitions nécessaires ainsi que comment écrire une boucle qui se répétera n fois ?
Je joins le fichier incriminé si ça peut aider.
Merci tout plein !
Elo
J'ai des gros tableaux moches à rendre plus jolis et j'aimerais automatiser le processus.
Il faut que je les sépare en "blocs"
J'ai fait un petit truc comme ça :
VB:
'Se rendre au bloc suivant
Range("A6").Select
Selection.End(xlDown).Select
'Sélectionner la ligne active + insérer 1 ligne
Rows(ActiveCell.Row).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'Se rendre au bloc suivant
Selection.End(xlDown).Select
Selection.End(xlDown).Select
'Sélectionner la ligne active + insérer 1 ligne
Rows(ActiveCell.Row).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Oui vous moquez pas c'est tout pourri n'empêche que ça fonctionne
Mais le problème c'est que parfois il faut répéter ce processus 3 fois, parfois 10, parfois 15, bref, "n" fois.
Et ça je sais pas comment le dire à Excel (qu'il faut qu'il s'arrête une fois qu'on est arrivé au bout du tableau).
Est-ce que quelqu'un peut m'expliquer comment compter le nombre de répétitions nécessaires ainsi que comment écrire une boucle qui se répétera n fois ?
Je joins le fichier incriminé si ça peut aider.
Merci tout plein !
Elo