Discussion :

[Razanem91]

Bonjour,

Dans le cadre d'une gestion d'erreur je souhaite trouvé une solution à mon code qui est actuellement le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim CelluleTemperatureARupture As Range
Set CelluleTemperatureARupture = Application.InputBox(prompt:="Veuillez cibler la cellule correspondant à la temperature à rupture", Type:=8)
Msgbox (CelluleTemperatureARupture )

Le problème étant qu'avec application.Inputbox, si je clique sur bouton "ANNULER" cela me crée une erreur d’exécution 13 : incompatibilité de type.
J'ai essayé deux solutions :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim CelluleTemperatureARupture As Range
Set CelluleTemperatureARupture = Application.InputBox(prompt:="Veuillez cibler la cellule correspondant à la temperature à rupture", Type:=8)
If CelluleTemperatureARupture Is empty Then
      Exit sub
Msgbox (CelluleTemperatureARupture )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim CelluleTemperatureARupture As Range
Set CelluleTemperatureARupture = Application.InputBox(prompt:="Veuillez cibler la cellule correspondant à la temperature à rupture", Type:=8)
If CelluleTemperatureARupture = False Then
      Exit sub
Msgbox (CelluleTemperatureARupture )

J'ai vu sur le net qu'il était possible d'utiliser des Userform pour mieux gérer les événements, mais dans ce cas, comment déterminer une variable via une sélection dans un UserForm ??

[MarcelG]

Bonjour et bienvenu sur ce Forum,

Pour ce qui est de l'Inputbox.
Tu peux utiliser la méthode StrPtr comme dans cette discussion

[Razanem91]

Bonjour,

Merci d'avoir répondu.
Il est écrit dans le post vers lequel tu m'as redirigé que la fonction StrPtr ne marche que avec une variable de type String.

Hors la mienne est de type Range.
J'ai essayé, cela ne fonctionne pas.

[MarcelG]

Salut,

J'ai trouvé cela sur la toile.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test()
 
  Dim MyRange As Range
  Dim MyCol As New Collection
 
  MyCol.Add Application.InputBox("dada", , , , , , , 8)
  If TypeOf MyCol(1) Is Range Then Set MyRange = MyCol(1)
 
  Set MyCol = New Collection
 
  If MyRange Is Nothing Then
        Debug.Print "Vous avez annulé"
  Else
        Debug.Print "La cellule " & MyRange.Address & " a été sélectionnée."
        Worksheets("Feuil1").Range(MyRange.Address).Interior.ColorIndex = 35
  End If
 
  Set MyRange = Nothing
  Set MyCol = Nothing
 
End Sub

[Razanem91]

Nickel ! Ca marche parfaitement!
Merci
Je met le sujet en résolu

[florent77]

Une autre solution est de déclarer ta variable en variant, un peu plus couteux certes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
Dim CelluleTemperatureARupture As Variant
 
CelluleTemperatureARupture = Application.InputBox(prompt:="Veuillez cibler la cellule correspondant à la temperature à rupture")
 
Select Case CelluleTemperatureARupture
    Case False
        MsgBox "Vous avez annulé la sélection"
    Case ""
        MsgBox "Veuillez sélectionner une cellule"
    Case Else
        MsgBox "La température à rupture est de " & CelluleTemperatureARupture & "°C"
End Select
 
End Sub