Microsoft 365 Remplacement de valeur en comparant les valeurs

[sam01]

Bonjour.

je souhaiterais comparer la valeur de la colonne B de la feuille source par rapport à la valeur de la colonne C de la feuille cible.

Si c'est la même valeur, reporter la valeur de la colonne B de la feuille cible vers la cellule de la colonne C de la feuille source.

merci pour votre aide.

 

[cathodique]

Bonjour,

il faut enregistrer ton fichier en xlsm. copie/colle ce code dans un module standard et tu l’exécutes (F5)

Option Explicit
Sub Comparer_Reporter_BenC()
    Dim wsSource As Worksheet, wsCible As Worksheet
    Dim dlSource As Long, dlCible As Long
    Dim i As Long, j As Long
    
    ' Définir les feuilles source et cible
    Set wsSource = ThisWorkbook.Sheets("source")
    Set wsCible = ThisWorkbook.Sheets("cible")
    
    ' Trouver la dernière ligne de chaque feuille
    dlSource = wsSource.Cells(wsSource.Rows.Count, "B").End(xlUp).Row
    dlCible = wsCible.Cells(wsCible.Rows.Count, "C").End(xlUp).Row
    
    ' Boucle à travers chaque ligne de la feuille source
    For i = 1 To dlSource
        ' Boucle à travers chaque ligne de la feuille cible
        For j = 2 To dlCible ' Commencer à 2 pour ignorer la ligne des titres
            ' Comparer les valeurs
            If wsSource.Cells(i, "B").Value = wsCible.Cells(j, "C").Value Then
                ' Si égal, reporter la valeur de la colonne B de la feuille cible dans la colonne C de la feuille source
                wsSource.Cells(i, "C").Value = wsCible.Cells(j, "B").Value
                Exit For ' Sortir de la boucle si une correspondance est trouvée
            End If
        Next j
    Next i
    
    MsgBox "Mise à jour terminée dans la colonne C!"
End Sub

 

[gosselien]

Bonjour,

avec index/equiv et zones nommées 🙂)

P.

 

[fanfan38]

Bonjour
Tu vas poser ta question sur combien de site...
Relire la chartre
Profite en pour te relire (si identique copier la valeur de b sur c....)

A+ François

 

[sam01]

Bonjour,

il faut enregistrer ton fichier en xlsm. copie/colle ce code dans un module standard et tu l’exécutes (F5)

Option Explicit
Sub Comparer_Reporter_BenC()
    Dim wsSource As Worksheet, wsCible As Worksheet
    Dim dlSource As Long, dlCible As Long
    Dim i As Long, j As Long
    
    ' Définir les feuilles source et cible
    Set wsSource = ThisWorkbook.Sheets("source")
    Set wsCible = ThisWorkbook.Sheets("cible")
    
    ' Trouver la dernière ligne de chaque feuille
    dlSource = wsSource.Cells(wsSource.Rows.Count, "B").End(xlUp).Row
    dlCible = wsCible.Cells(wsCible.Rows.Count, "C").End(xlUp).Row
    
    ' Boucle à travers chaque ligne de la feuille source
    For i = 1 To dlSource
        ' Boucle à travers chaque ligne de la feuille cible
        For j = 2 To dlCible ' Commencer à 2 pour ignorer la ligne des titres
            ' Comparer les valeurs
            If wsSource.Cells(i, "B").Value = wsCible.Cells(j, "C").Value Then
                ' Si égal, reporter la valeur de la colonne B de la feuille cible dans la colonne C de la feuille source
                wsSource.Cells(i, "C").Value = wsCible.Cells(j, "B").Value
                Exit For ' Sortir de la boucle si une correspondance est trouvée
            End If
        Next j
    Next i
    
    MsgBox "Mise à jour terminée dans la colonne C!"
End Sub

Salut cathodique.
Merci à toi. Je vais tester ça.

 

[sam01]

Bonjour,

avec index/equiv et zones nommées 🙂)

P.

Salut

gosselien.​

Je teste ça. Merci à toi.

 

[sam01]

Bonjour
Tu vas poser ta question sur combien de site...
Relire la chartre
Profite en pour te relire (si identique copier la valeur de b sur c....)

A+ François

Salut fanfan.
Il me semble que je me suis corrigé sur un autre site. Je m'étais effectivement emmêlé les pinceaux dans mes explications.

 

