probleme fonction remplacement

Version imprimable

Bonjour,

Je me permets d'ouvrir une discussion car j'ai un problème pour un code très simple, mais c'est la première fois que j'essais de faire une macro...

Ce que je veux faire est très simple et requier deux étapes.
1) J'ai une liste de code à 4 lettres sur une collonne. Je voudrais copier coller cette colonne à coté puis changer certains codes par d'autres. Les codes ayant été changer devrait apparaitre sur fond jaune.
2) Je voudrais copier coller cette liste modifier à coté pour remplacer les codes par des numéros.

J'ai donc créé le code suivant qui n'est certainement pas optimisé, et qui surtout, ne marche pas. Quand je le lance, le copier coller fonctionne bien mais rien n'est remplacé. Toutes les cases non utilisées sont rendu en fond jaune. Et les chiffre apparaissent sous la liste de code...
De plus, à la manière donc je l'ai codé, la liste est limité à 60 codes...
Que s'est-il passé ? Comment corriger ce code ? Comment l'améliorer pour qu'il prenne en compte une colonne entière (les listes que je veux lui faire remplacer sont de longueurs variables) ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 Function changer(code1, code2) Selection.Replace What:=code1, Replacement:=code2, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=True End Function Sub conversion() ' Conversion Macro ' Macro enregistrée le 06/12/2012 par Mathspountz ' Touche de raccourci du clavier: Ctrl+p Range("A2:A100").Select Application.CutCopyMode = False Selection.Copy Range("C2").Select ActiveSheet.Paste 'copier coller With Application.ReplaceFormat.Font .FontStyle = "Gras" .Subscript = False End With Application.ReplaceFormat.Interior.ColorIndex = 6 'mise en page des remplacements Call changer(AABB, CCDD) Call changer(AACC, GGTT) Call changer(YYTT, IUJN) Call changer(PPOO, Error) 'liste des choses à changer Range("C2:C100").Select Application.CutCopyMode = False Selection.Copy Range("E2").Select ActiveSheet.Paste 'copier coller Call changer(AABB, 800) Call changer(AACC, 700) Call changer(YYTT, 600) Call changer(PPOO, 500) 'liste des choses à changer End sub

09/12/2012, 17h49
AlainTech
Bonjour,

Ca ne résoudra probablement pas ton problème mais ta fonction n'en est pas une car elle ne renvoie rien.

Remplace Function / End Function par Sub / End Sub.

Une autre piste:

Remplace
Code:

1 2 3 4 5 Range("A2:A100").Select Application.CutCopyMode = False Selection.Copy Range("C2").Select ActiveSheet.Paste
par
Code:

1 2 3 4 Application.CutCopyMode = False With ActiveSheet .Range("A2:A100").Copy .Range("C2") End With
De même pour "C2:C100" -> "E2"

A force de regarder ton code, je crois que ton problème est à l'intérieur de ta "fonction".
Tu y travailles sur la Selection mais une seule cellule est sélectionnée (C2 ou E2) lors de l'appel.
Il vaudrait mieux que tu passes la colonne à traiter en paramètre.
10/12/2012, 15h59
mathspountz

Merci pour ta réponse,

Je vais prendre en compte ce que tu dis, ça me donne une piste car j'étais vraiment bloqué étant un jeune padawan. Le temps d'y réflechir et de tester je donnerai des nouvelles demain !

Merci encore.

Bonjour,

