Automatisation de recopie de cellules verticales en lignes

Bonjour à tous,

voici mon problème : j'ai un tableau dont voici ci-dessous un extrait :

Nom | Prénom - | Champ1

DENIZOU | Jean-Pierre | A

DENIZOU | Jean-Pierre | B

DENIZOU | Jean-Pierre | C

DENIZOU | Marcelle | D

DENIZOU | Yvette | E

DENIZOU | Yvette | F

DENIZOU | Yvette | G

DESCHAMPS| Geneviève | H

DESJACQUES| Geneviève | I

Dans cet exemple je voudrais cela sur la ligne : DENIZOU | Jean-Pierre | A | B | C |

puis supprimer les 2 lignes DENIZOU

etc ...

Avec cet exemple je devrais obtenir

DENIZOU | Jean-Pierre | A | B | C |

DENIZOU | Marcelle | D

DENIZOU | Yvette | F | G

DENIZOU | Geneviève | H | I

Je peux faire cela manuellement avec copier collage spécial transposition puis supprimer les lignes inutiles

mais mon fichier comporte plus de 1500 lignes et je risque d'avoir à traiter d'autres fichiers du même genre.

Je cherche donc une procédure qui automatiserai ce processus en sachant que le nombre de lignes à recopier n'est pas constant.

Merci pour votre aide

jlnony

Bonsoir

une proposition

Sub test()
    i = 2
    Key = ""
    Application.ScreenUpdating = False
    While Cells(i, 1) <> ""
        If Cells(i, 1) & Cells(i, 2) <> Key Then
            Key = Cells(i, 1) & Cells(i, 2)
            p = 3
            i = i + 1
        Else
            p = p + 1
            Cells(i - 1, p) = Cells(i, 3)
            Rows(i).Delete shift:=xlUp
        End If
    Wend
End Sub

Merci pour ta réponse.

Mais mes connaissance en programmation sont plutôt limité,

aussi comment j'insère le code dans la feuille et ensuite comment lancer la procédure ?

jlnony

bonsoir,

1) sur le forum, cliquer sur tout sélectionner

2) ctrl-C pour copier le code

3) aller dans excel

4) clic droit sur la feuille, puis sélectionner > visualiser code

5) ctrl-V pour coller le code

6) alt-F11 pour revenir dans excel

le code est inséré dans la feuille

pour lancer l'exécution de la macro faire alt-F8 et choisir la macro "test"

le programme fonctionne très bien.

Merci !

C'est super !