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

Incompatibilité de type en VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Yldie
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Y

Yldie

Guest
Bonsoir à tous,

J'ai un petit problème avec mon code de mise en forme conditionnelle et je me demande si cela vient du nombre de lignes de ce tableau et/ou colonnes ???
Je vous serais reconnaissant de bien vouloir m'aider....encore merci


Sub contionnel()
ActiveSheet.Unprotect ("password")
Application.ScreenUpdating = False
For Each cellule In [B5:BN204]
cellule.Select
ActiveCell.Interior.ColorIndex = xlNone
With cellule
Select Case .Value
Case Is = ""
ActiveCell.Interior.ColorIndex = 0
Case Is = "P"
ActiveCell.Interior.ColorIndex = 27
Case Is = "R"
ActiveCell.Interior.ColorIndex = 4
Case Is = "E"
ActiveCell.Interior.ColorIndex = 3
End Select
End With
Next cellule
Application.ScreenUpdating = True
Range("a1").Select
ActiveSheet.Protect ("password")
End Sub
 
Trier par date Trier par votes
Re : Incompatibilité de type en VBA

RE-,

Effectivement, Marcel, l'erreur dans le code se situe dans cette cellule...


Pour Lydie (ou Yldie), essaie ceci :

Code: 
Sub contionnel()
Dim Cellule As Range
ActiveSheet.Unprotect ("maverick")
Application.ScreenUpdating = False
For Each Cellule In [B5:BN204]
If IsError(Cellule.Value) Then Cellule.Interior.ColorIndex = xlNone: GoTo suite
Select Case Cellule.Value
Case Is = "P"
Cellule.Interior.ColorIndex = 27
Case Is = Numeric
Cellule.Interior.ColorIndex = xlNone
Case Is = "R"
Cellule.Interior.ColorIndex = 4
Case Is = "E"
Cellule.Interior.ColorIndex = 3
Case Else
Cellule.Interior.ColorIndex = 19
End Select
suite:
Next Cellule
Application.ScreenUpdating = True
Range("a1").Select
ActiveSheet.Protect ("maverick")
End Sub
 
Vote positif 0 Vote négatif
Re : Incompatibilité de type en VBA

Oups, Very Sorry.......vous Avez Vu Juste, Je Me Suis Plante En Comptant, Colonne De Fin, Bien Bm Et Non Bn, Donc Votre Macro No Problem Encore Mille Excuses Et Merci
 
Vote positif 0 Vote négatif
Re : Incompatibilité de type en VBA

bonjour Yldie,Bhbh,Marcel
pour ta doc puisque problème résolu j'ai essayé comme suit et ok
Sub contionnel()
Dim Cellule As Range

Worksheets("bilan navette").Activate

ActiveSheet.Unprotect ("maverick")
Application.ScreenUpdating = False
For Each Cellule In [B5:BN204]
If Not IsError(Cellule.Value) Then
Select Case Cellule.Value
Case Is = "P"
Cellule.Interior.ColorIndex = 27
Case Is = Numeric
Cellule.Interior.ColorIndex = xlNone
Case Is = "R"
Cellule.Interior.ColorIndex = 4
Case Is = "E"
Cellule.Interior.ColorIndex = 3
Case Else
Cellule.Interior.ColorIndex = 19
End Select
End If
Next Cellule
Application.ScreenUpdating = True
Range("a1").Select
ActiveSheet.Protect ("maverick")
End Sub

à bientôt
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
367
CortoXls
C
C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
304
sylvanu
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
875
piga25
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
535
NONO14
N
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
681
Lu76Fer
R
  • Question Question
Microsoft 365 problème incompatibilité de type 13 sur macro "couper - coller"
Réponses
6
Affichages
559
rh.finances
R
M
  • Question Question
XL 2016 Impression d'un rapport PDF depuis une URL avec VBA
Réponses
3
Affichages
1 K
mrcooll
M
D
  • Question Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
870
dadu35
D
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
797
Phil69970
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
835
guiyom
G
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
650
JJ69
J
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
D
  • Question Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
1 K
crocrocro
C
L
  • Question Question
XL 2021 Comment utiliser la colonne d'une adresse en Private Sub - svp ?
Réponses
3
Affichages
590
vgendron
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
948
marie3107
M
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
791
Usine à gaz
J
  • Question Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
797
Julien_B
J
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…