Cherche code VBA "Remplir cellule à condition..."

[olibelle0101]

Bonsoir,
J'ai mis un tout petit fichier, pour la recherche d'un code (pas de MFC)
Mettre un format donné dans une cellule si même valeur entre ces 2 cellules ...

Merci au forum.

 

[VDAVID]

Re : Cherche code VBA "Remplir cellule à condition..."

Bonsoir olibelle0101,

Un exemple en PJ

Le code est dans le module

Bonne soirée !

 

[olibelle0101]

Re : Cherche code VBA "Remplir cellule à condition..."

Merci c'est vraiment génial..
Bonne soirée

 

[olibelle0101]

Re : Cherche code VBA "Remplir cellule à condition..."

Et pour une deuxième colonne avec une deuxième couleur
C'est possible...

 

[VDAVID]

Re : Cherche code VBA "Remplir cellule à condition..."

Yep !

Comme ceci:

Sub Colorier()

    Dim Ws As Worksheet
    Dim i As Integer
    
    Set Ws = Sheets("Saisie")
    With Ws
        
        .Range("D1:D" & .Range("D65536").End(xlUp).Row).Interior.ColorIndex = xlNone
        For i = 1 To .Range("D65536").End(xlUp).Row
            
            If .Range("D" & i).Value <> "" Then
            
                If .Range("D" & i).Value = .Range("AC" & i).Value Or .Range("D" & i).Value = .Range("AD" & i).Value Then
                
                    .Range("D" & i).Interior.ColorIndex = 6
                
                End If
                
                If .Range("D" & i).Value = .Range("AE" & i).Value Or .Range("D" & i).Value = .Range("AF" & i).Value Then
                    
                    .Range("D" & i).Interior.ColorIndex = 3
                
                End If
                
            End If
            
        Next i
        
    End With
End Sub

Bonne soirée

 

[Pierrot93]

Re : Cherche code VBA "Remplir cellule à condition..."

Bonjour,

voir aussi ici...
https://www.excel-downloads.com/threads/transformer-une-macro-colorier.209146/

toujours préférable de rester sur le même fil de discussion...

bonne journée
@+

 

[VDAVID]

Re : Cherche code VBA "Remplir cellule à condition..."

Bonjour olibelle0101, Pierrot93

Une autre approche pour toutes les colonnes voulues:

Sub colorier2()
    
    Dim Ws As Worksheet
    
    'Feuille dans laquelle on effectue la macro
    Set Ws = Sheets("Saisie")
    Dim maPlage As Range, maPlage2 As Range, Cel As Range, Cel2 As Range
        
        'Plage contenant les cellules à vérifier
        Set maPlage = Ws.Range("D3:AB11")
        'Plage contenant les cellules référentes
        Set maPlage2 = Ws.Range("AC3:AH11")
            
            For Each Cel In maPlage
            
                If Cel.Value <> "" Then
                
                    Cel.Interior.ColorIndex = xlNone
                    For Each Cel2 In maPlage2
                        
               If Cel.Value = Cel2.Value And Cel.Row = Cel2.Row Then Cel.Interior.ColorIndex = Cel.Interior.ColorIndex
                        
                    Next Cel2
                
                End If
            
            Next Cel
        
End Sub

Bonne journée !

Note: Le
If Cel.Value = Cel2.Value And Cel.Row = Cel2.Row Then Cel.Interior.ColorIndex = Cel.Interior.ColorIndex
Doit être sur la même ligne

 

[olibelle0101]

Re : Cherche code VBA "Remplir cellule à condition..."

Bonsoir ,
En rentrant du boulot, j'ai eu la surprise de voir la solution...
C'est exactement ce que je voulais...
Merci beaucoup VDAVID...