Gestion base de donnée Excel

Bonjour

je dois gérer une base de donnée clients tres importante plus de 62 000 lignes

mais en faite ces lignes se répetent tout au long du fichier , c'est a dire :

COLONNE 1 COLONNE 2

NOM DUPONT

PRENOM JACQUES

ADRESSE ....

CARTE FIDELITE X

...(BEAUCOUP DE CHAMPS QUI ME SONT INUTILES)

PUIS CA REPART

NOM X

PRENOM Y

ADRESSE ....

CARTE FIDELITE ....

et ainsi de suite

j'aimerais tout simplement avoir sur cette feuille de calcul ou sur une autre peu importe (au plus simple)

NOM PRENOM CARTE FIDELITE

DUPONT JACQUES X

X Y Z

Merci d'avance de vos g rands talents

Bonjour,

Carte Fidelité n'existe pas dans votre classeur

Mets les bonnes infos dans les colonnes ...

Sub infos()
For col = 1 To [A1].End(xlToRight).Column
    With Sheets(1)
        For lig = 1 To .[A1].End(xlDown).Row
            If .Cells(lig, 1) = Cells(1, col) Then
                Cells(Cells(Rows.Count, col).End(xlUp).Row + 1, col) = .Cells(lig, 2)
            End If
        Next
    End With
Next
End Sub

Bonjour,

De plus les infos ne se répète pas vraiment... il y en a qui s'intercalent, d'autres qui disparaissent : Ça ne simplifie pas vraiment le pb.

Prière de fournir un modèle fiable ou préciser s'il faut aller "à la pêche aux infos" (quand elles existent !)

A+

C'est exactement ca que j'essaie de faire steelson

TU ES UN DIABLE

pour moi c'est ok

peux tu juste à titre d'information m'explique ce que tu lui as demandé

tu lui as demande de cherche dans la colonne 1 ...

merci d'avance

désolé galopin

j'avais pourtant essaye d'etre clair

en faite ma base de donnée est confidentiel comme tu peux t'en douter

elle m'exporte un tas de champs les uns derrière les autres (client, code code carte site magasin ...)

je n'ai besoin que de seulement quelques champs a savoir nom prenom telephone mobile et nomgroupe

je cherchais a avoir une autre feuille de calcul ou figurerait 4 colonnes (nom prenom telephone mobile et nom groupe

) et les lignes correspondrait aux patients

saniadermel17 a écrit :

pour moi c'est ok

peux tu juste à titre d'information m'explique ce que tu lui as demandé

Petite correction au cas où une information ne serait pas renseignée !

Sub infos()
    With Sheets(1)
        For lig = 1 To .[A1].End(xlDown).Row
            For col = 1 To [A1].End(xlToRight).Column
                If .Cells(lig, 1) = Cells(1, col) Then
                    If col = 1 Then ici = Cells(Rows.Count, col).End(xlUp).Row + 1
                    Cells(ici, col) = .Cells(lig, 2)
                End If
            Next
        Next
    End With
End Sub

je consulte toute les lignes de tes données, si la première colonne correspond à un item, je prends la valeur de la seconde colonne