VBscript: caser les valeurs saisie dans les colonnes Excel
Résolu
honey2
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 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
A voir également:
- VBscript: caser les valeurs saisie dans les colonnes Excel
- Shutdown en vbscript - Forum VB / VBA
- Problème d'InputBox en VBScript ✓ - Forum VB / VBA
- [VBScript] Exécution automatique ✓ - Forum VB / VBA
- [PHP] Exécution d'un VBScript ✓ - Forum PHP
- [VBScript] numéro de semaine ✓ - Forum VB / VBA
1 réponse
Bonjour,
A vous de voir:
Bonne suite
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
