Microsoft 365 REMPLACER LES VALEURS D'UNE CELLULE PAR "1"

ABDELHAK

XLDnaute Occasionnel
Bonjour le forum

Je sollicite votre aide pour une nouvelle macro.
J’ai dans le fichier joint en colonne B des cellules vides et des cellules dont la valeur est « 5 » et « 3 ».
J’aimerais que la macro remplace les valeurs « 3 » et « 5 » de la colonne B par « 1 ».
Les valeurs « 3 » et « 5 » de la colonne B peuvent varier.
En espérant d’avoir été clair.
Merci d’avance pour votre aide.
ABDELHAK
 

Pièces jointes

  • P_Q_A.xlsm
    100.2 KB · Affichages: 5

job75

XLDnaute Barbatruc
En VBA voyez le fichier joint et cette macro :
VB:
Sub Remplacer()
Dim i&
With [F2].CurrentRegion
    For i = 2 To .Rows.Count
        Columns(2).Replace .Cells(i, 1), .Cells(i, 2), xlWhole
    Next
End With
End Sub
 

Pièces jointes

  • P_Q_A(1).xlsm
    96.8 KB · Affichages: 5
Haut Bas