Remplacer cellules > 1

1

Bonjour

J'aimerais remplacer toutes les cellules dans un tableau qui sont superieur a 1 ... leur donner la valeur 1.

Merci de votre aide

birouche Posté le 8 décembre 2014, 22:27
par birouche
Répondre
0

Salut le Forum

Fait en vitesse

Sub Valeur_Un()
    Dim Plage As Range, Cel As Range
    Set Plage = Application.InputBox(prompt:="Choisir la plage à traiter", Type:=8)
    For Each Cel In Plage
        If Cel > 1 Then Cel = 1
    Next Cel
End Sub

Myta

Mytå Posté le 8 décembre 2014, 22:45
par Mytå
-1

Merci beaucoup ... je dois ouvrir VB pour ecrire ca? 

birouche Posté le 8 décembre 2014, 22:53
par birouche
-1

Re le Forum

Oui, Alt + F11, Insertion > Module

Tu recopies le code, il suffit ensuite de lancer la macro : Valeur_Un

Myta

Mytå Posté le 8 décembre 2014, 23:24
par Mytå
0

Merci,

Ça me demande la plage a traiter ...

Posté le 9 décembre 2014, 14:03
-1

Merci,

Ça me demande la plage a traiter ...

Posté le 9 décembre 2014, 14:36
-2

C'est bon ..tout est correct ..

Merci beaucoup

Posté le 9 décembre 2014, 15:28

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :