mettre u resultats dans une cellule

Le
chris
Bonjour,
je voudrais mettre le resultats de cette macro dans une
cellule aprs 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 suprieurs 400errones")

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)
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
Clément Marcotte
Le #343853
Bonjour,

Range("a1").value = rep1


"chris" 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
Le #343852
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" 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)
Poster une réponse
Anonyme