VBA Application.caller error 13 run time
Fermé
Kamel
-
Modifié par pijaku le 2/02/2017 à 07:45
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 1 févr. 2017 à 23:20
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 1 févr. 2017 à 23:20
A voir également:
- VBA Application.caller error 13 run time
- Erreur 1004 vba ✓ - Forum VB / VBA
- Vulkan run time ✓ - Forum Logiciels
- Time machine - Guide
- Fan error lenovo ✓ - Forum Refroidissement
- Quick time - Télécharger - Lecture
2 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
31 janv. 2017 à 08:48
31 janv. 2017 à 08:48
Bonjour,
Je n'ai pas cette erreur mais objet requis a celle-ci
Je n'ai pas cette erreur mais objet requis a celle-ci
form.Fill.ForeColor.RGB = RGB(0, 50, 0)
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 762
Modifié par Patrice33740 le 1/02/2017 à 23:21
Modifié par Patrice33740 le 1/02/2017 à 23:21
Bonjour,
1. Ne pas employer de variable nommée avec un mot du langage (For each shape in ...)
2. Tester le type de shape (tous n'ont pas une propriété Fill)
Par exemple
Cordialement
Patrice
1. Ne pas employer de variable nommée avec un mot du langage (For each shape in ...)
2. Tester le type de shape (tous n'ont pas une propriété Fill)
Par exemple
Sub Freeform124_Click()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoFreeform Then
shp.Fill.ForeColor.RGB = RGB(0, 50, 0)
End If
Next shp
End Sub
Cordialement
Patrice