Répetition inoportune d'une macro

[TOFEIGHT]

Boujour,

Si j'entre un nombre comprenant le chiffre 1 dans la msgbox la macro remplace tous les '1' à l'infini. J'aimerai que l'action remplacer ne fonctionne qu'une fois.

Merci.

Sub numbord(reponse)
Range('N:N').Select
For n = 1 To reponse
Selection.Replace What:='1', Replacement:=reponse, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
End Sub

 

[ERIC S]

Bonsoir

tu sélectionnes toute la colonne N par
Range('N:N').Select
alors tu changes sur toute la colonne N

donc il faut sélectionner une cellule, celle où tu veux remplacer

A+

 

[_Thierry]

Bonsoir ToFeight, Eric, le Forum

Une approche en application de ma compréhension car j'avoue que l'Argument 'reponse' dans le code me laisse un peu perplex car il est aussi la Borne Supérieure de la Boucle tout en étant également la Valeur de Remplacement... (Ouf)

Sub NumBord()
Dim Plage As Range, Cell As Range
Dim FirstAddress As String
Dim Response As Double

Set Plage = Range('N:N')

Response = Application.InputBox('Entrez le Nombre en Remplacement', 'Enter Number Only', Type:=1)

Plage.Replace What:='1', Replacement:=Response, LookAt:=xlPart, SearchOrder:=xlByRows

End Sub

Bonne Soirée
[ol]@+Thierry[/ol]

 

[TOFEIGHT]

J'ai pas tout compris mais l'essentiel c'est que ça fonctionne.

Un grand merci !

Tof