VBA comparaison de cellules si alors couleur Résolu/Fermé

Question

Bonjour, Quelqu'un pourrait me dire pourquoi ce code VBA ne fonctionne pas. Il a pour but de comparer des cellules. Quand une cellule n'est pas égale à une autre cellule alors la cellule est colorée en vert. Lorsque je lance la macro, toutes les cellules ne sont pas colorées alors que certaines sont différentes. Quelle est l'erreur dans mon code? Merci par avance

Sub ComparaisonNewOld()

'lpremiereligne = 4-1
'ccolonnenew = 10-1
'ccolonneold = 51-1


For j = 1 To 5
  For i = 1 To 3
          If ActiveSheet.Cells(3 + j, 10 + i).Select <> ActiveSheet.Cells(3 + j, 50 + i).Select Then
             ActiveSheet.Cells(3 + j, 10 + i).Select
                With Selection.Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .Color = 5287936
                    .TintAndShade = 0
                    .PatternTintAndShade = 0
                End With
     ' Else
         ' ActiveSheet.Cells(3 + j, 10 + i).Select
        '  With Selection.Interior
         '     .Pattern = xlNone
         '     .TintAndShade = 0
         '     .PatternTintAndShade = 0
        '  End With
      End If
  Next i
Next j
End Sub

michel_m · Answer

Bonjour
essaies
Option Explicit'--------------------------------Sub ccm()Dim Lig As Byte, Col As ByteApplication.ScreenUpdating = FalseFor Lig = 4 To 8    For Col = 11 To 13        With ActiveSheet.Cells(Lig, Col)            If .Value <> .Offset(0, 50) Then                .Interior.Color = 5287936            Else                .Interior.Pattern = xlNone            End If        End With    Next ColNext LigEnd Sub

NateBarca · Answer

Parfait,

Le décalage dans ce cas est de 40 et non 50, c'est du détail.

Merci beaucoup

NateBarca · Answer

Bonjour, 


Je note par contre que pour mes 3000 lignes sur 50 colonnes, le message d'erreur suivant apparaît : 


"dépassement de capacité" 

comment faire ?

michel_m · Answer

¨pour mémoire:

VBA comparaison de cellules si <> alors couleur

4 réponses

Discussions similaires