Discussion :

[seanbateman]

Salut,

Je suis face à une montagne de données sous excel et de réclame votre aide

Je vous explique, je dispose actuellement de données sous excel (nom, prénom, entreprise, adresse email) pour plusieurs milliers de contacts.

Les données se présentent ainsi sur une colonne :

CASE VIDE
CASE VIDE
CASE VIDE
INFO SANS IMPORTANCE
CASE VIDE
-> ENTREPRISE
CASE VIDE
-> EMAIL
CASE VIDE
-> NOM
CASE VIDE
-> PRENOM

Et on reprend depuis le début.

J'aimerais les rentrer proprement, ligne par ligne (une ligne = un contact) de cette manière :

Ligne 1 colonne 1 : NOM
Ligne 1 colonne 2 : PRENOM
Ligne 1 colonne 3 : ENTREPRISE
Ligne 1 colonne 4 : EMAIL

Et on recommence en ligne 2 pour le prochain contact.

Est-ce techniquement possible (par VB par exemple) ? Savez-vous comment faire ?

A priori je dirais que c'est de la magie qu'il me faudrait

Merci aux aventuriers qui me répondront.

[QuestVba]

Bonjour,

Toutes les données se trouvent sur une seule et même colonne ? Donc après prénom, tu recommences avec trois lignes "CASE VIDE"?

[seanbateman]

Exactement, sur une seule colonne et après ça recommence par les trois cases vides.

[QuestVba]

Salut,

Je te mets un exemple avec des formule à tirer. Si ton fichier comporte tes données dans ta colonne A (feuil1) et que tu veux tes données à partir de A1 dans ta feuille2
Pour ENTREPRISE en A1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DECALER(Feuil1!$A$1;(LIGNE()*2-1)*6-1;0)

Pour EMAIL en B1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DECALER(Feuil1!$A$1;(LIGNE()*2-1)*6-1+2;0)

Pour NOM en C1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DECALER(Feuil1!$A$1;(LIGNE()*2-1)*6-1+4;0)

Pour PRENOM en D1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DECALER(Feuil1!$A$1;(LIGNE()*2-1)*6-1+6;0)

[gFZT82]

Bonjour,

Tu peux également utiliser ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Copier()
Dim WsS As Worksheet, WsC As Worksheet
Dim i As Long, j As Long
    Set WsS = Worksheets("Feuil1")
    Set WsC = Worksheets("Feuil2")
    j = 1
    Application.ScreenUpdating = False
    For i = 1 To WsS.Range("A" & Rows.Count).End(xlUp).Row Step 12
        WsC.Range("A" & j) = WsS.Range("A" & i + 9) 'Nom
        WsC.Range("B" & j) = WsS.Range("A" & i + 11) 'Prénom
        WsC.Range("C" & j) = WsS.Range("A" & i + 5) 'Entreprise
        WsC.Range("D" & j) = WsS.Range("A" & i + 7) 'Email
        j = j + 1
    Next i
    Set WsS = Nothing: Set WsC = Nothing
End Sub

Cordialement.

[seanbateman]

Un seul mot : Bravo

[QuestVba]

N'oublie pas si c'est OK >