Lignes... Colonnes... Zat is la question ?!

[Sil20]

Bonjour

J'ai récupéré une liste de club de moto 🙂 sur le net et j'aimerais me creer une base client avec.

J'ai une liste de ce type dans un fichier Excel sur 2 colonnes :

Nom MC JUNIOR
Departement 92
Adresse 10 all'8ee Paul Signac 92110 CLICHY
Telephone 142700438

Nom C.L.A.M.
Departement 82
Adresse 390 rte des Charretiers 82400 VALENCE D'AGEN
Telephone 563291366
Fax 563291365

Sachant qu'il y a dans la premiere colonne les champs qui m'interessent. ils varient du style des fois le FAX, une autre fois un l'adresse du site internet, etc.

La bonne nouvelle c'est que chaque fiche client est separé par une ligne vide.

Tour de passe passe qui me fait tourner en bourrique depuis 2 jours.😡

Est-il possible de faire passer les données contenu à chaque ligne dans une colonne du style :
NOM ADRESSE DEPARTEMENT TEL FAX EMAIL SITE 😕

Merci d'avance pour vos reponses 😛

 

[Jocelyn]

Re : Lignes... Colonnes... Zat is la question ?!

Bonjour le Forum,
Bonjour Sil20,

je ne sais pas du tout si je pourrais t'aider mais il faudrait un petit fichier exemple pour voir comment sont tes données

Jocelyn

 

[Sil20]

Re : Lignes... Colonnes... Zat is la question ?!

Merci de la précision 😀

c'est le premier message !

Voici le fichier en question

 

[Jocelyn]

Re : Lignes... Colonnes... Zat is la question ?!

re,

un essai en piece jointe il n'necessite linsertion d'une nouvelle colonne B j'ai crée une feuille récap sur laquelle est ta demande.

regardes et dis nous

Jocelyn

 

[PascalXLD]

Re : Lignes... Colonnes... Zat is la question ?!

Bonjour

Bon jocelyne a été plus rapide (il doit manger plus vite 🙄)

Bon je l'ai fait en vba

 

[Sil20]

Re : Lignes... Colonnes... Zat is la question ?!

ca à l'air de bien marcher sur l'expemple... merci

maintenant quand je rajoute le reste de ma liste en ayant pris soin de recopier vers le bas ta formule de la colonne C et que je clique sur ton bouton magique voici le message :

erreur d'execution 91

variable objetou variable bloc With non définie

Sub transfert()
Dim x As Integer, maligne As Integer
Dim MonTexte As String
Dim MaColonne As Byte

maligne = 2
For x = 1 To Sheets("Feuil1").Range("C65536").End(xlUp).Row
If Sheets("Feuil1").Range("C" & x) = "" Then
maligne = maligne + 1
Else
MonTexte = Sheets("Feuil1").Range("C" & x)
MaColonne = Sheets("Feuil2").Range("A1:G1").Find(MonTexte).Column
Sheets("Feuil2").Cells(maligne, MaColonne) = Sheets("Feuil1").Range("B" & x)
End If
Next
End Sub

la ligne en gras est surlignée 😕

Kes ki se passe 😱

Merci encore vous êtes des champions !

 

[PascalXLD]

Re : Lignes... Colonnes... Zat is la question ?!

Re

Dans ta suite de données tu dois avoir un titre que je n'ai pas créé

Je modifies pour ce cas

 

[PascalXLD]

Re : Lignes... Colonnes... Zat is la question ?!

Re

Le fichier modifié qui créera das colonnes si des titres manquent

 

[Sil20]

Re : Lignes... Colonnes... Zat is la question ?!

Merci c'est au TOP !!!!!! 😉

Combien je vous dois Docteur...?

Mille mercis 😀