Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

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

4 réponses
Avatar
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

4 réponses

Avatar
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"
wrote:
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


Avatar
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" a écrit dans le message de news:

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"
wrote:
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


Avatar
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"
wrote:
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" a écrit dans le message de news:

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"



wrote:
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 -



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

"JB" a écrit dans le message de news:

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"
wrote:
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" a écrit dans le message de news:

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"



wrote:
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 -