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

ABDELHAK · 8 Novembre 2019

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

job75 · 8 Novembre 2019

Bonjour ABDELHAK,

A priori il suffit d'utiliser la commande Remplacer (touches Ctrl+H) sur la colonne B.

A+

job75 · 8 Novembre 2019

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

ABDELHAK · 8 Novembre 2019

Bonjour job75
J'ai essayé la macro que vous m'avez envoyée et elle fonctionne très bien avec le résultat que
j'attendais.
Je vous remercie infiniment pour votre aide.
A +
ABDELHAK

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

ABDELHAK

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

ABDELHAK

XLDnaute Occasionnel

Discussions similaires