créer une base de données a partir d'un fichier

Le
PercevalNeufCentSoixanteTreize
Bonjour a tous

J'ai récupéré un fichier excel qui se présente comme un lot de cartes de
visites, je voudrais le transformer en base de données et je ne sais pas
comment faire.

Ci dessous le format de mon fichier :

Nom : Nom1
Prénom : Prénom1
Age : Age1
Adresse : Adresse1
Nom : Nom2
Prénom : Prénom2
Age : Age2
Adresse : Adresse2
Nom : Nom3
Prénom : Prénom3
Age : Age3
Adresse : Adresse3

Et voici comment je voudrais le transformer :

Nom Prénom Age Adresse
Nom1 Prénom1 Age1 Adresse1
Nom2 Prénom2 Age2 Adresse2
Nom3 Prénom3 Age3 Adresse3

Pouvez vous m'aider s'il vous plait ?
Merci d'avance
Perceval
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4314941
Bonsoir,

Transpose la colonne B dans une BD

Sub transpose() 'dans feuil1 colonne 5
pas = 4
For i = 1 To [B65000].End(xlUp).Row Step pas
Sheets(1).Cells(2 + i pas, 5).Resize(, pas) = _
Application.transpose(Cells(i, 2).Resize(pas, 1))
Next i
End Sub

Sub transpose2() ' dans feuille2
pas = 4
For i = 1 To [B65000].End(xlUp).Row Step pas
Sheets(2).Cells(2 + i pas, 1).Resize(, pas) = _
Application.transpose(Cells(i, 2).Resize(pas, 1))
Next i
End Sub

http://cjoint.com/?ebtYiIWQFV

JB


On 1 avr, 19:08, "PercevalNeufCentSoixanteTreize"
Bonjour a tous

J'ai récupéré un fichier excel qui se présente comme un lot de ca rtes de
visites, je voudrais le transformer en base de données et je ne sais pas
comment faire.

Ci dessous le format de mon fichier :

Nom : Nom1
Prénom : Prénom1
Age : Age1
Adresse : Adresse1
Nom : Nom2
Prénom : Prénom2
Age : Age2
Adresse : Adresse2
Nom : Nom3
Prénom : Prénom3
Age : Age3
Adresse : Adresse3

Et voici comment je voudrais le transformer :

Nom Prénom Age Adresse
Nom1 Prénom1 Age1 Adresse1
Nom2 Prénom2 Age2 Adresse2
Nom3 Prénom3 Age3 Adresse3

Pouvez vous m'aider s'il vous plait ?
Merci d'avance
Perceval


PercevalNeufCentSoixanteTreize
Le #4314911
Ca marche, sauf que mon pas n'est pas fixe :-(
Du coup ca décale tout...
Pour certains j'ai une rubrique suplémentaire (TEL) mais je ne l'ai pas pour
tous...

Peut-on trier sur le 'nom' qui est dans la colonne A ?


"JB"
Bonsoir,

Transpose la colonne B dans une BD

Sub transpose() 'dans feuil1 colonne 5
pas = 4
For i = 1 To [B65000].End(xlUp).Row Step pas
Sheets(1).Cells(2 + i pas, 5).Resize(, pas) = _
Application.transpose(Cells(i, 2).Resize(pas, 1))
Next i
End Sub

Sub transpose2() ' dans feuille2
pas = 4
For i = 1 To [B65000].End(xlUp).Row Step pas
Sheets(2).Cells(2 + i pas, 1).Resize(, pas) = _
Application.transpose(Cells(i, 2).Resize(pas, 1))
Next i
End Sub

http://cjoint.com/?ebtYiIWQFV

JB


On 1 avr, 19:08, "PercevalNeufCentSoixanteTreize"
Bonjour a tous

J'ai récupéré un fichier excel qui se présente comme un lot de cartes de
visites, je voudrais le transformer en base de données et je ne sais pas
comment faire.

Ci dessous le format de mon fichier :

Nom : Nom1
Prénom : Prénom1
Age : Age1
Adresse : Adresse1
Nom : Nom2
Prénom : Prénom2
Age : Age2
Adresse : Adresse2
Nom : Nom3
Prénom : Prénom3
Age : Age3
Adresse : Adresse3

Et voici comment je voudrais le transformer :

Nom Prénom Age Adresse
Nom1 Prénom1 Age1 Adresse1
Nom2 Prénom2 Age2 Adresse2
Nom3 Prénom3 Age3 Adresse3

Pouvez vous m'aider s'il vous plait ?
Merci d'avance
Perceval


JB
Le #4314811
Transpose la colonne B dans une BD

Sub transpose4()
lignedest = 2
ColDest = 5
début = 1
ligne = début + 1
Do While Cells(ligne, 1) <> ""
If Cells(ligne, 1) = "Nom" Then
Range(Cells(début, 2), Cells(ligne - 1, 2)).Copy
Cells(lignedest, ColDest).PasteSpecial Paste:=xlPasteAll,
transpose:=True
début = ligne
lignedest = lignedest + 1
End If
ligne = ligne + 1
Loop
Range(Cells(début, 2), Cells(ligne - 1, 2)).Copy
Cells(lignedest, ColDest).PasteSpecial Paste:=xlPasteAll,
transpose:=True
End Sub

