Discussion :

[Breizhounette]

Bonjour tous le monde!

Je viens demander de l’aide car je souhaite faire une macro pour créer des faux doublons.

Je m’explique : Dans mon fichier j’ai 3 colonnes dont une série de donnée qui se retrouve dans la 3eme (séparées pas des espaces et des tirets).

La 3eme colonne comporte alors un nombre aléatoire de valeurs. La première en contient 3, la suivante 2… et cela peut aller jusqu’à 150.
Voici cous quelle forme sont mes données à l’origine :

Martine Duboi 12 - 2564 - 4555
Paul Le Hen 1 - 15
Jacques Maret 1 - 5 - 10 - 18 - 20 - 15 - 20
Lucie Le Toux 5

Je souhaiterai obtenir la liste sous la forme suivante grâce à une macro (toujours sur 3 colonnes) :

Martine Duboi 12
Martine Duboi 2564
Martine Duboi 4555
Paul Le Hen 1
Paul Le Hen 15
Ect…

J'ai tout d'abord fais une macro pour séparer les données de la 3e colonnes et qu'elles correspondent toute à une cellule.
Mais je n'arrive pas à trouver la solution pour incrémenter mes données des deux premières colonnes puis 1 fois l'une des valeurs tour à tour.

J’ai testé plusieurs boucles mais étant donné que la plage de cellule qui contient des chiffres est très importante, une erreur s’affiche « mémoire insuffisante »… j'ai bien essayé avec End(xlUp) mais sans sucés. Je m'y prend peut-être mal et qu'il est possible de le faire sans décomposer la dernière colonne?

Je suis perdue ! Pouvez-vous m’aider ? :

Merci d’avance pour vos réponses!

[anasecu]

Bonsoir,

En partant de ta feuille "CALC", tu devrais obtenir ce que tu veux dans la feuille "Résultat" avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub generer()
Dim wr As Worksheet
Dim lge As Long, lgo As Long, lgr As Long, elm, tbd
tbd = Sheets("CALC").UsedRange.Cells.Value
Set wr = Sheets("Résultat"): lgr = 2
For lgo = 2 To UBound(tbd)
    elm = Split(tbd(lgo, 3), "-")
    For lge = 0 To UBound(elm)
        wr.Cells(lgr, 1) = tbd(lgo, 1)
        wr.Cells(lgr, 2) = tbd(lgo, 2)
        wr.Cells(lgr, 3) = elm(lge)
        lgr = lgr + 1
    Next lge
Next lgo
End Sub

[Breizhounette]

Merci!! C'est top! Je vais pouvoir avancer enfin!!
C'est très gentil! ça me remonte un peu le moral!!

[anasecu]

Bonjour et merci du retour : bonne continuation.