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.
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
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
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" <param@orange.fr> a écrit dans le message de groupe de discussion :
erMGMPVPKHA.1236@TK2MSFTNGP05.phx.gbl...
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.
'---------------------------------------- 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
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
Cela marche super, un grand merci
Caroual
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
90C90025-0B9F-4FB6-BF5B-360FA2C2B3BC@microsoft.com...
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" <param@orange.fr> a écrit dans le message de groupe de
discussion :
erMGMPVPKHA.1236@TK2MSFTNGP05.phx.gbl...
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.
'---------------------------------------- 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.