Erreur d'exécution 13 incompatibilité de type

Fermé
barale61 Messages postés 1211 Date d'inscription jeudi 13 septembre 2012 Statut Membre Dernière intervention 4 février 2025 - 4 mars 2014 à 23:13
barale61 Messages postés 1211 Date d'inscription jeudi 13 septembre 2012 Statut Membre Dernière intervention 4 février 2025 - 5 mars 2014 à 17:04
Bonjour,

j'ai fais pour me lancer la procédure suivante:


Sub miseEnForme()
'le type 8 correspond aux références de cellules
Set monchamp = Application.InputBox(prompt:="Choisissez une plage de cellules", Type:=8)
For Each i In monchamp
'met en majuscule la plage sélectionnée
i.Value = UCase(i.Value)
Next
End Sub

mais si je clique sur "Annuler" j'obtiens l'erreur sur cette ligne:


Set monchamp = Application.InputBox(prompt:="Choisissez une plage de cellules", Type:=8)

et comme erreur : erreur d'exécution 13 incompatibilité de type.

Merci de votre aide.

2 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 312
5 mars 2014 à 10:33
Bonjour,
essaies
Option Explicit
'---------
Sub miseEnForme()
Dim Monchamp As Range, Cellule As Range
'le type 8 correspond aux références de cellules
On Error GoTo fin
Set Monchamp = Application.InputBox(prompt:="Choisissez une plage de cellules", Type:=8)
For Each Cellule In Monchamp
'met en majuscule la plage sélectionnée
Cellule.Value = UCase(Cellule.Value)
Next
fin:
End Sub

0
barale61 Messages postés 1211 Date d'inscription jeudi 13 septembre 2012 Statut Membre Dernière intervention 4 février 2025 110
5 mars 2014 à 17:04
Merci de ta réponse mais cela fait pareil y compris avec resume next.
0