Mise en forme

[emmadrienlaes]

Bonjour,

Comment dupliquer une ligne en ne reprenant qu'une partie des informations sur certaines cellules ?

Exemple joint :
en G2 = Martin+Dupont+Robert+Durant+Paul,
H2 = Jean+Christophe+René+Philippe+Didier
et K2 = 26+78+98+453+123

Je souhaiterai qu'une ligne soit reprise par nom/prénom/Mat en conservant les autres colonnes :

210 Zone A 03/01/2011 11/01/2011 Toulouse 5 Martin Jean AFPA 18 26
210 Zone A 03/01/2011 11/01/2011 Toulouse 5 Dupont Christophe AFPA 18 78
210 Zone A 03/01/2011 11/01/2011 Toulouse 5 Robert René AFPA 18 98
210 Zone A 03/01/2011 11/01/2011 Toulouse 5 Durant Philippe AFPA 18 453
210 Zone A 03/01/2011 11/01/2011 Toulouse 5 Paul Didier AFPA 18 127

Pouvez-vous m'aider ?

Merci par avance

Christophe

 

[Grand Chaman Excel]

Re : Mise en forme

Bonsoir Christophe,

Défi intéressant... Voici un code qui semble fonctionner.
Note, on suppose que les données concaténées (colonne G, H et K) on le même nombre d'arguments...

Exécuter la macro TOTO. Les résultats apparaissent en A20. Tu pourras changer la plage de destination à ta guise...

A+

 

[JNP]

Re : Mise en forme

Bonjour le fil 🙂,
Une petite erreur de saisie s'est glissée dans ta macro 🙄...

        Tablo(6, x) = Split(rg.Offset(0, 6), "+")(x - iMin)
        Tablo(7, x) = Split(rg.Offset(0, 7), "+")(x - iMin)

Par contre, il y a aussi un problème avec les dates qui passent en anglais, et là, j'ai pas trouvé comment résoudre le problème 😱...
Bon WE 😎

 

[Grand Chaman Excel]

Re : Mise en forme

Bonjour JNP,

Merci pour la correction.
Pour ce qui est du format de date, c'est peut-être parce que je suis configuré avec le format anglais...?

A+

 

[emmadrienlaes]

Re : Mise en forme

Un grand MERCI à vous 2 !

J'ai juste un léger problème... dans mon fichier d'origine, j'ai parfois des lignes vides.

Malgré plusieurs tentatives, je n'arrive pas à rajouter les arguments me permettant de sauter une ou plusieurs ligne... ???

Est ce possible ?

Christophe

 

[Grand Chaman Excel]

Re : Mise en forme

Bonjour,

Dans ce cas, il faut modifier 3 lignes de codes comme suit :
(voir 'Ajout ou 'Modif)

Dim iMin As Integer
Dim DernLign As Integer     ' Ajout


On Error Resume Next
Set rg = ActiveSheet.Range("A2")
DernLign = ActiveSheet.Range("A60000").End(xlUp).Row       'Ajout
ReDim Tablo(10, 0)
For i = 0 To 10
    Tablo(i, 0) = ""
Next i

iMin = 0
Do Until rg.Row = DernLign + 1      'Modif
    'on cherche le nombre de noms
    arr = UBound(Split(rg.Offset(0, 6), "+")) + 1

Le reste du code ne change pas.

A+

 

[emmadrienlaes]

Re : Mise en forme

Excellent !!!

Cela fonctionne parfaitement !

Merci pour votre aide

A+