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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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"
<PercevalNeufCentSoixanteTre...@free.fr> 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
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
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
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
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
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" <boisgontier@hotmail.com> a écrit dans le message de news:
1175449847.802250.155030@l77g2000hsb.googlegroups.com...
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"
<PercevalNeufCentSoixanteTre...@free.fr> 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
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
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
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
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
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 -
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"
<PercevalNeufCentSoixanteTre...@free.fr> 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" <boisgont...@hotmail.com> a écrit dans le message de news:
1175449847.802250.155...@l77g2000hsb.googlegroups.com...
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"
<PercevalNeufCentSoixanteTre...@free.fr> 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 -
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
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
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
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
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
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 -
Génial, t'es un chef...
Encore merci :-) Il ne me reste plus qu'a afiner :-) TROP COOL !!!
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1175454132.662476.8310@y66g2000hsf.googlegroups.com...
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"
<PercevalNeufCentSoixanteTre...@free.fr> 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" <boisgont...@hotmail.com> a écrit dans le message de news:
1175449847.802250.155...@l77g2000hsb.googlegroups.com...
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"
<PercevalNeufCentSoixanteTre...@free.fr> 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 -
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
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
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 -