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 ?
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' :
Code:
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
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.
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?