script + macro excel
Page 1 sur 1
script + macro excel
FONCTION CONVERTIR
Function convertir(somme As Integer, devise As String)
Dim taux As Integer
If devise = "BEF" Then
taux = 40.3399
ElseIf devise = "DEM" Then
taux = 1.95
ElseIf devise = "ESP" Then
taux = 166.386
ElseIf devise = "FRF" Then
taux = 6.55
ElseIf devise = "GRD" Then
taux = 340.75
ElseIf devise = "IEP" Then
taux = 0.78
ElseIf devise = "ITL" Then
taux = 1936.27
End If
convertir = somme / taux
End Function
Macro convertisseur
Sub Macro()
Dim be, ch, jap, us, tht As Double
Dim somme As Double
Dim pays As String
Range("A4").Select
be = Selection.Cells.Value
Range("B4").Select
ch = Selection.Cells.Value
Range("C4").Select
jap = Selection.Cells.Value
Range("D4").Select
us = Selection.Cells.Value
Range("E4").Select
tht = Selection.Cells.Value
somme = InputBox("Entrez la somme a convertir")
pays = InputBox("Entrez les 3 lettres du pays en majuscule")
pays2 = InputBox("E ou FRF ? (en majuscule)")
If pays2 = "" Then
tauxdest =
ElseIf pays2 = "E" Then
tauxdest = 1
End If
If pays = "BEF" Then
MsgBox " " & somme / be & " Euro(s)"
ElseIf pays = "CH" Then
MsgBox " " & somme / all & " Euro(s)"
ElseIf pays = "JAP" Then
MsgBox " " & somme / esp & " Euro(s)"
ElseIf pays = "US" Then
MsgBox " " & somme / fr & " Euro(s)"
ElseIf pays = "THT" Then
MsgBox " " & somme / gr & " Euro(s)"
End If
End Sub
Calculette
Sub Calculette()
Dim rep1, rep2, rep3, rep4, Nb1, Nb2 As Integer
Dim reponse As String
Nb1 = InputBox("Entrez le premier nombre")
Nb2 = InputBox("Entrez le deuxième nombre")
rep1 = Addition(Nb1, Nb2)
rep2 = Soustraction(Nb1, Nb2)
rep3 = Multiplication(Nb1, Nb2)
rep4 = Divsion(Nb1, Nb2)
Shell "cmd.exe /K C:\Users\5TQI-A\Desktop\Calculete.bat" & " " & rep1 & " " & rep2 & " " & rep3 & " " & rep4
End Sub
Function Addition(ByVal Nombre1 As Integer, ByVal Nombre2 As Integer)
Addition = Nombre1 + Nombre2
End Function
Function Soustraction(ByVal Nombre1 As Integer, ByVal Nombre2 As Integer)
Soustraction = Nombre1 - Nombre2
End Function
Function Multiplication(ByVal Nombre1 As Integer, ByVal Nombre2 As Integer)
Multiplication = Nombre1 * Nombre2
End Function
Function Division(ByVal Nombre1 As Integer, ByVal Nombre2 As Integer)
Division = Nombre1 / Nombre2
End Function
Script création utilisateur
srtComputer = "os01" (Nom de l’ordinateur)
Set util = GetObject("WinNT:\\ " & strComputer & "")
Set objUser = util.Create(“user”,”TOTO”) (défini le groupe et le nom)
objUser.setPassword “test”
objUser.SetInfo
MTN en administrateur :
net user TOTO password /add /passwordchag:no
wmic path win32_UserAccount where Name='TOTO' set PasswordExpires=false
net localgroup Administrateurs TOTO /add
net localgroup Utilisateurs TOTO /delete
Script netuser :
@echo off
net user %1 %2 /add
Script créé un partage :
md C:\Users\Administrateur\Documents\Partage
net share Partage="C:\Users\Administrateur\Documents\Partage"
net use U: \\os01\Partage
Function convertir(somme As Integer, devise As String)
Dim taux As Integer
If devise = "BEF" Then
taux = 40.3399
ElseIf devise = "DEM" Then
taux = 1.95
ElseIf devise = "ESP" Then
taux = 166.386
ElseIf devise = "FRF" Then
taux = 6.55
ElseIf devise = "GRD" Then
taux = 340.75
ElseIf devise = "IEP" Then
taux = 0.78
ElseIf devise = "ITL" Then
taux = 1936.27
End If
convertir = somme / taux
End Function
Macro convertisseur
Sub Macro()
Dim be, ch, jap, us, tht As Double
Dim somme As Double
Dim pays As String
Range("A4").Select
be = Selection.Cells.Value
Range("B4").Select
ch = Selection.Cells.Value
Range("C4").Select
jap = Selection.Cells.Value
Range("D4").Select
us = Selection.Cells.Value
Range("E4").Select
tht = Selection.Cells.Value
somme = InputBox("Entrez la somme a convertir")
pays = InputBox("Entrez les 3 lettres du pays en majuscule")
pays2 = InputBox("E ou FRF ? (en majuscule)")
If pays2 = "" Then
tauxdest =
ElseIf pays2 = "E" Then
tauxdest = 1
End If
If pays = "BEF" Then
MsgBox " " & somme / be & " Euro(s)"
ElseIf pays = "CH" Then
MsgBox " " & somme / all & " Euro(s)"
ElseIf pays = "JAP" Then
MsgBox " " & somme / esp & " Euro(s)"
ElseIf pays = "US" Then
MsgBox " " & somme / fr & " Euro(s)"
ElseIf pays = "THT" Then
MsgBox " " & somme / gr & " Euro(s)"
End If
End Sub
Calculette
Sub Calculette()
Dim rep1, rep2, rep3, rep4, Nb1, Nb2 As Integer
Dim reponse As String
Nb1 = InputBox("Entrez le premier nombre")
Nb2 = InputBox("Entrez le deuxième nombre")
rep1 = Addition(Nb1, Nb2)
rep2 = Soustraction(Nb1, Nb2)
rep3 = Multiplication(Nb1, Nb2)
rep4 = Divsion(Nb1, Nb2)
Shell "cmd.exe /K C:\Users\5TQI-A\Desktop\Calculete.bat" & " " & rep1 & " " & rep2 & " " & rep3 & " " & rep4
End Sub
Function Addition(ByVal Nombre1 As Integer, ByVal Nombre2 As Integer)
Addition = Nombre1 + Nombre2
End Function
Function Soustraction(ByVal Nombre1 As Integer, ByVal Nombre2 As Integer)
Soustraction = Nombre1 - Nombre2
End Function
Function Multiplication(ByVal Nombre1 As Integer, ByVal Nombre2 As Integer)
Multiplication = Nombre1 * Nombre2
End Function
Function Division(ByVal Nombre1 As Integer, ByVal Nombre2 As Integer)
Division = Nombre1 / Nombre2
End Function
Script création utilisateur
srtComputer = "os01" (Nom de l’ordinateur)
Set util = GetObject("WinNT:\\ " & strComputer & "")
Set objUser = util.Create(“user”,”TOTO”) (défini le groupe et le nom)
objUser.setPassword “test”
objUser.SetInfo
MTN en administrateur :
net user TOTO password /add /passwordchag:no
wmic path win32_UserAccount where Name='TOTO' set PasswordExpires=false
net localgroup Administrateurs TOTO /add
net localgroup Utilisateurs TOTO /delete
Script netuser :
@echo off
net user %1 %2 /add
Script créé un partage :
md C:\Users\Administrateur\Documents\Partage
net share Partage="C:\Users\Administrateur\Documents\Partage"
net use U: \\os01\Partage
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|