Incompatibilité de type en VBA

Cousinhub

XLDnaute Barbatruc

• 31 Mai 2008

• #2

Re : Incompatibilité de type en VBA

Bonsoir,
comme tu veux développer ta mise en forme conditionnelle toi-même, et ce n'est pas un reproche, bien au contraire, tu peux essayer comme ceci :

Code:

Sub contionnel()
ActiveSheet.Unprotect ("password")
Application.ScreenUpdating = False
For Each cellule In [B5:BN204]
With cellule
    .Interior.ColorIndex = xlNone
    Select Case .Value
        Case Is = "P"
            .Interior.ColorIndex = 27
        Case Is = "R"
            .Interior.ColorIndex = 4
        Case Is = "E"
            .Interior.ColorIndex = 3
    End Select
End With
Next cellule
Application.ScreenUpdating = True
Range("a1").Select
ActiveSheet.Protect ("password")
End Sub

 

Vote positif 0 Vote négatif

Y

Yldie

Guest

• 31 Mai 2008

• #3

Re : Incompatibilité de type en VBA

Merci BhBh mais malheureusement ça ne marche pas, précision: les cellules que je tente de colorier contiennent pour 50% des formules (incidence ???).
Pourrais tu s'il te plaît me dire comment on remplace un nombre ou un chiffre par un format du type ### ou autre (j'aimerais que ma mise en forme prenne en compte n'importe quel nombre...)
Merci d'avance et bonne soirée

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 31 Mai 2008

• #4

Re : Incompatibilité de type en VBA

salut Yldie,Bhbh

un peu différent
Option Compare Text

Sub contionnel()
Dim Cellule As Range
Worksheets("Feuil1").Activate
ActiveSheet.Unprotect ("password")
Application.ScreenUpdating = False
For Each Cellule In [B5:BN204]
Select Case Cellule.Value
Case Is = "P"
Cellule.Interior.ColorIndex = 27
Case Is = "R"
Cellule.Interior.ColorIndex = 4
Case Is = "E"
Cellule.Interior.ColorIndex = 3
Case Else
Cellule.Interior.ColorIndex = xlNone
End Select

Next Cellule
Application.ScreenUpdating = True
Range("a1").Select
ActiveSheet.Protect ("password")
End Sub

à bientôt

 

Vote positif 0 Vote négatif

Y

Yldie

Guest

• 31 Mai 2008

• #5

Re : Incompatibilité de type en VBA

Merci Bebere, BhBh mais rien n'y fait, par contre je suis sûr que vous savez prendre en compte une mise en forme (colorisation) d'une cellule supérieure ou égale à 1, merci de bien vouloir me donner le type de code (num > >= ### que sais-je ????). Merci pour votre aide

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 31 Mai 2008

• #6

Re : Incompatibilité de type en VBA

Re-,
salut, Bebere

J'ai essayé mon code, et à priori, il fonctionne....

Cependant, tu pourrais faire bien plus simple, via la macro complémentaire de MDF, dit MyDearFriend, sur son site :

Site

Cela t'évitera bien des "prises de têtes" inutiles...

 

Vote positif 0 Vote négatif

Y

Yldie

Guest

• 31 Mai 2008

• #7

Re : Incompatibilité de type en VBA

En fait, ma macro commence à merder à partir de la ligne 31. Y a-t-il une limite au nombre de lignes et/ou colonnes pour un tableau, bref c'est satisfaisant à moitié.....merci quand même

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 31 Mai 2008

• #8

Re : Incompatibilité de type en VBA

bhbh à dit:

J'ai essayé mon code, et à priori, il fonctionne...

Cliquez pour agrandir...

Tout à fait, chez oim aussi ça marche. 🙂

Peut-être devrais-tu nous poster ton fichier s'il ne comporte pas de données confidentielles.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 31 Mai 2008

• #9

Re : Incompatibilité de type en VBA

Re-,

Merci, Marcel, 🙂

Et Bonne soirée

 

Vote positif 0 Vote négatif

Y

Yldie

Guest

• 31 Mai 2008

• #10

Re : Incompatibilité de type en VBA

Je vous joins ma feuille excel, certes un peu épuré mais vous comprendrez sans doute le principe de ma macro,
Merci BhBh, Bebere et Marcel
Je répète ça ne marche plus au-delà de la ligne 31
Bonne soirée

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 31 Mai 2008

• #11

Re : Incompatibilité de type en VBA

Alors, il est où ce fichier ? 😉

 

Vote positif 0 Vote négatif

Y

Yldie

Guest

• 31 Mai 2008

• #12

Re : Incompatibilité de type en VBA

Excusez j'ai dû le zipper et du coup il reste presque rien du tableau original (B5:BN204 >> assez volumineux....), j'espère que vous pigerez, merci

 

Dernière modification par un modérateur: 6 Juin 2008

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 31 Mai 2008

• #13

Re : Incompatibilité de type en VBA

Pour savoir où se situait le problème, j'ai ajouté une ligne dans le code.
Juste après la ligne "For each..." j'ai ajouté Range("A1") = Cellule.Address qui permet d'afficher dans la cellule A1 l'adresse de la cellule en cours de traitement. 😉


Avec ce fichier ça s'arrête sur la cellule M16 car elle contient un code d'erreur.

Peut-être devrais-tu prévoir dans ton code le cas où tu rencontres une cellule contenant un code d'erreur.

 

Dernière édition: 31 Mai 2008

Vote positif 0 Vote négatif

Y

Yldie

Guest

• 31 Mai 2008

• #14

Re : Incompatibilité de type en VBA

Merci bcp Marcel, en fait, j'y suis parvenu reste tjs le bug à la colonne BN.....BK, BL, BM ça marche mais dès que j'étends la macro jusqu'à BN il me met incompatibilité de type 13 et je sens bien que c'est la largeur du tableau qui le bloque (???).
Vraiment merci pour tout

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 31 Mai 2008

• #15

Re : Incompatibilité de type en VBA

Chez moi aucun problème pour la plage B5:BN204 tu dois avoir un contenu de cellule qui te pose un problème.

As-tu essayé d'ajouter la même ligne que moi dans ton code pour voir à quelle cellule exactement bloque la macro ?

 

Vote positif 0 Vote négatif