Discussion :

[lenorsk]

Bonjour,

Voici mon probleme, J'ai 2 colonnes presentées ci-dessous. Dans la colonne A, chaque chiffre est repeté 2 fois (a part 0).

Col A | Col B
0 | 0
1 | 0.22
1 | 0.51
2 | 0.45
2 | 0.13
3 | 0.95
3 | 0.55
etc | etc

Je souhaiterais avoir une macro qui crée 3 colonnes a partir de ces 2 colonnes de la facon suivante:

Col C | Col D | Col E
1 | 0.22 | 0.51
2 | 0.45 | 0.13
3 | 0.95 | 0.55
etc

Merci pour votre aide.

[QuestVba]

Bon jour

essaie avec ceci (il y a certainement plus faicle etplus propre)

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
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Separ_Col()
 
    Range("a1").Activate
    ActiveCell.Offset(rowoffset:=1, columnoffset:=0).Activate
    Do
'prise des connées
        x0 = ActiveCell.Value
        ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate
        x1 = ActiveCell.Value
        ActiveCell.Offset(rowoffset:=1, columnoffset:=0).Activate
        x2 = ActiveCell.Value
        ad = ActiveCell.Address
'trouver où les mettre
    Columns("c").EntireColumn.Select
    Selection.Find("", After:=ActiveCell).Select
 
'dépose des données
       ActiveCell.Value = x0
       ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate
       ActiveCell.Value = x1
       ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate
       ActiveCell.Value = x2
       Range(ad).Activate
       ActiveCell.Offset(rowoffset:=1, columnoffset:=-1).Activate
 
 
    Loop Until ActiveCell = ""
 
End Sub

[lenorsk]

Ca marche!
merci bcq.