Debuts sur VBA, remplacer toutes les cellules >0 par 1 sur Excel 2010

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:

---

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!

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:

---

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

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,

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

Merci Mercatog, ca marche!

Citation:

---

Envoyé par 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:

---

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:

---

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

---