Problème macro vba

[Marion1857]

Bonjour,
J'essaye de convertir ma colonne contenant des oui ou des non en 1 et 0 mais je n'y arrive pas..
Pourriez-vous m'aider ?
Option Explicit

Sub Transform()
Dim i As Integer
Dim non As String
For i = 1 To 400
If Range(" R " & i) = non Then
Range(" R " & i) = 1
End If
Next i
Return
End Sub


Cordialement

 

[Pierrot93]

Re : Problème macro vba

Bonjour,

il faut initialiser ta variable non, en l'état le code cherche une chaîne vide soit : ""

Sub Transform()
Dim i As Integer
Dim non As String
non = "non"
For i = 1 To 400
If Range(" R " & i) = non Then
Range(" R " & i) = 1
End If
Next i
Return
End Sub

bonne journée
@+

 

[Misange]

Re : Problème macro vba

Bonjour, salut Pierrot

If Range(" R " & i) = "non" Then

si non est écrit en dur dans ta cellule, ça marchera mieux avec les guillemets

 

[Pierrot93]

Re : Problème macro vba

Re, bonjour Misange

Bonjour, salut Pierrot

If Range(" R " & i) = "non" Then

si non est écrit en dur dans ta cellule, ça marchera mieux avec les guillemets

A priori "non" est aussi une variable dans le code qui n'est pas initialisée..

 

[Misange]

Re : Problème macro vba

Tu as raison, j'ai lu en grande diagonale.
Cela dit, je ne vois pas trop l'intérêt de créer une variable pour un non qui est juste le contenu de la cellule à tester.

 

[Pierrot93]

Re : Problème macro vba

RE,

Cela dit, je ne vois pas trop l'intérêt de créer une variable pour un non qui est juste le contenu de la cellule à tester.

oui, entièrement d'accord avec toi....

 

[Modeste geedee]

Re : Problème macro vba

Bonsour®
selectionner la colonne
edition rechercher
rechercher : Oui
remplacer par : 1
remplacer tout


edition rechercher
rechercher : non
remplacer par : 0
remplacer tout