Erreur d'exécution 13 incompatibilité de type
barale61
Messages postés
1126
Date d'inscription
Statut
Membre
Dernière intervention
-
barale61 Messages postés 1126 Date d'inscription Statut Membre Dernière intervention -
barale61 Messages postés 1126 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai fais pour me lancer la procédure suivante:
mais si je clique sur "Annuler" j'obtiens l'erreur sur cette ligne:
et comme erreur : erreur d'exécution 13 incompatibilité de type.
Merci de votre aide.
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
-
Bonjour,
essaiesOption 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
-
Merci de ta réponse mais cela fait pareil y compris avec resume next.
