OVH Cloud OVH Cloud

Syntaxe Cells

4 réponses
Avatar
Florian
Bonsoir
Je désire remplacer les items de la plage A3:A1000 de la combobox1 par la
valeur de la textbox1
Je n'arrive pas à écrire une syntaxe correcte
Merci
Flo riant

Sheets("Travail").Select
Sheets("Travail").Unprotect Password:="toto"
Cells.Replace What:=ComboBox1.Value, _
Replacement:=TextBox1.Value, LookAt:=xlPart, SearchOrder:=xlByRows,
MatchCase:= _
False
Sheets("Travail").Protect Password:="toto"

4 réponses

Avatar
Hervé
Bonsoir Florian,
Peut être ceci ?

Dim Plage As Range
Set Plage = Range([A1], [A65536].End(3))
Plage.Replace ComboBox1.Value, _
TextBox1.Value, _
xlWhole, _
xlByRows, _
False
Set Plage = Nothing

Hervé.

"Florian" a écrit dans le message news:
ePo3Vu#
Bonsoir
Je désire remplacer les items de la plage A3:A1000 de la combobox1 par la
valeur de la textbox1
Je n'arrive pas à écrire une syntaxe correcte
Merci
Flo riant

Sheets("Travail").Select
Sheets("Travail").Unprotect Password:="toto"
Cells.Replace What:=ComboBox1.Value, _
Replacement:=TextBox1.Value, LookAt:=xlPart, SearchOrder:=xlByRows,
MatchCase:= _
False
Sheets("Travail").Protect Password:="toto"




Avatar
Daniel
Bonjour.
Ton code fonctionne chez moi -prends garde à "Cells", tu ratisses large.
Cordialement.
Daniel
"Hervé" a écrit dans le message de news:
OHZoe%23%
Bonsoir Florian,
Peut être ceci ?

Dim Plage As Range
Set Plage = Range([A1], [A65536].End(3))
Plage.Replace ComboBox1.Value, _
TextBox1.Value, _
xlWhole, _
xlByRows, _
False
Set Plage = Nothing

Hervé.

"Florian" a écrit dans le message news:
ePo3Vu#
Bonsoir
Je désire remplacer les items de la plage A3:A1000 de la combobox1 par la
valeur de la textbox1
Je n'arrive pas à écrire une syntaxe correcte
Merci
Flo riant

Sheets("Travail").Select
Sheets("Travail").Unprotect Password:="toto"
Cells.Replace What:=ComboBox1.Value, _
Replacement:=TextBox1.Value, LookAt:=xlPart, SearchOrder:=xlByRows,
MatchCase:= _
False
Sheets("Travail").Protect Password:="toto"








Avatar
Florian
Ok merci beaucoup
Flo riant

"Hervé" a écrit dans le message de news:
OHZoe%23%
Bonsoir Florian,
Peut être ceci ?

Dim Plage As Range
Set Plage = Range([A1], [A65536].End(3))
Plage.Replace ComboBox1.Value, _
TextBox1.Value, _
xlWhole, _
xlByRows, _
False
Set Plage = Nothing

Hervé.

"Florian" a écrit dans le message news:
ePo3Vu#
Bonsoir
Je désire remplacer les items de la plage A3:A1000 de la combobox1 par la
valeur de la textbox1
Je n'arrive pas à écrire une syntaxe correcte
Merci
Flo riant

Sheets("Travail").Select
Sheets("Travail").Unprotect Password:="toto"
Cells.Replace What:=ComboBox1.Value, _
Replacement:=TextBox1.Value, LookAt:=xlPart, SearchOrder:=xlByRows,
MatchCase:= _
False
Sheets("Travail").Protect Password:="toto"








Avatar
Florian
Bonsoir et merci
c'est pour cela que je souhaite remplacer, cells par une plage bien définie
Flo riant


"Daniel" a écrit dans le message de news:
%23J4hEB$
Bonjour.
Ton code fonctionne chez moi -prends garde à "Cells", tu ratisses large.
Cordialement.
Daniel
"Hervé" a écrit dans le message de news:
OHZoe%23%
Bonsoir Florian,
Peut être ceci ?

Dim Plage As Range
Set Plage = Range([A1], [A65536].End(3))
Plage.Replace ComboBox1.Value, _
TextBox1.Value, _
xlWhole, _
xlByRows, _
False
Set Plage = Nothing

Hervé.

"Florian" a écrit dans le message news:
ePo3Vu#
Bonsoir
Je désire remplacer les items de la plage A3:A1000 de la combobox1 par
la
valeur de la textbox1
Je n'arrive pas à écrire une syntaxe correcte
Merci
Flo riant

Sheets("Travail").Select
Sheets("Travail").Unprotect Password:="toto"
Cells.Replace What:=ComboBox1.Value, _
Replacement:=TextBox1.Value, LookAt:=xlPart, SearchOrder:=xlByRows,
MatchCase:= _
False
Sheets("Travail").Protect Password:="toto"