VBscript: caser les valeurs saisie dans les colonnes Excel
Résolu
honey2
Messages postés
7
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis nouvelle sur VBscript.
Je cherche à développer un programme qui permet de caser les vlan_ID(saisie par un utilisateur) dans la cellule(6,j) et cela par ordre de saisie.
Le problème de mon code c'est qu'il affiche sur Excel que la dernière valeur saise dans la cellule(6,2)!
Veuillez m'aider svp; voici mon code:
Dim i
Dim vlannb
Vlannb = 0
vlannb = CInt(vlannb) ' is now an integer
Dim vlanid
Vlanid = 0
vlanid = CInt(vlanid) ' is now an integer
vlan = MsgBox("Voulez-vous configurer des vlans?" ,vbQuestion + vbYesNo ,"Vlan Configuration")
If vlan = vbYes Then
vlannb = InputBox("Entrez le nombre de vlan à configurer", "Vlan Number","")
if vlannb >= 1 then
For i=1 to vlannb
vlanid = InputBox("Entrez les ID des vlans :", "Vlan ID","")
Next
For j=2 to vlannb
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Cells(6,1) = "vlan ID"
objExcel.Cells(6, j).Value = vlanid
objExcel.Cells.EntireColumn.AutoFit
Next
end if
else
port = InputBox("Voulez-vous configurer des ports?",vbQuestion + vbYesNo ,"Port Configuration")
end if
Je suis nouvelle sur VBscript.
Je cherche à développer un programme qui permet de caser les vlan_ID(saisie par un utilisateur) dans la cellule(6,j) et cela par ordre de saisie.
Le problème de mon code c'est qu'il affiche sur Excel que la dernière valeur saise dans la cellule(6,2)!
Veuillez m'aider svp; voici mon code:
Dim i
Dim vlannb
Vlannb = 0
vlannb = CInt(vlannb) ' is now an integer
Dim vlanid
Vlanid = 0
vlanid = CInt(vlanid) ' is now an integer
vlan = MsgBox("Voulez-vous configurer des vlans?" ,vbQuestion + vbYesNo ,"Vlan Configuration")
If vlan = vbYes Then
vlannb = InputBox("Entrez le nombre de vlan à configurer", "Vlan Number","")
if vlannb >= 1 then
For i=1 to vlannb
vlanid = InputBox("Entrez les ID des vlans :", "Vlan ID","")
Next
For j=2 to vlannb
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Cells(6,1) = "vlan ID"
objExcel.Cells(6, j).Value = vlanid
objExcel.Cells.EntireColumn.AutoFit
Next
end if
else
port = InputBox("Voulez-vous configurer des ports?",vbQuestion + vbYesNo ,"Port Configuration")
end if
1 réponse
-
Bonjour,
A vous de voir:
Dim i Dim vlannb vlannb = CInt(vlannb) ' is now an integer Dim vlanid vlanid = CInt(vlanid) ' is now an integer vlan = MsgBox("Voulez-vous configurer des vlans?" ,vbQuestion + vbYesNo ,"Vlan Configuration") If vlan = vbYes Then vlannb = InputBox("Entrez le nombre de vlan à configurer", "Vlan Number","") if vlannb >= 1 Then Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Add() Set objWorksheet = objWorkbook.Worksheets(1) For j=1 to vlannb vlanid = InputBox("Entrez les ID des vlans :", "Vlan ID","") objWorksheet.Cells(6,1) = "vlan ID" objExcel.Cells(6, j+1).Value = vlanid objExcel.Cells.EntireColumn.AutoFit Next end if else port = InputBox("Voulez-vous configurer des ports?",vbQuestion + vbYesNo ,"Port Configuration") end if
Bonne suite
