XL 2016 Insérer colonne en fonction des informations fournies par l'utilisateur

[MousLy]

Bonjour le forum,
j'ai un fichier execl dans la quel je dois récupérer des informations. Mais pour cela les informations doivent être placées à partir de la colonne H. Et à partir de la colonne H je doit insérer une autre colonne pour faire place aux informations fournies. Je suis un débutant de vba vos aides sont les bienvenus. Merci d'avance.

Voici le code que j'ai.
Dim col As Integer
col = 8 'Referencie la colonne H.
'Récuperation des resultats a partir de la colonne 8
If col = 8 Then

ThisWorkbook.Sheets("feuil1").Cells(2, col).Value = item
ThisWorkbook.Sheets("feuil1").Cells(3, col).Value = val
Else
Column(8).Select
Selection.EntireColumn.Insert

ThisWorkbook.Sheets("feuil1").Cells(2, col).Value = item
ThisWorkbook.Sheets("feuil1").Cells(3, col).Value = val

End If
col = col + 1

 

[fanch55]

Bonsoir,
Pas de contact depuis ce premier post.
Effectivement, on ne peut rien faire pour vous: le code est trop succinct.
Un fichier exemple serait le bienvenu ..

 

[soan]

Bonjour MousLy, fanch55,

Je propose ce code VBA :

Sub Essai()
  Application.ScreenUpdating = 0
  Columns(8).Insert 'insertion d'une colonne avant la colonne H
  '=> la colonne H et celles de droites sont décalées à droite
  [H2] = "Item": [H3] = "Val"
End Sub

soan

 

[soan]

Bonjour @MousLy, le fil,

Si tu reviens sur ce sujet, merci de lire mon post #3.

Je t'ai aussi répondu sur ton autre sujet « VBA masquer les colonnes vides » ;
le fichier de mon post #6 pourrait t'intéresser ; et peut-être mon post #7,
qui est juste en dessous.

soan