Erreur 13 VBA, encore elle !
Résolu
PseudoVBA
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
PseudoVBA Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
PseudoVBA Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
Bonjour tout le monde.
Je travaille actuellement sur Excel 2003.
Dans le but d'automatiser un maximum mes procédures, je tente d'apprendre un peu de VBA par moi-même, en bossant des tutos trouvés sur le net.
L'un des exercices est d'entrer une valeur négative n'importe où sur une feuille Excel, et d'exécuter la macro suivante, dans le but de colorer en rouge la cellule avec la valeur négative en question.
La macro utilisée pour cela est celle-ci :
Sub nombreNegatif()
If (Selection.Value <0 ) Then
Selection.Font.Color = -16776961
End If
End Sub
Je tape donc une valeur négatif n'importe ou dans la page, j'exécute la macro, et une erreur 13 apparait.
Et je ne parviens pas du tout à comprendre pourquoi...
Je vous remercie de votre lecture et vous souhaite une bonne journée à tous.
Je travaille actuellement sur Excel 2003.
Dans le but d'automatiser un maximum mes procédures, je tente d'apprendre un peu de VBA par moi-même, en bossant des tutos trouvés sur le net.
L'un des exercices est d'entrer une valeur négative n'importe où sur une feuille Excel, et d'exécuter la macro suivante, dans le but de colorer en rouge la cellule avec la valeur négative en question.
La macro utilisée pour cela est celle-ci :
Sub nombreNegatif()
If (Selection.Value <0 ) Then
Selection.Font.Color = -16776961
End If
End Sub
Je tape donc une valeur négatif n'importe ou dans la page, j'exécute la macro, et une erreur 13 apparait.
Et je ne parviens pas du tout à comprendre pourquoi...
Je vous remercie de votre lecture et vous souhaite une bonne journée à tous.
A voir également:
- Erreur 13 VBA, encore elle !
- Fifa 13 - Télécharger - Jeux vidéo
- Test redmi note 13 5g - Accueil - Téléphones
- Erreur 0x80070643 - Accueil - Windows
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
4 réponses
Ta macro fonctionne lorsque la sélection contient une seule cellule
Si tu veux exécuter la macro sur une plage il faut s'y prendre autrement
https://www.cjoint.com/?3DipVLxrMMM
bonne suite
Si tu veux exécuter la macro sur une plage il faut s'y prendre autrement
https://www.cjoint.com/?3DipVLxrMMM
bonne suite
Bonjour,
Chez moi ça fonctionne bien
Essaies quand même avec
Selection.Font.ColorIndex = 3
ou
Selection.Font.Color = RGB(255, 0, 0)
Mais l'erreur vient certainement d'ailleurs
Peux tu envoyer la partie concernée de ton fichier sur cjoint.com et joindre le lien obtenu à ton prochain message
Bonne suite
Chez moi ça fonctionne bien
Essaies quand même avec
Selection.Font.ColorIndex = 3
ou
Selection.Font.Color = RGB(255, 0, 0)
Mais l'erreur vient certainement d'ailleurs
Peux tu envoyer la partie concernée de ton fichier sur cjoint.com et joindre le lien obtenu à ton prochain message
Bonne suite
Bonjour,
Merci de ta réponse, j'ai testé tes solutions, cela ne fonctionne pas.
Je sais pas si ça peut aider, mais si je me trompe et que la macro est exécutée sur un ensemble de cellules vides, je n'ai pas de messages d'erreur.
Cela viendrait donc d'une compatibilité format de donnée vs programme ?
le document est joint là : https://www.cjoint.com/?CDioQdq3Q6Q
Merci de ta réponse, j'ai testé tes solutions, cela ne fonctionne pas.
Je sais pas si ça peut aider, mais si je me trompe et que la macro est exécutée sur un ensemble de cellules vides, je n'ai pas de messages d'erreur.
Cela viendrait donc d'une compatibilité format de donnée vs programme ?
le document est joint là : https://www.cjoint.com/?CDioQdq3Q6Q
