Discussion :

[labjo14]

Bonjour a tous,
Je suis novice sur VBA et souhaiterais remplacer toutes les donnees >0 par le chiffre 1 dans mon tableau Excel,
J'ai essaye:

Code :

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

1
2
3
4
5
6
7
8
Sub Remplacement_nombres_positifs()
For Each Cell In Range("F4:LZ42")
If Cell.Value > 0 Then
Cell.Value = 1
 
End If
Next
End Sub

Mais cela ne fonctionne pas, est-ce qu'une ame charitable aurait une explication?
Merci beaucoup!

[Lilou51]

Bonsoir,

Apparemment, ce code parait pas mal... Mais sans doute serait-il préférable d'utiliser un autre mot que "cell" qui doit être un mot réservé, moi, j'utilise en général le mot français.

Code :

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

1
2
3
4
5
6
 
For each Cellule in Range(...)
If Cellule.value > 0 then
Cellule.value =1
end if
next

Et si cela ne change rien, je t'indiquerait comment vérifier étape par étape le code, et éventuellement mieux préciser l'emplacement de la range

[labjo14]

Bonjour Lilou51, merci pour ta reponse!
j'ai essaye en remplacant cell par cellule et je recois un mot d'erreur "run-time error '13': Type Mismatch, en surlignant en jaune la ligne "if cellule.value>0 Then"

Une idee de ce que ca signifie?
Merci beaucoup,

[mercatog]

Réponse au même sujet (réponse #4)
http://www.developpez.net/forums/d14...emble-valeurs/

[labjo14]

Merci Mercatog, ca marche!

[Invité]

Bonjour a tous,
Je suis novice sur VBA et souhaiterais remplacer toutes les donnees >0 par le chiffre 1 dans mon tableau Excel,
J'ai essaye:

Code :

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

1
2
3
4
5
6
7
8
Sub Remplacement_nombres_positifs()
For Each Cell In Range("F4:LZ42")
If Cell.Value > 0 Then
Cell.Value = 1
 
End If
Next
End Sub

Mais cela ne fonctionne pas, est-ce qu'une ame charitable aurait une explication?
Merci beaucoup!

Si tu remplace les valeur à zéro sur la cellule entière par du texte en suite tous ce qui est numérique par "0" et enfin 0 par 1 et le texte par 0

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
18
19
20
21
Sub test()
Dim Plage As String
Plage = "F4:LZ42"
 ReplaceZéro Range(Plage)
 For i = 1 To 9
    ReplaceChar Range(Plage), CStr(i), "0"
 Next
  ReplaceChar Range(Plage), "0", "1"
   ReplaceChar Range(Plage), "[A]", "0"
End Sub
Sub ReplaceZéro(R As Range)
    R.Replace What:="0", Replacement:="[A]", LookAt:=xlWhole, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub
Sub ReplaceChar(R As Range, Val1 As String, Val2 As String)
    R.Replace What:=Val1, Replacement:=Val2, LookAt:=xlPart, SearchOrder _
        :=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:= _
        False
 
End Sub