Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité
de type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité
de type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité
de type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Rebonjour Brunos
Ma proposition si elle résoud ta difficulté ne permet pas de fonctionner
pour une saisie normale
Mille excuses
Essaies plutôt :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
J'espère que la !!!!!Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité
de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Rebonjour Brunos
Ma proposition si elle résoud ta difficulté ne permet pas de fonctionner
pour une saisie normale
Mille excuses
Essaies plutôt :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
J'espère que la !!!!!
Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité
de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Rebonjour Brunos
Ma proposition si elle résoud ta difficulté ne permet pas de fonctionner
pour une saisie normale
Mille excuses
Essaies plutôt :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
J'espère que la !!!!!Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité
de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Merci de vous décarcasser.
Papou : merci pour ton exemple de gestion de l'erreur, mais j'aurais voulu
éviter d'en arriver là.
FFO : On Error Resume Next marche parceque la suite du traitement s'appuie
sur monchamp qui est vide, mais si je rajoute autre chose à la suite, ça
s'exécute. Exemple :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
MsgBox "test"
"test" s'affiche quand on clique sur Annuler.
Il doit bien y avoir une solution !?
Brunos
"FFO" a écrit dans le message de news:Rebonjour Brunos
Ma proposition si elle résoud ta difficulté ne permet pas de fonctio nner
pour une saisie normale
Mille excuses
Essaies plutôt :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
J'espère que la !!!!!Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plag e de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur cliq ue sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un cham p",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilit é
de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci de vous décarcasser.
Papou : merci pour ton exemple de gestion de l'erreur, mais j'aurais voulu
éviter d'en arriver là.
FFO : On Error Resume Next marche parceque la suite du traitement s'appuie
sur monchamp qui est vide, mais si je rajoute autre chose à la suite, ça
s'exécute. Exemple :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
MsgBox "test"
"test" s'affiche quand on clique sur Annuler.
Il doit bien y avoir une solution !?
Brunos
"FFO" <F...@discussions.microsoft.com> a écrit dans le message de news:
67ED8391-794C-4FA5-8AD3-99064F64E...@microsoft.com...
Rebonjour Brunos
Ma proposition si elle résoud ta difficulté ne permet pas de fonctio nner
pour une saisie normale
Mille excuses
Essaies plutôt :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
J'espère que la !!!!!
Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plag e de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur cliq ue sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un cham p",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilit é
de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci de vous décarcasser.
Papou : merci pour ton exemple de gestion de l'erreur, mais j'aurais voulu
éviter d'en arriver là.
FFO : On Error Resume Next marche parceque la suite du traitement s'appuie
sur monchamp qui est vide, mais si je rajoute autre chose à la suite, ça
s'exécute. Exemple :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
MsgBox "test"
"test" s'affiche quand on clique sur Annuler.
Il doit bien y avoir une solution !?
Brunos
"FFO" a écrit dans le message de news:Rebonjour Brunos
Ma proposition si elle résoud ta difficulté ne permet pas de fonctio nner
pour une saisie normale
Mille excuses
Essaies plutôt :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
J'espère que la !!!!!Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plag e de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur cliq ue sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un cham p",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilit é
de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci de vous décarcasser.
Papou : merci pour ton exemple de gestion de l'erreur, mais j'aurais voulu
éviter d'en arriver là.
FFO : On Error Resume Next marche parceque la suite du traitement s'appuie
sur monchamp qui est vide, mais si je rajoute autre chose à la suite, ça
s'exécute. Exemple :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
MsgBox "test"
"test" s'affiche quand on clique sur Annuler.
Il doit bien y avoir une solution !?
Brunos
"FFO" a écrit dans le message de news:Rebonjour Brunos
Ma proposition si elle résoud ta difficulté ne permet pas de fonctionner
pour une saisie normale
Mille excuses
Essaies plutôt :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
J'espère que la !!!!!Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité
de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Merci de vous décarcasser.
Papou : merci pour ton exemple de gestion de l'erreur, mais j'aurais voulu
éviter d'en arriver là.
FFO : On Error Resume Next marche parceque la suite du traitement s'appuie
sur monchamp qui est vide, mais si je rajoute autre chose à la suite, ça
s'exécute. Exemple :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
MsgBox "test"
"test" s'affiche quand on clique sur Annuler.
Il doit bien y avoir une solution !?
Brunos
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
67ED8391-794C-4FA5-8AD3-99064F64E699@microsoft.com...
Rebonjour Brunos
Ma proposition si elle résoud ta difficulté ne permet pas de fonctionner
pour une saisie normale
Mille excuses
Essaies plutôt :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
J'espère que la !!!!!
Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité
de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Merci de vous décarcasser.
Papou : merci pour ton exemple de gestion de l'erreur, mais j'aurais voulu
éviter d'en arriver là.
FFO : On Error Resume Next marche parceque la suite du traitement s'appuie
sur monchamp qui est vide, mais si je rajoute autre chose à la suite, ça
s'exécute. Exemple :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
MsgBox "test"
"test" s'affiche quand on clique sur Annuler.
Il doit bien y avoir une solution !?
Brunos
"FFO" a écrit dans le message de news:Rebonjour Brunos
Ma proposition si elle résoud ta difficulté ne permet pas de fonctionner
pour une saisie normale
Mille excuses
Essaies plutôt :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
J'espère que la !!!!!Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité
de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité
de type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité
de type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité
de type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Merci de vous décarcasser.
Papou : merci pour ton exemple de gestion de l'erreur, mais j'aurais voulu
éviter d'en arriver là.
FFO : On Error Resume Next marche parceque la suite du traitement s'appuie
sur monchamp qui est vide, mais si je rajoute autre chose à la suite, ça
s'exécute. Exemple :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
MsgBox "test"
"test" s'affiche quand on clique sur Annuler.
Il doit bien y avoir une solution !?
Brunos
"FFO" a écrit dans le message de news:Rebonjour Brunos
Ma proposition si elle résoud ta difficulté ne permet pas de fonctionner
pour une saisie normale
Mille excuses
Essaies plutôt :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
J'espère que la !!!!!Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage
de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13
incompatibilité
de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type
est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à
traiter
l'erreur.
Merci de vos éclairages
Brunos- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci de vous décarcasser.
Papou : merci pour ton exemple de gestion de l'erreur, mais j'aurais voulu
éviter d'en arriver là.
FFO : On Error Resume Next marche parceque la suite du traitement s'appuie
sur monchamp qui est vide, mais si je rajoute autre chose à la suite, ça
s'exécute. Exemple :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
MsgBox "test"
"test" s'affiche quand on clique sur Annuler.
Il doit bien y avoir une solution !?
Brunos
"FFO" <F...@discussions.microsoft.com> a écrit dans le message de news:
67ED8391-794C-4FA5-8AD3-99064F64E...@microsoft.com...
Rebonjour Brunos
Ma proposition si elle résoud ta difficulté ne permet pas de fonctionner
pour une saisie normale
Mille excuses
Essaies plutôt :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
J'espère que la !!!!!
Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage
de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13
incompatibilité
de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type
est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à
traiter
l'erreur.
Merci de vos éclairages
Brunos- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci de vous décarcasser.
Papou : merci pour ton exemple de gestion de l'erreur, mais j'aurais voulu
éviter d'en arriver là.
FFO : On Error Resume Next marche parceque la suite du traitement s'appuie
sur monchamp qui est vide, mais si je rajoute autre chose à la suite, ça
s'exécute. Exemple :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
MsgBox "test"
"test" s'affiche quand on clique sur Annuler.
Il doit bien y avoir une solution !?
Brunos
"FFO" a écrit dans le message de news:Rebonjour Brunos
Ma proposition si elle résoud ta difficulté ne permet pas de fonctionner
pour une saisie normale
Mille excuses
Essaies plutôt :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
J'espère que la !!!!!Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage
de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13
incompatibilité
de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type
est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à
traiter
l'erreur.
Merci de vos éclairages
Brunos- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Rebonjour Bruno
Tu pourrais essayer avec ce code :
Saisie = InputBox("Saisissez un champ", "Champ")
If Saisie <> "" Then
For Each i In Range(Saisie)
i.Value = UCase(i.Value)
Next i
End If
Celà marche avec une saisie correct d'un champ ou si l'on ne saisie rien
ainsi qu'avec l'annulation
Par contre si la saisie n'est pas complète le code bug
A toi d'en tirer parti
Dis moi !!!!Merci de vous décarcasser.
Papou : merci pour ton exemple de gestion de l'erreur, mais j'aurais
voulu
éviter d'en arriver là.
FFO : On Error Resume Next marche parceque la suite du traitement
s'appuie
sur monchamp qui est vide, mais si je rajoute autre chose à la suite, ça
s'exécute. Exemple :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
MsgBox "test"
"test" s'affiche quand on clique sur Annuler.
Il doit bien y avoir une solution !?
Brunos
"FFO" a écrit dans le message de news:Rebonjour Brunos
Ma proposition si elle résoud ta difficulté ne permet pas de
fonctionner
pour une saisie normale
Mille excuses
Essaies plutôt :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
J'espère que la !!!!!Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage
de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique
sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13
incompatibilité
de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type
est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à
traiter
l'erreur.
Merci de vos éclairages
Brunos
Rebonjour Bruno
Tu pourrais essayer avec ce code :
Saisie = InputBox("Saisissez un champ", "Champ")
If Saisie <> "" Then
For Each i In Range(Saisie)
i.Value = UCase(i.Value)
Next i
End If
Celà marche avec une saisie correct d'un champ ou si l'on ne saisie rien
ainsi qu'avec l'annulation
Par contre si la saisie n'est pas complète le code bug
A toi d'en tirer parti
Dis moi !!!!
Merci de vous décarcasser.
Papou : merci pour ton exemple de gestion de l'erreur, mais j'aurais
voulu
éviter d'en arriver là.
FFO : On Error Resume Next marche parceque la suite du traitement
s'appuie
sur monchamp qui est vide, mais si je rajoute autre chose à la suite, ça
s'exécute. Exemple :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
MsgBox "test"
"test" s'affiche quand on clique sur Annuler.
Il doit bien y avoir une solution !?
Brunos
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
67ED8391-794C-4FA5-8AD3-99064F64E699@microsoft.com...
Rebonjour Brunos
Ma proposition si elle résoud ta difficulté ne permet pas de
fonctionner
pour une saisie normale
Mille excuses
Essaies plutôt :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
J'espère que la !!!!!
Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage
de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique
sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13
incompatibilité
de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type
est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à
traiter
l'erreur.
Merci de vos éclairages
Brunos
Rebonjour Bruno
Tu pourrais essayer avec ce code :
Saisie = InputBox("Saisissez un champ", "Champ")
If Saisie <> "" Then
For Each i In Range(Saisie)
i.Value = UCase(i.Value)
Next i
End If
Celà marche avec une saisie correct d'un champ ou si l'on ne saisie rien
ainsi qu'avec l'annulation
Par contre si la saisie n'est pas complète le code bug
A toi d'en tirer parti
Dis moi !!!!Merci de vous décarcasser.
Papou : merci pour ton exemple de gestion de l'erreur, mais j'aurais
voulu
éviter d'en arriver là.
FFO : On Error Resume Next marche parceque la suite du traitement
s'appuie
sur monchamp qui est vide, mais si je rajoute autre chose à la suite, ça
s'exécute. Exemple :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
MsgBox "test"
"test" s'affiche quand on clique sur Annuler.
Il doit bien y avoir une solution !?
Brunos
"FFO" a écrit dans le message de news:Rebonjour Brunos
Ma proposition si elle résoud ta difficulté ne permet pas de
fonctionner
pour une saisie normale
Mille excuses
Essaies plutôt :
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
J'espère que la !!!!!Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage
de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique
sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13
incompatibilité
de
type.
C'est logique puisque la valeur renvoyée est False, alors que le type
est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à
traiter
l'erreur.
Merci de vos éclairages
Brunos
Bonjour,
Sub TypeDeSaisie()
Saisie = Application.InputBox(prompt:="Choisissez un champ", Type:=8)
MsgBox TypeName(Saisie)
End Sub
ctac
"Brunos" a écrit dans le message de news:Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité
de type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Bonjour,
Sub TypeDeSaisie()
Saisie = Application.InputBox(prompt:="Choisissez un champ", Type:=8)
MsgBox TypeName(Saisie)
End Sub
ctac
"Brunos" <pasdemail@moi.mezig> a écrit dans le message de news:
uKLZRk4VIHA.1208@TK2MSFTNGP03.phx.gbl...
Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité
de type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos
Bonjour,
Sub TypeDeSaisie()
Saisie = Application.InputBox(prompt:="Choisissez un champ", Type:=8)
MsgBox TypeName(Saisie)
End Sub
ctac
"Brunos" a écrit dans le message de news:Bonjour,
Quand j'utilise la méthode Application.InputBox pour choisir une plage de
cellules, je n'arrive pas à résoudre le cas où l'utilisateur clique sur
annuler.
Un exemple (tiré de
http://boisgontierjacques.free.fr/pages_site/inpubox.htm)
Sub saisie_adresse()
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End Sub
Quand on clique sur le bouton Annuler on a une erreur 13 incompatibilité
de type.
C'est logique puisque la valeur renvoyée est False, alors que le type est
Range.
Connaissez-vous un façon de faire ? Je voudrais éviter d'avoir à traiter
l'erreur.
Merci de vos éclairages
Brunos