Discussion :

[bensof1]

Bonjour;
j'ai un fichier Excel contenant 03 colonne et 1016 ligne la deuxième colonne ne contient que des 0 et des 8 je voudrai remplacer tous les 8 de la deuxième colonne par des 1 esque quelqu'un peut donné une macro qui fait ca automatiquement car je ne connais pas VBA pour le faire moi même.
merci d'avance pour celui ou celle qui m'aidera.

[LouiMz]

Bonjour,

Dans Excel, activez le barre d'outil Visual Basic et lancez l'enregistreur de macro.

Effectuez le remplacement que vous faites habituellement (Edition-Remplacer)
Puis arretez l'enregistrement et allez dans VisualBasic (ALT+F11).

Vous trouverez sur votre gauche un module, ouvrez le. Vous y trouverez le code que votre manipulation à créer. Vous pouvez alors le retravailler ou le réutiliser.

Cordialement

[bensof1]

merci pour la réponse

[Theze]

Bonsoir,

Sinon, à mettre dans un module standard et exécuter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub remplacer()
 
    Dim Plage As Range
    Dim Cel As Range
 
    'adapter la colonne
    With ActiveSheet
        Set Plage = .Range(.[B1], .[B65536].End(xlUp))
    End With
 
    'parcour la la plage et effectue les changements
    For Each Cel In Plage
        If Cel = 8 Then Cel = 1
    Next Cel
 
End Sub

Hervé.