Bonjour,
je voudrais mettre le resultats de cette macro dans une=20
cellule apr=E8s la boite msgbox
Sub Angle()
Dim rep As Integer
Dim rep1 As Integer
rep =3D InputBox("Saisissez la valeur en grades")
If rep > 400 Then
MsgBox ("Valeurs sup=E9rieurs =E0 400erron=E9es")
rep =3D InputBox("Saisissez la valeur en grades")
End If
MsgBox ("La transformation en degr=E9 est de") & rep * (90 /=20
100)
rep1 =3D rep * (90 / 100)
MsgBox ("La transformation en radian est de") & rep1 *=20
(3.1416 / 180)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Clément Marcotte
Bonjour,
Range("a1").value = rep1
"chris" a écrit dans le message de news:69df01c3e672$69076b60$ Bonjour, je voudrais mettre le resultats de cette macro dans une cellule après la boite msgbox
Sub Angle() Dim rep As Integer Dim rep1 As Integer rep = InputBox("Saisissez la valeur en grades") If rep > 400 Then MsgBox ("Valeurs supérieurs à 400erronées")
rep = InputBox("Saisissez la valeur en grades") End If MsgBox ("La transformation en degré est de") & rep * (90 / 100) rep1 = rep * (90 / 100) MsgBox ("La transformation en radian est de") & rep1 * (3.1416 / 180)
Bonjour,
Range("a1").value = rep1
"chris" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:69df01c3e672$69076b60$a501280a@phx.gbl...
Bonjour,
je voudrais mettre le resultats de cette macro dans une
cellule après la boite msgbox
Sub Angle()
Dim rep As Integer
Dim rep1 As Integer
rep = InputBox("Saisissez la valeur en grades")
If rep > 400 Then
MsgBox ("Valeurs supérieurs à 400erronées")
rep = InputBox("Saisissez la valeur en grades")
End If
MsgBox ("La transformation en degré est de") & rep * (90 /
100)
rep1 = rep * (90 / 100)
MsgBox ("La transformation en radian est de") & rep1 *
(3.1416 / 180)
"chris" a écrit dans le message de news:69df01c3e672$69076b60$ Bonjour, je voudrais mettre le resultats de cette macro dans une cellule après la boite msgbox
Sub Angle() Dim rep As Integer Dim rep1 As Integer rep = InputBox("Saisissez la valeur en grades") If rep > 400 Then MsgBox ("Valeurs supérieurs à 400erronées")
rep = InputBox("Saisissez la valeur en grades") End If MsgBox ("La transformation en degré est de") & rep * (90 / 100) rep1 = rep * (90 / 100) MsgBox ("La transformation en radian est de") & rep1 * (3.1416 / 180)
Jacky
Salut chris
Sub Angle() Dim rep As Integer Dim rep1 As Integer rep = InputBox("Saisissez la valeur en grades") If rep > 400 Then MsgBox ("Valeurs supérieurs à 400erronées")
rep = InputBox("Saisissez la valeur en grades") End If MsgBox ("La transformation en degré est de") & rep * (90 / 100) rep1 = rep * (90 / 100) [a1] = rep1'*************************** ICI pour la cellule a1 MsgBox ("La transformation en radian est de") & rep1 * (3.1416 / 180) [a2] = rep1 * (3.1416 / 180) '********************************ET LA pour la cellule a2
Salutations JJ
"chris" a écrit dans le message news: 69df01c3e672$69076b60$ Bonjour, je voudrais mettre le resultats de cette macro dans une cellule après la boite msgbox
Sub Angle() Dim rep As Integer Dim rep1 As Integer rep = InputBox("Saisissez la valeur en grades") If rep > 400 Then MsgBox ("Valeurs supérieurs à 400erronées")
rep = InputBox("Saisissez la valeur en grades") End If MsgBox ("La transformation en degré est de") & rep * (90 / 100) rep1 = rep * (90 / 100) MsgBox ("La transformation en radian est de") & rep1 * (3.1416 / 180)
Salut chris
Sub Angle()
Dim rep As Integer
Dim rep1 As Integer
rep = InputBox("Saisissez la valeur en grades")
If rep > 400 Then
MsgBox ("Valeurs supérieurs à 400erronées")
rep = InputBox("Saisissez la valeur en grades")
End If
MsgBox ("La transformation en degré est de") & rep * (90 / 100)
rep1 = rep * (90 / 100)
[a1] = rep1'*************************** ICI pour la cellule a1
MsgBox ("La transformation en radian est de") & rep1 * (3.1416 / 180)
[a2] = rep1 * (3.1416 / 180) '********************************ET LA pour la
cellule a2
Salutations
JJ
"chris" <anonymous@discussions.microsoft.com> a écrit dans le message news:
69df01c3e672$69076b60$a501280a@phx.gbl...
Bonjour,
je voudrais mettre le resultats de cette macro dans une
cellule après la boite msgbox
Sub Angle()
Dim rep As Integer
Dim rep1 As Integer
rep = InputBox("Saisissez la valeur en grades")
If rep > 400 Then
MsgBox ("Valeurs supérieurs à 400erronées")
rep = InputBox("Saisissez la valeur en grades")
End If
MsgBox ("La transformation en degré est de") & rep * (90 /
100)
rep1 = rep * (90 / 100)
MsgBox ("La transformation en radian est de") & rep1 *
(3.1416 / 180)
Sub Angle() Dim rep As Integer Dim rep1 As Integer rep = InputBox("Saisissez la valeur en grades") If rep > 400 Then MsgBox ("Valeurs supérieurs à 400erronées")
rep = InputBox("Saisissez la valeur en grades") End If MsgBox ("La transformation en degré est de") & rep * (90 / 100) rep1 = rep * (90 / 100) [a1] = rep1'*************************** ICI pour la cellule a1 MsgBox ("La transformation en radian est de") & rep1 * (3.1416 / 180) [a2] = rep1 * (3.1416 / 180) '********************************ET LA pour la cellule a2
Salutations JJ
"chris" a écrit dans le message news: 69df01c3e672$69076b60$ Bonjour, je voudrais mettre le resultats de cette macro dans une cellule après la boite msgbox
Sub Angle() Dim rep As Integer Dim rep1 As Integer rep = InputBox("Saisissez la valeur en grades") If rep > 400 Then MsgBox ("Valeurs supérieurs à 400erronées")
rep = InputBox("Saisissez la valeur en grades") End If MsgBox ("La transformation en degré est de") & rep * (90 / 100) rep1 = rep * (90 / 100) MsgBox ("La transformation en radian est de") & rep1 * (3.1416 / 180)
