Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

message erreur 13 incompatibilité de type

  • Initiateur de la discussion RICKET
  • Date de début
R

RICKET

Guest
Bonjour Forum,

J'ai renseigné ce code en évenementielle, et le message d'erreur 'incompatibilité de type Erreur 13' m'est retourné,

L'un d'entre vous aurait-il la bonté de regarder d'où peut venir mon problème ?

Merci d'avance

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range
For Each c In Range('A3:B500')
Select Case c.Value
Case Is = ''
c.Interior.ColorIndex = 0
Case Is = 'd'
c.Interior.ColorIndex = 12
c.Font.ColorIndex = 12
Case Is = 'D'
c.Interior.ColorIndex = 12
c.Font.ColorIndex = 12
Case Is = 'f'
c.Interior.ColorIndex = 15
c.Font.ColorIndex = 15
Case Is = 'F'
c.Interior.ColorIndex = 15
c.Font.ColorIndex = 15
Case Is = 'c'
c.Interior.ColorIndex = 36
c.Font.ColorIndex = 36
Case Is = 'C'
c.Interior.ColorIndex = 36
c.Font.ColorIndex = 36
Case Is = 'h'
c.Interior.ColorIndex = 7
c.Font.ColorIndex = 7
Case Is = 'H'
c.Interior.ColorIndex = 7
c.Font.ColorIndex = 7
End Select
Next
End Sub
 
Trier par date Trier par votes

PascalXLD

XLDnaute Barbatruc
Modérateur
Bonjour


J'ai essayé le code et pas de problème

Par contre cela me semble un peu lourd car à chaque changement de ta feuille où que ce soit tu refais toute la mise en couleur de tes cellules (tu perds un temps fou pour rien)

je te propose

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range('A3:B500')) Is Nothing Then
Select Case Target.Value
Case Is = ''
Target.Interior.ColorIndex = 0
Case Is = 'd'
Target.Interior.ColorIndex = 12
Target.Font.ColorIndex = 12
Case Is = 'D'
Target.Interior.ColorIndex = 12
Target.Font.ColorIndex = 12
Case Is = 'f'
Target.Interior.ColorIndex = 15
Target.Font.ColorIndex = 15
Case Is = 'F'
Target.Interior.ColorIndex = 15
Target.Font.ColorIndex = 15
Case Is = 'c'
Target.Interior.ColorIndex = 36
Target.Font.ColorIndex = 36
Case Is = 'C'
Target.Interior.ColorIndex = 36
Target.Font.ColorIndex = 36
Case Is = 'h'
Target.Interior.ColorIndex = 7
Target.Font.ColorIndex = 7
Case Is = 'H'
Target.Interior.ColorIndex = 7
Target.Font.ColorIndex = 7
End Select
End If
End Sub

Bon courage
 
Vote positif 0 Vote négatif
R

RICKET

Guest
Merci Pascal,

Au changement de caractère dans la cellule ça fonctionne, et ça me permet de bien avancer, cependant quand je selectionne dans ma plage au moins deux cellules pour effacer le contenu, le message d'erreur 13 m'est toujours retourné et le débogueur s'arrête sur ' Case Is = '' '

As-tu une autre idée ?

Merci encore

RICKET
 
Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc
Modérateur
Re

en traitant cette erreur

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range

If Not Intersect(Target, Range('A3:B500')) Is Nothing Then
For Each c In Target
Select Case c.Value
Case Is = ''
c.Interior.ColorIndex = 0
Case Is = 'd'
c.Interior.ColorIndex = 12
c.Font.ColorIndex = 12
Case Is = 'D'
c.Interior.ColorIndex = 12
c.Font.ColorIndex = 12
Case Is = 'f'
c.Interior.ColorIndex = 15
c.Font.ColorIndex = 15
Case Is = 'F'
c.Interior.ColorIndex = 15
c.Font.ColorIndex = 15
Case Is = 'c'
c.Interior.ColorIndex = 36
c.Font.ColorIndex = 36
Case Is = 'C'
c.Interior.ColorIndex = 36
c.Font.ColorIndex = 36
Case Is = 'h'
c.Interior.ColorIndex = 7
c.Font.ColorIndex = 7
Case Is = 'H'
c.Interior.ColorIndex = 7
c.Font.ColorIndex = 7
End Select
Next
End If
End Sub

Bon courage
 
Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc
Salut' RICKET et pascal76

je me permet cette intrusion pour poser la question suivante ne peut on pas réduire le code en introduisant un Lcase?
ou UCase
soit
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range

If Not Intersect(Target, Range('A3:B500')) Is Nothing Then
For Each c In Target

Select Case LCase( c.Value)
Case Is = ''
c.Interior.ColorIndex = 0

Case Is = 'd'
c.Interior.ColorIndex = 12
c.Font.ColorIndex = 12

Case Is = 'f'
c.Interior.ColorIndex = 15
c.Font.ColorIndex = 15

Case Is = 'c'
c.Interior.ColorIndex = 36
c.Font.ColorIndex = 36

Case Is = 'h'
c.Interior.ColorIndex = 7
c.Font.ColorIndex = 7

End Select
Next
End If
End Sub
Amicalement
Jean Marie

Message édité par: ChTi160, à: 06/04/2005 21:50
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
Microsoft 365 Incompatibilité de type
Réponses
1
Affichages
229
Dranreb
T
  • Résolu(e)
XL 2019 VBA - Comparaison d'heures
Réponses
9
Affichages
363
ThierryP
T
R
  • Question
Microsoft 365 problème incompatibilité de type 13 sur macro "couper - coller"
Réponses
6
Affichages
273
rh.finances
R
G
  • Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
403
guiyom
G
  • Résolu(e)
XL 2021 Doublons, Colorer partie de ligne en fonction de valeur dans colonne défini
Réponses
2
Affichages
417
Nicolas JACQUIN
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
662
bérylion
B
A
  • Question
XL 2016 Erreur d'exécution 13 Incompatibilité de type
Réponses
14
Affichages
625
Aldonanou
A
E
  • Question
Autres VBA - Erreur d'exécution '13'
Réponses
4
Affichages
370
Elisa47
E
  • Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
837
Nicolas JACQUIN
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
477
Zonmé
Z
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…