Problème macro vba

Pierrot93

XLDnaute Barbatruc

• 15 Avril 2013

• #2

Re : Problème macro vba

Bonjour,

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

Code:

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
@+

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 15 Avril 2013

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Avril 2013

• #4

Re : Problème macro vba

Re, bonjour Misange

Misange à dit:

Bonjour, salut Pierrot

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

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 15 Avril 2013

• #5

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Avril 2013

• #6

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 15 Avril 2013

• #7

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

 

Vote positif 0 Vote négatif