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
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
A voir également:
- Erreur d'exécution 13 incompatibilité de type
- Erreur 0x80070643 - Accueil - Windows
- Redmi note 13 5g test - Accueil - Téléphones
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 3005 france tv - Forum TV & Vidéo
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
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
5 mars 2014 à 10:33
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
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
5 mars 2014 à 17:04
Merci de ta réponse mais cela fait pareil y compris avec resume next.