Déterminer variable en sélectionnant une cellule

Version imprimable

Bonjour,

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

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:

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:

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 ??

11/12/2018, 11h39
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
11/12/2018, 13h00
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.

Salut,

J'ai trouvé cela sur la toile.

Code:

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

11/12/2018, 16h01
Razanem91

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

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

Code:

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