[sam01]

Bonjour,

il faut enregistrer ton fichier en xlsm. copie/colle ce code dans un module standard et tu l’exécutes (F5)

Option Explicit
Sub Comparer_Reporter_BenC()
    Dim wsSource As Worksheet, wsCible As Worksheet
    Dim dlSource As Long, dlCible As Long
    Dim i As Long, j As Long
   
    ' Définir les feuilles source et cible
    Set wsSource = ThisWorkbook.Sheets("source")
    Set wsCible = ThisWorkbook.Sheets("cible")
   
    ' Trouver la dernière ligne de chaque feuille
    dlSource = wsSource.Cells(wsSource.Rows.Count, "B").End(xlUp).Row
    dlCible = wsCible.Cells(wsCible.Rows.Count, "C").End(xlUp).Row
   
    ' Boucle à travers chaque ligne de la feuille source
    For i = 1 To dlSource
        ' Boucle à travers chaque ligne de la feuille cible
        For j = 2 To dlCible ' Commencer à 2 pour ignorer la ligne des titres
            ' Comparer les valeurs
            If wsSource.Cells(i, "B").Value = wsCible.Cells(j, "C").Value Then
                ' Si égal, reporter la valeur de la colonne B de la feuille cible dans la colonne C de la feuille source
                wsSource.Cells(i, "C").Value = wsCible.Cells(j, "B").Value
                Exit For ' Sortir de la boucle si une correspondance est trouvée
            End If
        Next j
    Next i
   
    MsgBox "Mise à jour terminée dans la colonne C!"
End Sub

Salut. Je te remercie. Je viens de tester ta macro. ça fonctionne nickel. Serait-il possible de mettre en évidence les ligne que l'on ne trouve pas dans la feuille cible. J'ai effectivement besoin de savoir quelles sont ces lignes. >Les surligner en rouge par exemple. Merci encore pourr ton aide.

 

[cathodique]

Salut. Je te remercie. Je viens de tester ta macro. ça fonctionne nickel. Serait-il possible de mettre en évidence les ligne que l'on ne trouve pas dans la feuille cible. J'ai effectivement besoin de savoir quelles sont ces lignes. >Les surligner en rouge par exemple. Merci encore pourr ton aide.

Pas sûr d'avoir bien compris. code à tester

Sub Comparer_Reporter_Reperer()
     Dim wsSource As Worksheet, wsCible As Worksheet
    Dim dlSource As Long, dlCible As Long
    Dim i As Long, j As Long
    Dim Trouver As Boolean

    ' Définir les feuilles source et cible
    Set wsSource = ThisWorkbook.Sheets("source")
    Set wsCible = ThisWorkbook.Sheets("cible")

    ' Trouver la dernière ligne de chaque feuille
    dlSource = wsSource.Cells(wsSource.Rows.Count, "B").End(xlUp).Row
    dlCible = wsCible.Cells(wsCible.Rows.Count, "C").End(xlUp).Row

    ' Réinitialiser la couleur des cellules de A à G
    wsSource.Range("A1:G" & dlSource).Interior.ColorIndex = xlNone

    ' Boucle à travers chaque ligne de la feuille source
    For i = 1 To dlSource
        Trouver = False ' Réinitialiser la variable pour chaque ligne de la source
        
        ' Boucle à travers chaque ligne de la feuille cible
        For j = 2 To dlCible ' Commencer à 2 pour ignorer la ligne des titres
            ' Comparer les valeurs
            If wsSource.Cells(i, "B").Value = wsCible.Cells(j, "C").Value Then
                ' Si égal, reporter la valeur de la colonne B de la feuille cible dans la colonne C de la feuille source
                wsSource.Cells(i, "C").Value = wsCible.Cells(j, "B").Value
                Trouver = True ' Marquer comme trouvé
                Exit For ' Sortir de la boucle si une correspondance est trouvée
            End If
        Next j
        
        ' Si non trouvé, mettre en évidence la plage A:G
        If Not Trouver Then
            wsSource.Range(wsSource.Cells(i, 1), wsSource.Cells(i, 7)).Interior.Color = RGB(255, 255, 0) ' Surligner en jaune
        End If
    Next i

    MsgBox "Mise à jour terminée dans la colonne C!"
End Sub