Erreur d'exécution 13 incompatibilité de type
barale61
Messages postés
1214
Date d'inscription
Statut
Membre
Dernière intervention
-
barale61 Messages postés 1214 Date d'inscription Statut Membre Dernière intervention -
barale61 Messages postés 1214 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.
A voir également:
- Erreur d'exécution 13 incompatibilité de type
- Fifa 13 - Télécharger - Jeux vidéo
- Erreur 3005 france tv - Forum TV & Vidéo
- Test redmi note 13 5g - Accueil - Téléphones
- Iptv erreur de lecture - Forum TV & Vidéo
- Type de ram - Guide
2 réponses
Bonjour,
essaies
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
