bug message Incompatibilité de type

[Pepette]

Bonjour le forum,

Quand je lance ma macro, un message erreur 13 incompatibilité de type m'est retourné. et le débogueur s'arrête sur If cell.Value = '' Then

Sub FondCell()

Dim cell As Range
Dim MaPlage As Range

Set MaPlage = ActiveSheet.Range('A1:A50')
For Each cell In MaPlage
If cell.Value = '' Then
cell.Interior.ColorIndex = 0
ElseIf cell.Value >= 1 And cell.Value < 5 Then
cell.Interior.ColorIndex = 3
ElseIf cell.Value >= 5 And cell.Value < 10 Then
cell.Interior.ColorIndex = 4
End If
Next cell
End Sub

Avez-vous une petite idée pour une Pepette en détresse ?

Merci pour votre aide.

 

[Hervé]

Bonjour

Ben impossible de faire bugger ta macro ???

Je rencontre pas de souci, peut etre que ton problème vient d'une autre macro.

Par contre je peux te proposer une autre synthaxe peut-etre plus 'lisible' :

Public Sub vev()
Dim c As Range

For Each c In Range('A1:A50')
    Select Case c.Value
        Case '': c.Interior.ColorIndex = 0
        Case 1 To 4: c.Interior.ColorIndex = 3
        Case 5 To 9: c.Interior.ColorIndex = 4
    End Select
Next c
End Sub

Salut

 

[21ch181]

Bonjour,

Je ne parviens à reproduire ton erreur sur une nouvelle feuille.

Par contre j'ai déjà été confronté à ce pb dans le passé lorsque les données sur lesquelles je lancais mes macros étaient une exportation depuis un applicatif externe (exemple extraction de datas depuis SAP au format excel) : la seule solution était de 'convertir' les données par une nouvelle colonne (formule = simple) puis mettre au bon format.

Si tu as une feuille avec des données générant le pb je peux y jeter un oeuil.

Cordialement

Alain

 

[Pepette]

Merci Hervé, je vais essayer ça tout de suite.

A bientôt

 

[niki42]

Bonjour

J'ai moi aussi un problème d'incompatibilité type avec une macro ( voir post 'macro qui fonctionne ou pas' un peu plus bas). Ce que je ne comprends pas c'est qu'elle fonctionne sur cetains PC et pas sur d'autres. Chaque PC a la version de Office XP.
Pouvez-vous m'aider svp?

Merci

Niki