Remplacer plusieurs valeurs

[patsyl60]

Bonjour Le forum,

je suis entrain de faire une macro pour remplacer les valeurs par une autre. Mais j'ai de nombreuses valeurs (Plus de 100). Voici le texte de ma macro :

Selection.Replace What:="A1", Replacement:="FXX", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="A2", Replacement:="FXX", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="A3", Replacement:="FXX", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Peut on mettre plusieurs valeurs dans le What ou travailler par différence ? ( exemple pour le what, je dois prendre les valeurs de A1 à A9 et de AA à AX ( je ne dois pas prendre AZ)

D'avance merci de votre aide.

Patsyl60 😕

 

[JCGL]

Re : Remplacer plusieurs valeurs

Bonjour à tous,

Peux-tu essayer :

Sub Test()
For X = 1 To 100
Selection.Replace What:="A" & X, Replacement:="FXX"
Next
End Sub

Après avoir sélectionné une plage...

Pas testé ;-)

A+ à tous

Edition : Bonsoir Catrice 😉. Je vais quand même tester ma proposition... après le repas....

 

[Catrice]

Re : Remplacer plusieurs valeurs

Bonsoir,

Tu peux essayer quelque chose comme ceci :

Sub Test()
Quoi = Array("A1", "A2", "A3")
Par = Array("FXX", "FXX", "FXX")
For i = 0 To UBound(Quoi)
Selection.Replace What:=Quoi(i), Replacement:=Par(i), LookAt:=xlPart
Next
End Sub

Il faudrait détailler d'avantage ce que tu veux faire ...

Edit : Bonsoir JCGL 😉

 

[vbacrumble]

Re : Remplacer plusieurs valeurs

Bonsoir patsyl60, JCGL, Catrice, le fil


En ayant compris la chose comme ceci

Une autre proposition

Sub test()
Dim efface As Range
Set efface = Union([A1:A9], [AA1:AX9])
efface.Value = Replace(efface.Text, efface.Text, "FXX")
End Sub

 

[patsyl60]

Re : Remplacer plusieurs valeurs

Merci à vous pour votre aide mais apparemment, cela ne fonctionne pas. Pour être plus clair, je vous joint un petit fichier.( J'aurais du commencer par là..)

Dans cet exemple, il faut que dans la colonne B, tout soit à FXX sauf pour les AZ de la colonne A.

Pour info, j'ai la même chose à faire pour les rep B,C,D,Etc...

D'avance merci.

Patsyl60 😕

 

[vbacrumble]

Re : Remplacer plusieurs valeurs

Re


Il faut zipper ton fichier

pour que sa taille soit < à 48 ko

 

[patsyl60]

Re : Remplacer plusieurs valeurs

Je suis vraiment très nul. Je n'avais pas joint le fichier.

Patsyl60 😡

 

[vbacrumble]

Re : Remplacer plusieurs valeurs

RE


Essayes ceci

Sub test()
Dim r As Range, c As Range
Set r = Range([A2], [A65536].End(xlUp))
For Each c In r
If Not c.Text Like "AZ" Then
c.Offset(, 1) = "FFX"
End If
Next
End Sub

Pour info, j'ai la même chose à faire pour les rep B,C,D,Etc...

Nommes nous, les colonnes concernées de manière exhaustive, stp

 

[patsyl60]

Re : Remplacer plusieurs valeurs

Merci vbacrumble pour ta réponse, cela fonctionne parfaitement.

Pour ton message :
"Nommes nous, les colonnes concernées de manière exhaustive, stp"

Il s'agit e fait de codes représentant donc la même chose que dans la colonne A.

Je te remets mon fichier plus complet en pièce jointe. je t'ai ajouté des représentants B ET C. Il faut que les répresentants se terminant par z(AZ, BZ et CZ dans mon exemple) ne doivent pas avoir la mention FXX.

Encore merci.

Patsyl60.

 

[vbacrumble]

Re : Remplacer plusieurs valeurs

Re



Il suffit de modifier ainsi

Sub test()
Dim r As Range, c As Range
Set r = Range([A2], [A65536].End(xlUp))
For Each c In r
If Not c.Text Like "*Z*" Then
c.Offset(, 1) = "FFX"
End If
Next
End Sub

 

[patsyl60]

Re : Remplacer plusieurs valeurs

Merci vbacrumble. C'est exactement ce que je voulais.

Merci à tous pour votre aide.

Patsyl60 😉