Comme dit Alain, une fonction est sensée retourner une ou des valeurs. Excel sait bien faire certaines choses en l'occurrence effectuer le remplacement de valeurs dans une plage entière sans que l'on soit obligé de boucler. Dans mon exemple, le bouclage se fait sur le tableau contenant les codes à remplacer et de remplacement (le compilateur faisant lui même sa boucle de remplacement sur la plage concernée) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Sub conversion()
 
    Dim Tbl()
    Dim I As Integer
 
    'défini les dimensions du tableau de remplacement des code
    'dimension 1 les codes à remplacer, dimension 2 les codes de remplacement
    ReDim Tbl(1 To 2, 1 To 4)
 
    Tbl(1, 1) = "AABB": Tbl(2, 1) = "CCDD"
    Tbl(1, 2) = "AACC": Tbl(2, 2) = "GGTT"
    Tbl(1, 3) = "YYTT": Tbl(2, 3) = "IUJN"
    Tbl(1, 4) = "PPOO": Tbl(2, 4) = "Error"
 
    'copie de A en C
    Range("A2:A100").Copy Range("C2")
 
    'boucle sur le tableau et effectue les remplacement
    'en une fois par code (Excel sait le faire alors laisson-le ;o) ne pas ré-inventer la roue)
    For I = 1 To UBound(Tbl, 2)
 
        Range("A2:A100").Replace Tbl(1, I), Tbl(2, I)
 
    Next I
 
    'second groupe de codes
    Tbl(1, 1) = "AABB": Tbl(2, 1) = 800
    Tbl(1, 2) = "AACC": Tbl(2, 2) = 700
    Tbl(1, 3) = "YYTT": Tbl(2, 3) = 600
    Tbl(1, 4) = "PPOO": Tbl(2, 4) = 500
 
    'copie de C en E
    Range("C2:C100").Copy Range("E2")
 
    'boucle sur le tableau et effectue les remplacement
    For I = 1 To 4
 
        Range("C2:C100").Replace Tbl(1, I), Tbl(2, I)
 
    Next I
 
End Sub

Hervé.

11/12/2012, 11h39
mathspountz

Bonjour,

Ton code fonctionne très bien Theze, je ne suis pas encore super à l'aise avec les dim mais cet exemple m'aide à comprendre un peu mieux cet aspect.

De plus le "replace" facilite grandement le code en effet !

Par contre est ce qu'il y a moyen de parametrer vis à vis de la tipographie des remplacements ? Exemple, tous les changements sont surlignés, ou en gras etc...

Merci beaucoup en tout cas.

Juste par curiosité,

Est-il possible de faire un tableau à trois colonnes par exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 Sub conversion() Dim Tbl() Dim I As Integer ReDim Tbl(1 To 3, 1 To 4) Tbl(1, 1) = "AABB": Tbl(2, 1) = "CCDD": Tbl(3, 1) = 800 Tbl(1, 2) = "AACC": Tbl(2, 2) = "GGTT": Tbl(3, 2) = 700 Tbl(1, 3) = "YYTT": Tbl(2, 3) = "IUJN": Tbl(3, 3) = 600 Tbl(1, 4) = "PPOO": Tbl(2, 4) = "Error": Tbl(3, 4) = 500 'copie de A en C Range("A2:A100").Copy Range("C2") 'Remplacement 1 For I = 1 To UBound(Tbl, 2) Range("C2:C100").Replace Tbl(1, I), Tbl(2, I) Next I 'copie de C en E Range("C2:C100").Copy Range("E2") 'remplacement 2 For I = 1 To UBound(Tbl, 3) Range("E2:E100").Replace Tbl(2, I), Tbl(3, I) Next I End Sub
Comme ca si j'ai 100 codes auxquelles se réfèrent toujours les 15 mêmes informations, je peux créer un tableau (1 to 15, 1 to 100) ?

Vous qui avez l'expérience, qu'est ce qui est préférable ?

2e question, est-il possible de remplacer le bloc :
Tbl(1, 1) = "AABB": Tbl(2, 1) = "CCDD": Tbl(3, 1) = 800
Tbl(1, 2) = "AACC": Tbl(2, 2) = "GGTT": Tbl(3, 2) = 700
Tbl(1, 3) = "YYTT": Tbl(2, 3) = "IUJN": Tbl(3, 3) = 600
Tbl(1, 4) = "PPOO": Tbl(2, 4) = "Error": Tbl(3, 4) = 500
Parce que un bloc de 15*100 comme ca me parait compliqué et propice aux erreurs...
Genre dim Tbl("A1:C4") ou dim Tbl("A1:O100" ... ?

Par un tableau de 3*4 cellules excel ? Ce qui permettrait de modifier rapidement les informations ?