Bonjour
J'aimerais remplacer toutes les cellules dans un tableau qui sont superieur a 1 ... leur donner la valeur 1.
Merci de votre aide
Posté le 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
Posté le Merci beaucoup ... je dois ouvrir VB pour ecrire ca?
Re le Forum
Oui, Alt + F11, Insertion > Module
Tu recopies le code, il suffit ensuite de lancer la macro : Valeur_Un
Myta
Posté le