Discussion :

[jbachet]

Bonjour,

j'ai un tableau avec plusieurs colonnes dont entre autre :
NOM
PRENON
NOMB1
PRENOMB1
NOMB2
PRENOMB2
NOMB3
PRENOMB3
NOMB4
PRENOMB4

NOM, PRENOM, NOMB1 et PRENOMB1 sont tout le temps renseignés, mais NOMB2, PRENOMB2, NOMB3, PRENOMB3, NOMB4 et PRENOMB4 pas forcément.

je souhaite dupliquer la ligne autant qu'il y a de 1, 2, 3 et 4 renseignés.

un tableau pour montrer ce que je veux faire :

Tableau de départ
NOM PRENOM NOMB1 PRENOMB1 NOMB2 PRENOMB2 NOMB3 PRENOMB3 NOMB4 PRENOMB4
AAA prenom1 AAA prenom2 AAA prenom3
BBB prenom4 CCC prenom5 CCC prenom6
DDD prenom7 DDD prenom7


Tableau à l'arrivée
NOM PRENOM NOMB PRENOMB
AAA prenom1 AAA prenom2
AAA prenom1 AAA prenom3
BBB prenom4 CCC prenom5
BBB prenom4 CCC prenom6
DDD prenom7 DDD prenom7

Je ne sais pas si c'est bien clair.

Quelles sont les méthodes pour y parvenir ?

Merci d'avance.

[Menhir]

Il suffit de lancer une boucle For To ou For Each pour scruter l'ensemble de tes lignes.
A l'intérieur, tu mets une seconde boucle For To qui, pour chaque ligne, scrute les cellule en commençant à 3, avec un Step de 2 et limité par en End(xlToRight).
Tu ajoutes une variable qui s'incrémente à chaque enregistrement pour suivre le numéro de ligne destination des données.
Et tu transferts de la source à la destination soit par un Copy sur le Range, soit par un simple Value = Value.