Ce que je cherche =E0 faire par exemple, c'est, si je s=E9lectionne la
cellule A10 par la commande InputBox, r=E9cup=E9rer ou copier la valeur
F10.
Pour s=E9lectionner la cellule, j'utilise la macro suivante :
Dim Plage As Range
Set Plage =3D Application.InputBox("S=E9lectionnez une plage !",
"S=E9lection de cellules", Type:=3D8)
-Si l'opérateur clique sur Annuler, il y a erreur (Err): -Si l'opérateur saisit bien une plage, il n'y a pas erreur (Err=0)
On Error Resume Next Set AdrCel = Application.InputBox("Sélectionnez une cellule", Type:=8) If Err = 0 Then x = AdrCel.Offset(0, 5) MsgBox x Else MsgBox "annulé" End If
JB
On 13 mar, 12:41, "Tatanka" wrote:
Salut JB,
Pourrais-tu éclairer ma faible lanterne ? On Error Resume Next permet de passer à l'instruction suivante s'il y a une erreur. C'est bien ça ? Et Err = 0, ça sert à quoi au juste ?
Serge
"JB" a écrit dans le message de news:
Bonjour,
On Error Resume Next Set AdrCel = Application.InputBox("Sélectionnez une cellule", Type:=8) If Err = 0 Then x = AdrCel.Offset(0, 5) MsgBox x End If
JB
On 12 mar, 22:49, PAT0051 wrote:
Bonjour à tous,
Ce que je cherche à faire par exemple, c'est, si je sélectionne la cellule A10 par la commande InputBox, récupérer ou copier la valeur F10.
Pour sélectionner la cellule, j'utilise la macro suivante : Dim Plage As Range Set Plage = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
Merci de votre aide PAT0051- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci à Misange et JB.
Là j'Err un peu moins ;-)
Serge
"JB" <boisgontier@hotmail.com> a écrit dans le message de news: 2ffc582f-da6d-4fcf-8de4-5c47a9e71149@m34g2000hsc.googlegroups.com...
Bonjour,
-Si l'opérateur clique sur Annuler, il y a erreur (Err):
-Si l'opérateur saisit bien une plage, il n'y a pas erreur (Err=0)
On Error Resume Next
Set AdrCel = Application.InputBox("Sélectionnez une cellule", Type:=8)
If Err = 0 Then
x = AdrCel.Offset(0, 5)
MsgBox x
Else
MsgBox "annulé"
End If
JB
On 13 mar, 12:41, "Tatanka" <garno...@ENLEVER.videotron.ca> wrote:
Salut JB,
Pourrais-tu éclairer ma faible lanterne ?
On Error Resume Next permet de passer
à l'instruction suivante s'il y a une erreur.
C'est bien ça ?
Et Err = 0, ça sert à quoi au juste ?
Serge
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
09472525-9bc0-44b1-9a8d-2270bcdaa...@u72g2000hsf.googlegroups.com...
Bonjour,
On Error Resume Next
Set AdrCel = Application.InputBox("Sélectionnez une cellule", Type:=8)
If Err = 0 Then
x = AdrCel.Offset(0, 5)
MsgBox x
End If
JB
On 12 mar, 22:49, PAT0051 <pmarl...@wanadoo.fr> wrote:
Bonjour à tous,
Ce que je cherche à faire par exemple, c'est, si je sélectionne la
cellule A10 par la commande InputBox, récupérer ou copier la valeur
F10.
Pour sélectionner la cellule, j'utilise la macro suivante :
Dim Plage As Range
Set Plage = Application.InputBox("Sélectionnez une plage !",
"Sélection de cellules", Type:=8)
Merci de votre aide
PAT0051- Masquer le texte des messages précédents -
-Si l'opérateur clique sur Annuler, il y a erreur (Err): -Si l'opérateur saisit bien une plage, il n'y a pas erreur (Err=0)
On Error Resume Next Set AdrCel = Application.InputBox("Sélectionnez une cellule", Type:=8) If Err = 0 Then x = AdrCel.Offset(0, 5) MsgBox x Else MsgBox "annulé" End If
JB
On 13 mar, 12:41, "Tatanka" wrote:
Salut JB,
Pourrais-tu éclairer ma faible lanterne ? On Error Resume Next permet de passer à l'instruction suivante s'il y a une erreur. C'est bien ça ? Et Err = 0, ça sert à quoi au juste ?
Serge
"JB" a écrit dans le message de news:
Bonjour,
On Error Resume Next Set AdrCel = Application.InputBox("Sélectionnez une cellule", Type:=8) If Err = 0 Then x = AdrCel.Offset(0, 5) MsgBox x End If
JB
On 12 mar, 22:49, PAT0051 wrote:
Bonjour à tous,
Ce que je cherche à faire par exemple, c'est, si je sélectionne la cellule A10 par la commande InputBox, récupérer ou copier la valeur F10.
Pour sélectionner la cellule, j'utilise la macro suivante : Dim Plage As Range Set Plage = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
Merci de votre aide PAT0051- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Misange
Merci à Misange et JB. Là j'Err un peu moins ;-) tant que c'est pas sous un toit de neige, tu peux errer :-)
-- Misange migrateuse XlWiki : Participez à un travail collaboratif sur excel ! http://xlwiki.free.fr/wiki http://www.excelabo.net
Merci à Misange et JB.
Là j'Err un peu moins ;-)
tant que c'est pas sous un toit de neige, tu peux errer :-)
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Je ne prends pas de chance, je reste debout sous les cadres de porte en attendant la fonte du caca blanc ;-)
Serge
"Misange" a écrit dans le message de news: %
Merci à Misange et JB. Là j'Err un peu moins ;-) tant que c'est pas sous un toit de neige, tu peux errer :-)
-- Misange migrateuse XlWiki : Participez à un travail collaboratif sur excel ! http://xlwiki.free.fr/wiki http://www.excelabo.net
PAT0051
On 13 mar, 16:15, "Tatanka" wrote:
Je ne prends pas de chance, je reste debout sous les cadres de porte en attendant la fonte du caca blanc ;-)
Serge
"Misange" a écrit dans le message de news: %23B
Merci à Misange et JB. Là j'Err un peu moins ;-) tant que c'est pas sous un toit de neige, tu peux errer :-)
-- Misange migrateuse XlWiki : Participez à un travail collaboratif sur excel ! http://xlwiki.free.fr/wiki http://www.excelabo.net- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour à tous et merci de vous êtes occupé de mon problème. Ce que je cherche c'est exactement : On Error Resume Next Set AdrCel = Application.InputBox("Sélectionnez une cellule", Type:=8) If Err = 0 Then x = AdrCel.Offset(0, 5) MsgBox x Else MsgBox "annulé" End If Cette macro va me permettre de récupérer les données situées autour d'une valeur choisie.....et de poursuivre mon programme. Encore merci à tous PAT0051
On 13 mar, 16:15, "Tatanka" <garno...@ENLEVER.videotron.ca> wrote:
Je ne prends pas de chance, je reste debout sous les cadres de porte
en attendant la fonte du caca blanc ;-)
Serge
"Misange" <misa...@devinez-ou.net> a écrit dans le message de news: %23B 3cXvRhIHA.5...@TK2MSFTNGP02.phx.gbl...
Merci à Misange et JB.
Là j'Err un peu moins ;-)
tant que c'est pas sous un toit de neige, tu peux errer :-)
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour à tous et merci de vous êtes occupé de mon problème.
Ce que je cherche c'est exactement :
On Error Resume Next
Set AdrCel = Application.InputBox("Sélectionnez une cellule",
Type:=8)
If Err = 0 Then
x = AdrCel.Offset(0, 5)
MsgBox x
Else
MsgBox "annulé"
End If
Cette macro va me permettre de récupérer les données situées autour
d'une valeur choisie.....et de poursuivre mon programme.
Encore merci à tous
PAT0051
Je ne prends pas de chance, je reste debout sous les cadres de porte en attendant la fonte du caca blanc ;-)
Serge
"Misange" a écrit dans le message de news: %23B
Merci à Misange et JB. Là j'Err un peu moins ;-) tant que c'est pas sous un toit de neige, tu peux errer :-)
-- Misange migrateuse XlWiki : Participez à un travail collaboratif sur excel ! http://xlwiki.free.fr/wiki http://www.excelabo.net- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour à tous et merci de vous êtes occupé de mon problème. Ce que je cherche c'est exactement : On Error Resume Next Set AdrCel = Application.InputBox("Sélectionnez une cellule", Type:=8) If Err = 0 Then x = AdrCel.Offset(0, 5) MsgBox x Else MsgBox "annulé" End If Cette macro va me permettre de récupérer les données situées autour d'une valeur choisie.....et de poursuivre mon programme. Encore merci à tous PAT0051