http://cjoint.com/?ebvbZKcLtt

JB

On 1 avr, 20:08, "PercevalNeufCentSoixanteTreize"
Ca marche, sauf que mon pas n'est pas fixe :-(
Du coup ca décale tout...
Pour certains j'ai une rubrique suplémentaire (TEL) mais je ne l'ai pas pour
tous...

Peut-on trier sur le 'nom' qui est dans la colonne A ?

"JB"
Bonsoir,

Transpose la colonne B dans une BD

Sub transpose() 'dans feuil1 colonne 5
pas = 4
For i = 1 To [B65000].End(xlUp).Row Step pas
Sheets(1).Cells(2 + i pas, 5).Resize(, pas) = _
Application.transpose(Cells(i, 2).Resize(pas, 1))
Next i
End Sub

Sub transpose2() ' dans feuille2
pas = 4
For i = 1 To [B65000].End(xlUp).Row Step pas
Sheets(2).Cells(2 + i pas, 1).Resize(, pas) = _
Application.transpose(Cells(i, 2).Resize(pas, 1))
Next i
End Sub

http://cjoint.com/?ebtYiIWQFV

JB

On 1 avr, 19:08, "PercevalNeufCentSoixanteTreize"



Bonjour a tous

J'ai récupéré un fichier excel qui se présente comme un lot de cartes de
visites, je voudrais le transformer en base de données et je ne sais pas
comment faire.

Ci dessous le format de mon fichier :

Nom : Nom1
Prénom : Prénom1
Age : Age1
Adresse : Adresse1
Nom : Nom2
Prénom : Prénom2
Age : Age2
Adresse : Adresse2
Nom : Nom3
Prénom : Prénom3
Age : Age3
Adresse : Adresse3

Et voici comment je voudrais le transformer :

Nom Prénom Age Adresse
Nom1 Prénom1 Age1 Adresse1
Nom2 Prénom2 Age2 Adresse2
Nom3 Prénom3 Age3 Adresse3

Pouvez vous m'aider s'il vous plait ?
Merci d'avance
Perceval- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



PercevalNeufCentSoixanteTreize
Le #4314721
Génial, t'es un chef...
Encore merci :-) Il ne me reste plus qu'a afiner :-) TROP COOL !!!

"JB"
Transpose la colonne B dans une BD

Sub transpose4()
lignedest = 2
ColDest = 5
début = 1
ligne = début + 1
Do While Cells(ligne, 1) <> ""
If Cells(ligne, 1) = "Nom" Then
Range(Cells(début, 2), Cells(ligne - 1, 2)).Copy
Cells(lignedest, ColDest).PasteSpecial Paste:=xlPasteAll,
transpose:=True
début = ligne
lignedest = lignedest + 1
End If
ligne = ligne + 1
Loop
Range(Cells(début, 2), Cells(ligne - 1, 2)).Copy
Cells(lignedest, ColDest).PasteSpecial Paste:=xlPasteAll,
transpose:=True
End Sub

http://cjoint.com/?ebvbZKcLtt

JB

On 1 avr, 20:08, "PercevalNeufCentSoixanteTreize"
Ca marche, sauf que mon pas n'est pas fixe :-(
Du coup ca décale tout...
Pour certains j'ai une rubrique suplémentaire (TEL) mais je ne l'ai pas
pour
tous...

Peut-on trier sur le 'nom' qui est dans la colonne A ?

"JB"
Bonsoir,

Transpose la colonne B dans une BD

Sub transpose() 'dans feuil1 colonne 5
pas = 4
For i = 1 To [B65000].End(xlUp).Row Step pas
Sheets(1).Cells(2 + i pas, 5).Resize(, pas) = _
Application.transpose(Cells(i, 2).Resize(pas, 1))
Next i
End Sub

Sub transpose2() ' dans feuille2
pas = 4
For i = 1 To [B65000].End(xlUp).Row Step pas
Sheets(2).Cells(2 + i pas, 1).Resize(, pas) = _
Application.transpose(Cells(i, 2).Resize(pas, 1))
Next i
End Sub

http://cjoint.com/?ebtYiIWQFV

JB

On 1 avr, 19:08, "PercevalNeufCentSoixanteTreize"



Bonjour a tous

J'ai récupéré un fichier excel qui se présente comme un lot de cartes de
visites, je voudrais le transformer en base de données et je ne sais pas
comment faire.

Ci dessous le format de mon fichier :

Nom : Nom1
Prénom : Prénom1
Age : Age1
Adresse : Adresse1
Nom : Nom2
Prénom : Prénom2
Age : Age2
Adresse : Adresse2
Nom : Nom3
Prénom : Prénom3
Age : Age3
Adresse : Adresse3

Et voici comment je voudrais le transformer :

Nom Prénom Age Adresse
Nom1 Prénom1 Age1 Adresse1
Nom2 Prénom2 Age2 Adresse2
Nom3 Prénom3 Age3 Adresse3

Pouvez vous m'aider s'il vous plait ?
Merci d'avance
Perceval- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Publicité
Poster une réponse
Anonyme