Microsoft 365 Intégrer plusieurs cellules à partir d'un nom.

Léna Zie

XLDnaute Nouveau
Bonjour à tous, je lance ce topic car je suis en difficulté concernant un de mes fichiers Excel.
J'ai un fichier qui répertorie ma clientèle.
J'ai le nom des clients et leurs sociétés attribuées. J'aimerais pouvoir afficher pour chaque client, le nom de leur société et quelques autres attributs.
Pour exprimer mon propos, je vous joins un fichier exprimant mon fichier dans son état actuel, et ce que je souhaite obtenir.
Je vous remercie par avance de l'aide que vous pourrez m'apporter.

Bien cordialement,

Léna
 

Pièces jointes

  • TEST CARTO 25.xlsx
    26.1 KB · Affichages: 9

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Léna Zie, et bienvenue sur XLD,
Un essai en PJ avec :
VB:
Sub Importer()
    Dim f, DL%, DLD%, i%
    [A2:P10000].ClearContents
    Application.ScreenUpdating = False
    Set f = Sheets("ETAT_DU_FICHIER")
    DL = f.Range("A65500").End(xlUp).Row
    DLD = DL - 1 ' Car on commence en ligne 3 mais on colle en ligne 2
    ' Remise en ordre des colonnes
    Range("A2:E" & DLD) = f.Range("K3:O" & DL).Value
    Range("F2:F" & DLD) = f.Range("A3:A" & DL).Value
    Range("G2:G" & DLD) = f.Range("C3:C" & DL).Value
    Range("H2:H" & DLD) = f.Range("G3:G" & DL).Value
    Range("I2:K" & DLD) = f.Range("D3:F" & DL).Value
    Range("L2:L" & DLD) = f.Range("I3:I" & DL).Value
    Range("M2:M" & DLD) = f.Range("H3:H" & DL).Value
    Range("N2:P" & DLD) = f.Range("P3:R" & DL).Value
    Columns.AutoFit
    ' Suppression des Noms identiques
    For i = DLD To 2 Step -1
        If Cells(i, "A") = Cells(i - 1, "A") And Cells(i, "B") = Cells(i - 1, "B") And Cells(i, "C") = Cells(i - 1, "C") Then
            ' Si nom Prénom Portable identiques on efface
            Range(Cells(i, "A"), Cells(i, "E")).ClearContents
        End If
    Next i
End Sub
 

Pièces jointes

  • TEST CARTO 25.xlsm
    33.2 KB · Affichages: 1

Discussions similaires

Statistiques des forums

Discussions
299 729
Messages
1 978 790
Membres
206 395
dernier inscrit
Bilina