VBscript: caser les valeurs saisie dans les colonnes Excel [Résolu/Fermé]

Signaler
Messages postés
6
Date d'inscription
jeudi 7 mars 2013
Statut
Membre
Dernière intervention
22 juillet 2013
-
Messages postés
15433
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
30 novembre 2020
-
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

1 réponse

Messages postés
15433
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
30 novembre 2020
1 410
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
2
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 76687 internautes nous ont dit merci ce mois-ci