VBA factorisation code source

Bonjour,

J'aimerais factoriser au maximum mon code VBA afin de rendre mon fichier utilisable par divers utilisateurs sans avoir à rentrer dans le code.

Mon fichier est une grille de diverses données qui se transforme en fichier plat une fois la macro activée.

Les lignes ci-dessous renvoient toutes au même code et le répète systématiquement avec une seule variable qui change, celle des colonnes ( +1 à chaque fois).

Je souhaite simplifier ce code et le répéter x fois avec +1 pour la colonne selon le nombre qui se trouvera dans la colonne G1 de ma feuil17 ( l'utilisateur utilisera la cellule G1 pour définir le nombre de fois qu'il veux voir le code se répéter).

Information, la première colonne = 7.

Exemple :

Dans le cas ci-dessous il y aurait le chiffre 5 dans la cellule G1 de ma feuille17 ( il faut donc répéter 5 fois mon code avec +1 pour le chiffre des colonnes en démarrant à la colonne 7 pour terminer à la colonne 11).

Impair 33, 7 ' 1er série généré sur la feuille17

Impair Feuil17.Range("a65536").End(xlUp).Row + 3, 8

Impair Feuil17.Range("a65536").End(xlUp).Row + 3, 9

Impair Feuil17.Range("a65536").End(xlUp).Row + 3, 10

Impair Feuil17.Range("a65536").End(xlUp).Row + 3, 11

Merci d'avance pour votre aide

Bonne fin de journée

Salut Spike,

pour moi, en tout cas, difficilement interprétable en l'état !

Un fichier-exemple serait souhaitable, un dessin valant mieux qu'un discours mal élaboré !

A+

Bonjour à tous,

En étant sûr de n'avoir pas tout compris, peut être :

ColIni = 7
NbCol = Feuil17.Range("G1").value

Impair 33, ColIni ' 1er série généré sur la feuille17
For i= ColIni + 1 to ColIni + NbCol -1
   Impair Feuil17.Range("a65536").End(xlUp).Row + 3, i
next

A+

Bonjour,

Top ! C'est exactement ce qu'il me fallait et ça fonctionne parfaitement.

Un grand merci à tous !

Bonne journée