XL 2010 Extraction / Création & répétition des données

[Raziel abel]

Bonjour la communauté,

Je fais appel à vous et certainement, à vos compétences sur Vba.

C'est assez simple à expliquer et certainement bien plus compliqué à créer.

Dans la Cellule O2, nous avons plusieurs références et si cela est possible, il faudrait extraire les références
en créant une ligne par référence, pour ne plus garder la cellule fusionnée, car pour réaliser un TCD c'est assez compliqué, tout en répétant les données qui existent dans la ligne de la cellule fusionnée.

Réaliser la même chose pour la cellule N5.

Pour exemple, veuillez trouver dans l'onglet "résultat souhaité " le résultat visé.
Merci d'avance pour votre aide.

Très Cordialement,

Raziel

 

[Staple1600]

Bonsoir le fil

Dans la cellule O2, nous avons:
QR Date

 

[Staple1600]

Re

Par contre en sélectionnant la cellule O4
Tu peux tester le code ci-dessous qui te mettra sur la voie

Sub PisteAsuivre()
Dim t
t = Split(ActiveCell.Text, Chr(10))
ActiveCell.Offset(1).Resize(UBound(t) + 1).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(1).Resize(UBound(t) + 1) = Application.Transpose(t)
End Sub

 

[Raziel abel]

Bonjour Staple,

Je veux tout juste dire Bravo!
"Dommage" que cela ne duplique pas les autres colonnes et je met dommage entre guillemet pour ne pas amoindrir votre ingéniosité.

Cela m'aide tout de même .

Je vais voir comment faire pour dubliquer le reste des colonnes .

Merci beaucoup.

Cordialement,

Raziel

 

[Staple1600]

Bonsoir le fil

Raziel abel
J'étais parti sur mise en bouche sur ce coup là
Si jamais tu bloques sur la voie, reviens ici
J'essaierai de cogiter un peu plus la chose.

 

[Raziel abel]

Bonsoir le fil

Raziel abel
J'étais parti sur mise en bouche sur ce coup là
Si jamais tu bloques sur la voie, reviens ici
J'essaierai de cogiter un peu plus la chose.

C'est déjà beaucoup ce que tu viens de faire.
Mon niveau en Vba est proche du Zéro et encore que le zéro a une certaine valeur.

Encore merci pour le temps que tu y as passé.