Macro recherche et remplace ..

[tvhabdo]

Bonjour tous... le forum ..

j'explique

Dans la colonne A j'ai :

70A
70A
70B
70B
70C
70C
90A
90A

Et je souhaiterais faire une p'tite macro qui me remplace
70A par AMAL1
70B par AMAL2
70C par AMAL3
90A par AMAL4
90B par AMAL5

That's all... folk's..
MErci a tousPatrick

 

[jeanpierre]

Re : Macro recherche et remplace ..

Bonsoir tvhabso,

Oui, mais s'il y a 50Z, on fait quoi...?

Pour te montrer qu'il y a des limites aux macros.... surtout si l'on en sait pas plus....

Bonne soirée Patrick.

Et précises....

Jean-Pierre

 

[tvhabdo]

Re : Macro recherche et remplace ..

Jean pierre

Pardon..

non non il ne peux y avoir 50 Z

il ne peux y avoir que 70A, 70B, 70C ... etc juska 70P MAXI
et 90A, 90B, 90C ... etc juska 90P MAXI

je sais remplacer 70 A par AMAL1, 70B par AMAL2

mais quand je passe a 90A, je ne sais pas incrementer a la suite ex. 90A AMAL3

Patrick

 

[bqtr]

Re : Macro recherche et remplace ..

Bonsoir tvhabdo, jeanpierre

Teste ceci :

Sub Remplace()
Dim tablo As Variant, tablo2 As Variant, tablo3 As Variant
Dim k As Long, i As Integer
tablo = Range("A1:A" & Range("A65536").End(xlUp).Row)
tablo2 = Array("70A", "70B", "90A", "90B")
tablo3 = Array("AMAL1", "AMAL2", "AMAL3", "AMAL4")
For k = LBound(tablo) To UBound(tablo)
  For i = LBound(tablo2) To UBound(tablo2)
    If tablo(k, 1) = tablo2(i) Then tablo(k, 1) = tablo3(i)
  Next
Next
Range("A1:A" & Range("A65536").End(xlUp).Row) = tablo
 
End Sub

Il faut qu'a chaque élément du tableau 2 corresponde un élément du tableau 3.
Ex: 70A ---> AMAL1
70B ---> AMAL2
70C ---> AMAL3
.../...
90F ---> AMALXXX

A+

 

[jeanpierre]

Re : Macro recherche et remplace ..

Re,

Ce que j'ai voulu dire, simplement, Précises toutes tes conditions.... mais toutes et sans exceptions....

Voir avec un petit fichier joint au format ZIPPE, 8 fois moins lourd que les XLS

Simple sous windows, clic droit sur ton fichier et Envoyer vers/Dossier compressé....

C'est ce fichier à joindre....

Précises bien toutes les situations.... et les réponses attendues....

A te lire, et si je peux réponse assurée, sinon d'autres pourront le faire à cette condition.

Edit : Bonsoir Pierre Olivier, trop rapide pour moi et avec une soluce en plus....

 

[bqtr]

Re : Macro recherche et remplace ..

Re,

Une autre version:

Les valeurs à remplacer et les nouvelles valeurs sont sur une autre feuille, en colonne A pour les premières et en colonne B pour les deuxièmes.
(plus simple pour faire des modifs )

Un test vérifie que les tableaux 2 et 3 sont identiques (en dimension).

Sub Remplace3()
Dim tablo As Variant, tablo2 As Variant, tablo3 As Variant
Dim k As Long, i As Integer
tablo = Range("A1:A" & Range("A65536").End(xlUp).Row)
tablo2 = Sheets("Feuil3").Range("A1:A" & Sheets("Feuil3").Range("A65536").End(xlUp).Row)
tablo3 = Sheets("Feuil3").Range("B1:B" & Sheets("Feuil3").Range("B65536").End(xlUp).Row)
If UBound(tablo2) <> UBound(tablo3) Then
 MsgBox "les tableaux 2 et 3 doivent avoir les mêmes dimensions", vbInformation, "Erreur:"
 Exit Sub
End If
For k = LBound(tablo) To UBound(tablo)
  For i = LBound(tablo2) To UBound(tablo2)
    If tablo(k, 1) = tablo2(i, 1) Then tablo(k, 1) = tablo3(i, 1)
  Next
Next
Range("A1:A" & Range("A65536").End(xlUp).Row) = tablo
 
End Sub

A+