Répetition inoportune d'une macro

TOFEIGHT · 23 Février 2006

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 · 23 Février 2006

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 · 23 Février 2006

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 · 24 Février 2006

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

Un grand merci !

Tof

Répetition inoportune d'une macro

TOFEIGHT

Guest

ERIC S

XLDnaute Barbatruc

_Thierry

XLDnaute Barbatruc

TOFEIGHT

Guest

Discussions similaires