Discussion :

[khroutchev]

Bonjour.
Voilà tout simplement j'aimerais insérer une colonne dans mon fichier de données sous excel. Ce champ aurait pour première valeur "Numéro" (l'en tête). Celle-ci se créer à partir des deux autres champs précédents. (Deux numéros qu'il faudriat concaténner). J'aimerais insérer cette colonne en F et donc décaler les colonnes vers la droite (y compris la précédente colonne F).

Voici mon code, en ce qui concerne l'insertion de colonne mais il ne semble pas être correct

Code :

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

1
2
3
4
5
6
Sub creation()
Dim maVariable As Long
Dim i As Integer
Columns("F").Select
Selection.Insert Shift:=xlToRight
End Sub

Merci d'avance

[vieuxmonsieur]

Bonjour,
Pour insérer une colonne vois ceci :

Code :

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

1
2
3
Sub InserCol()
    Columns("F:F").Insert Shift:=xlToRight
End Sub

Pour le reste pas bien compris.

[Philippe Tulliez]

Bonjour,
Autre solution avec le n° de colonne plutôt que sa lettre et il n'est pas obligatoire de préciser le déplacement puisque par défaut il se fait par la droite pour les colonnes.

Code :

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

1
2
3
4
5
6
 Dim sht As Worksheet
 Set sht = ThisWorkbook.Worksheets("db")
 With sht
 .Columns(5).Insert
 .Cells(1, 5).Value = "Code"
 End With

et pour ce qui est de la concaténation des 2 cellules, il faudrait savoir de quelles colonnes il s'agit.

[khroutchev]

Les deux colonnes qui précèdent celle-ci, donc D et E.
Un exemple simple : D2 contient "3" et E2 contient "554" => F2 doit contenir "3 554". Les deux chiffres concaténnés puis espacés.

[Philippe Tulliez]

Bonjour,
A condition que la liste des données commence à A1
Par exemple

Code :

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

1
2
3
4
5
6
7
 Dim sht As Worksheet
 Set sht = ThisWorkbook.Worksheets("db")
 With sht
 .Columns(6).Insert
 .Cells(1, 6).Value = "Code"
 .Range(.Cells(2, 6), .Cells(.Range("A1").CurrentRegion.Rows.Count, 6)).FormulaR1C1 = "=RC[-2] & "" "" & RC[-1]"
 End With