Office 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
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonjour ABDELHAK,

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

A+
 

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
 

Fichiers joints

ABDELHAK

XLDnaute Occasionnel
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas