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.