Vba comparaison entre cellules vides et cellules pleines

[Kouik Kouik jr]

Bonsoir tout le monde,


Pourriez vous m'aider ?

je n'arrive pas a écrire mon code de façon a ce qu'il arrive a comparer des cellules de la colonne x qui sont remplies avec des cellules de la colonne y vide

J'ai juste pour l'instant dans mon code ci dessous réussi a colorier en rouge les cellules qui sont différentes dans la colonne y

Je continue a chercher...

merci d'avance pour toute aide 🙂




I = 1
While I < Fin


Dim celluletrouvee1 As Range
Dim colfinale1 As Integer


Sheets("HSBC").Select
Set celluletrouvee1 = Range("A1:O1").Find("final", LookAt:=xlPart)
colfinale1 = celluletrouvee1.Column



If Worksheets("HSBC").Cells(I, celluletrouvee1.Column).Value <> Worksheets("HSBC").Range("Q" & I).Value Then
Worksheets("HSBC").Activate
Worksheets("HSBC").Cells(I, celluletrouvee1.Column).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255

End With

End If
I = I + 1

Wend

 

[kjin]

Re : Vba comparaison entre cellules vides et cellules pleines

Bonsoir,
Ca ne se bouscule pas et c'est bien compréhensible !
Ta question dit tout et son contraire
La macro n'a ni début ni fin...débrouillez vous avec ça !
En outre ton code mis entre balises (click sur # dans le menu) serait un plus
Avec ce qu'on et surtout ce qu'on a pas

Sub JeNeSaisPas()
Dim CelluleTrouvee1 As Range
Dim ColFinale1 As Integer
I = 1 'pas sûr que la boucle doive démarrer à la ligne 1 ???  !

With Worksheets("HSBC")
'Fin = ???

Set CelluleTrouvee1 = .Range("A1:O1").Find("final", LookAt:=xlPart)
ColFinale1 = CelluleTrouvee1.Column

    While I < Fin
        If Not IsEmpty(.Cells(I, ColFinale1)) And IsEmpty(.Range("Q" & I)) Then .Cells(I, ColFinale1).Interior.Color = 255
        I = I + 1
    
    Wend
End With

End Sub

A+
kjin

 

[ledzepfred]

Re : Vba comparaison entre cellules vides et cellules pleines

bonsoir kouik kouik,

un petit fichier exemple et des explications plus complètes sur ce que tu souhaites réaliser seraient les bienvenus pour t'aider.
Ci-dessous une petite correction de ton code

For i = 1 To Fin 'attention la variable fin n'est pas définie
Dim celluletrouvee1 As Range
Dim colfinale1 As Integer

With Sheets("HSBC")
    Set celluletrouvee1 = .Range("A1:O1").Find("final", LookAt:=xlPart)
    colfinale1 = celluletrouvee1.Column
    
    If .Cells(i, colfinale1).Value <> .Cells(i, 17).Value Then
        With .Cells(i, colfinale1).Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 255
        End With
    End If
End With
Next

J'ai éliminé les select qui sur un fichier lourd risque de ralentir l'execution du code
Attention tout de même, la variable Fin n'est pas définie

Edit bonsoir Kjin

A+

 

[Kouik Kouik jr]

Re : Vba comparaison entre cellules vides et cellules pleines

Vous êtes trop fort....................

Merci mille fois ça marche !!!!!

Je savais que je pouvais compter sur vous (même en expliquant mal mon problème je le reconnais)

Bonne soirée

🙂

 

[ledzepfred]

Re : Vba comparaison entre cellules vides et cellules pleines

RE...

Pas sur d'avoir complètement répondu à ta question mais bon si tu es content comme cela, moi aussi

A+