Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Inputbox type=8

Inputbox type=8

2 réponses
Avatar
Caroual
Bonjour,
J'utilise la ligne de code suivante pour sélectionner une cellule et
récupérer des informations en fonction de la cellule sélectionnéee :
Set toto= Application.InputBox("Veuillez sélectionner la cellule !",
Type:=8)
Pour que cela fonctionne, il faut que j'ai précédemment mis cette ligne :
Application.ScreenUpdating=true
Cela fonctionne très bien si la cellule que je veux récupérer est à
l'écran. Si je dois faire défiler l'écran, il me renvoie cett erreur lorsque
je clique sur la cellule qui m'intéresse :
Erreur d'éxécution13
Incompatibilté de type

Je fais débogage, F5 et là je peux la sélectionner.

Quelqu'un a-t-il une idée ?
Caroual
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
michdenis
Bonjour Caroual,

Essaie ceci :

'----------------------------------------
Sub test1()
Dim Toto As Range
On Error Resume Next
Set Toto = Application.InputBox("Veuillez sélectionner la cellule !", Type:=8)

If Not Toto Is Nothing Then
'ton code avec la cellule toto
Else
MsgBox "Vous n'avez pas sélectionné une plage de cellules."
End If
End Sub
'------------------------------------------



"Caroual" a écrit dans le message de groupe de discussion :

Bonjour,
J'utilise la ligne de code suivante pour sélectionner une cellule et
récupérer des informations en fonction de la cellule sélectionnéee :
Set toto= Application.InputBox("Veuillez sélectionner la cellule !",
Type:=8)
Pour que cela fonctionne, il faut que j'ai précédemment mis cette ligne :
Application.ScreenUpdating=true
Cela fonctionne très bien si la cellule que je veux récupérer est à
l'écran. Si je dois faire défiler l'écran, il me renvoie cett erreur lorsque
je clique sur la cellule qui m'intéresse :
Erreur d'éxécution13
Incompatibilté de type

Je fais débogage, F5 et là je peux la sélectionner.

Quelqu'un a-t-il une idée ?
Caroual
Avatar
Caroual
Cela marche super, un grand merci

Caroual

"michdenis" a écrit dans le message de news:

Bonjour Caroual,

Essaie ceci :

'----------------------------------------
Sub test1()
Dim Toto As Range
On Error Resume Next
Set Toto = Application.InputBox("Veuillez sélectionner la cellule !",
Type:=8)

If Not Toto Is Nothing Then
'ton code avec la cellule toto
Else
MsgBox "Vous n'avez pas sélectionné une plage de cellules."
End If
End Sub
'------------------------------------------



"Caroual" a écrit dans le message de groupe de
discussion :

Bonjour,
J'utilise la ligne de code suivante pour sélectionner une cellule et
récupérer des informations en fonction de la cellule sélectionnéee :
Set toto= Application.InputBox("Veuillez sélectionner la cellule !",
Type:=8)
Pour que cela fonctionne, il faut que j'ai précédemment mis cette ligne :
Application.ScreenUpdating=true
Cela fonctionne très bien si la cellule que je veux récupérer est à
l'écran. Si je dois faire défiler l'écran, il me renvoie cett erreur
lorsque
je clique sur la cellule qui m'intéresse :
Erreur d'éxécution13
Incompatibilté de type

Je fais débogage, F5 et là je peux la sélectionner.

Quelqu'un a-t-il une idée ?
Caroual