Microsoft 365 Remplacement de valeur en comparant les valeurs

cathodique à dit:

Bonjour,

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

VB:

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

Cliquez pour agrandir...

gosselien à dit:

Bonjour,

avec index/equiv et zones nommées 🙂)

P.

Cliquez pour agrandir...

gosselien.​

fanfan38 à dit:

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

Cliquez pour agrandir...