T
TOFEIGHT
Guest
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
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