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
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