Remplacer plusieurs valeurs

JCGL

XLDnaute Barbatruc

• 24 Mai 2009

• #2

Re : Remplacer plusieurs valeurs

Bonjour à tous,

Peux-tu essayer :

Code:

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....

 

Dernière édition: 24 Mai 2009

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 24 Mai 2009

• #3

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 😉

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 24 Mai 2009

• #4

Re : Remplacer plusieurs valeurs

Bonsoir patsyl60, JCGL, Catrice, le fil


En ayant compris la chose comme ceci

Une autre proposition

Code:

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

 

Vote positif 0 Vote négatif

patsyl60

XLDnaute Occasionnel

• 24 Mai 2009

• #5

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 😕

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 24 Mai 2009

• #6

Re : Remplacer plusieurs valeurs

Re


Il faut zipper ton fichier

pour que sa taille soit < à 48 ko

 

Vote positif 0 Vote négatif

patsyl60

XLDnaute Occasionnel

• 24 Mai 2009

• #7

Re : Remplacer plusieurs valeurs

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

Patsyl60 😡

 

Pièces jointes

• test FXX.xls

  32 KB · Affichages: 78
• test FXX.xls

  32 KB · Affichages: 81
• test FXX.xls

  32 KB · Affichages: 84

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 24 Mai 2009

• #8

Re : Remplacer plusieurs valeurs

RE


Essayes ceci

Code:

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...

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

patsyl60

XLDnaute Occasionnel

• 24 Mai 2009

• #9

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.

 

Pièces jointes

• test FXX.xls

  40.5 KB · Affichages: 85
• test FXX.xls

  40.5 KB · Affichages: 92
• test FXX.xls

  40.5 KB · Affichages: 103

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 24 Mai 2009

• #10

Re : Remplacer plusieurs valeurs

Re



Il suffit de modifier ainsi

Code:

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

 

Vote positif 0 Vote négatif

patsyl60

XLDnaute Occasionnel

• 24 Mai 2009

• #11

Re : Remplacer plusieurs valeurs

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

Merci à tous pour votre aide.

Patsyl60 😉

 

Vote positif 0 Vote négatif