Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…