Simplifier le codage

Version imprimable

21/04/2010, 16h19
FCL31

Simplifier le codage
Salut a tous

Voula j'ai le code suivant :
Code:

1 2 3 4 5 For i = Range("B65536").End(xlUp).Row To 2 Step -1 If Range("B" & i).Value = "Auto" Then Range("U" & i).Value = "Automotrice" End If Next i
Qui je pense devrai marcher

Mon problème est que il me faudrait réécrire ce code environ 60 fois (avec une légère différence bien sur)

Si en B j'ai "Auto" en U je veux "Automotrice"
Mais en B je peu avoir "GP" et en U avoir "Presse"
en B "KT" et en U "Fauch" ....

Je voudrais simplement savoir si il y a moyen de simplifier la saisi du code ??

Salut,

Avec un select case peut etre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim Remplacement As String
 
For i = Range("B65536").End(xlUp).Row To 2 Step -1
    Select Case Range("B" & i).Value
        Case "Auto"
            Remplacement = "Automotrice"
 
        Case "GP"
            Remplacement = "Presse"
 
        Case ....
 
 
    End Select
 
    If Remplacement <> "" Then
        Range("U" & i).Value = Remplacement
        Remplacement = ""
    End If
Next i

21/04/2010, 18h05
FCL31

Merci beaucoup Minick

Même si sa a l'air de bien marcher, je ne suis pas certain que se soit plus rapide a faire

Merci quand même :ccool::ccool:
21/04/2010, 18h11
Minick

Re,

Une autre solution consisterait a utiliser une table de correspondance et d'utiliser une formule (recherchev) pour retrouver les données.
Et cette partie de code se resumerait a quelques lignes pour mettre la formule en U puis copier en valeur le resultat.
Cela aurait d'ailleur un avantage, si tu as de nouvelles 'references', il suffit de modifier la table
et tu ne touches pas a ton code.
22/04/2010, 11h16
FCL31

Ok

effectivement je pense que se serrait l'idéal

Mais là je ne sais pas dutout comme faire un truc comme ca

Si tuu pouvait m'en dire un peu plus STP

Bonjour,
et un code comme celui-ci :

Code:

1
2
3
4
5
6
7
8
Sub Macro1()
Dim cel As Range, tableau As Range
'tu crées une nouvelle feuille (ex : "feuil2" avec exemple en A les references (Auto, chaussettes,...), en B les categories correspondantes (automotrice, vetements, etc.)
Set tableau = Sheets("feuil1").Range("b2:b" & Range("B65536").End(xlUp).Row)
For Each cel In tableau
    cel.Offset(0, 1) = Sheets("feuil2").Range("a2:a" & Sheets("feuil2").Range("A65536").End(xlUp).Row).Find(cel).Offset(0, 1)
Next cel
End Sub

22/04/2010, 11h47
FCL31

Merci casefayere sa me semble pas mal

Mais y t-il mas moyen de faire a partir d'un autre fichier plutôt que de faire depuis une autre feuille (a la place de "feuil2") parce que ma macro supprime toute les feuille existante du fichier afin de ne garder que les données définitive.

si ton fichier de recherche est ouvert :

Code:

1
2
3
4
5
6
7
8
Sub Macro1()
Dim cel As Range, tableau As Range
'tu crées une nouvelle feuille dans l'autre classeur (ex : "feuil2" avec exemple en A les references (Auto, chaussettes,...), en B les categories correspondantes (automotrice, vetements, etc.)
Set tableau = Sheets("feuil1").Range("b2:b" & Range("B65536").End(xlUp).Row)
For Each cel In tableau
    cel.Offset(0, 1) = workbooks("ton_classeur.xls").Sheets("feuil2").Range("a2:a" & workbooks("ton_classeur.xls").Sheets("feuil2").Range("A65536").End(xlUp).Row).Find(cel).Offset(0, 1)
Next cel
End Sub

pour travailler avec un classeur fermé, beaucoup de posts traitent du sujet et je ne suis pas très agguerri à ce sujet

bonne journée

Salut,

Sur le pprincipe que j'avais evoque avec une formule (Recherchev):

Code:

1
2
3
4
5
6
7
8
9
10
    Dim ShtSrc As Worksheet, ShtDst As Worksheet
 
    Set ShtDst = ThisWorkbook.Sheets("Feuil1")
    Set ShtSrc = Workbooks("TableCorrespondances.xls").Sheets("Table")
 
    With ShtDst.Range("U2:U" & ShtDst.Range("B65536").End(xlUp).Row)
        .FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC2,'[" & ShtSrc.Parent.Name & "]" & ShtSrc.Name & "'!C1:C2,2,0)),RC2,VLOOKUP(RC2,'[" & ShtSrc.Parent.Name & "]" & ShtSrc.Name & "'!C1:C2,2,0))"
        .Calculate
        .Value = .Value
    End With

Cela suppose que le fichier TableCorrespondances soit ouvert