Discussion :

[FCL31]

Salut a tous

Voula j'ai le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Minick]

Salut,

Avec un select case peut etre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

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

[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

[casefayere]

Bonjour,
et un code comme celui-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[casefayere]

si ton fichier de recherche est ouvert :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Minick]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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