Je poss=E8de une table de 2 colonnes, l'une comportant 756=20
codes (alphanum=E9rique), l'autre comportant une=20
d=E9nomination texte correspondant au code de la m=EAme ligne.
Je poss=E8de =E9galement diff=E9rentes feuilles de calcul=20
comprenant plusieurs milliers d'entr=E9es (lignes) avec 1=20
colonnes reprenant les 756 codes de ma premi=E8re table.
Je souhaite remplacer ces codes par la d=E9nomination=20
correspondante. Une sorte de 756 imbrications de SI...
Je soup=E7onne une solution en VBA ou avec une macro.
Si vous avez cette solution, je vous en supplie, donnez la=20
moi.
On suppose... * Que tes listes de référence sont... - dans la 1° feuille du classeur - nommées "codes" et "dénom" * Que les listes à modifier (comportant les codes) sont... - toutes dans les feuilles 2 à la dernière feuille du classeur (à toi de modifier si...) - en plage A1:Ax
Sub zz_Codes() For i = 2 To Sheets.Count x = Sheets(i).Name For Each c In Range(x & "!A1:A" & Range(x & "!A65536").End(3).Row) y = x & "!" & c.Address c.Value = Evaluate("if(isnumber(match(" & y & ",codes,0)),index(dénom,match(" & y & ",codes,0))," & y & ")") Next c Next i End Sub
AV
On suppose...
* Que tes listes de référence sont...
- dans la 1° feuille du classeur
- nommées "codes" et "dénom"
* Que les listes à modifier (comportant les codes) sont...
- toutes dans les feuilles 2 à la dernière feuille du classeur (à toi de
modifier si...)
- en plage A1:Ax
Sub zz_Codes()
For i = 2 To Sheets.Count
x = Sheets(i).Name
For Each c In Range(x & "!A1:A" & Range(x & "!A65536").End(3).Row)
y = x & "!" & c.Address
c.Value = Evaluate("if(isnumber(match(" & y &
",codes,0)),index(dénom,match(" & y & ",codes,0))," & y & ")")
Next c
Next i
End Sub
On suppose... * Que tes listes de référence sont... - dans la 1° feuille du classeur - nommées "codes" et "dénom" * Que les listes à modifier (comportant les codes) sont... - toutes dans les feuilles 2 à la dernière feuille du classeur (à toi de modifier si...) - en plage A1:Ax
Sub zz_Codes() For i = 2 To Sheets.Count x = Sheets(i).Name For Each c In Range(x & "!A1:A" & Range(x & "!A65536").End(3).Row) y = x & "!" & c.Address c.Value = Evaluate("if(isnumber(match(" & y & ",codes,0)),index(dénom,match(" & y & ",codes,0))," & y & ")") Next c Next i End Sub
AV
Jacquouille
Bonjour Président C'est pas MP Frenchie Excel, ici ?? Qu'est-ce que vous avez tous à causer le Grand Breton, maintenant?
-- Jacquouille con seille : http://www.excelabo.net
"AV" a écrit dans le message news: #
On suppose... * Que tes listes de référence sont... - dans la 1° feuille du classeur - nommées "codes" et "dénom" * Que les listes à modifier (comportant les codes) sont... - toutes dans les feuilles 2 à la dernière feuille du classeur (à toi de
modifier si...) - en plage A1:Ax
Sub zz_Codes() For i = 2 To Sheets.Count x = Sheets(i).Name For Each c In Range(x & "!A1:A" & Range(x & "!A65536").End(3).Row) y = x & "!" & c.Address c.Value = Evaluate("if(isnumber(match(" & y & ",codes,0)),index(dénom,match(" & y & ",codes,0))," & y & ")") Next c Next i End Sub
AV
Bonjour Président
C'est pas MP Frenchie Excel, ici ??
Qu'est-ce que vous avez tous à causer le Grand Breton, maintenant?
--
Jacquouille con seille : http://www.excelabo.net
NoSpam_j.thiernesse@skynet.be
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message news:
#jaa0yIYDHA.736@TK2MSFTNGP09.phx.gbl...
On suppose...
* Que tes listes de référence sont...
- dans la 1° feuille du classeur
- nommées "codes" et "dénom"
* Que les listes à modifier (comportant les codes) sont...
- toutes dans les feuilles 2 à la dernière feuille du classeur (à toi
de
modifier si...)
- en plage A1:Ax
Sub zz_Codes()
For i = 2 To Sheets.Count
x = Sheets(i).Name
For Each c In Range(x & "!A1:A" & Range(x & "!A65536").End(3).Row)
y = x & "!" & c.Address
c.Value = Evaluate("if(isnumber(match(" & y &
",codes,0)),index(dénom,match(" & y & ",codes,0))," & y & ")")
Next c
Next i
End Sub
Bonjour Président C'est pas MP Frenchie Excel, ici ?? Qu'est-ce que vous avez tous à causer le Grand Breton, maintenant?
-- Jacquouille con seille : http://www.excelabo.net
"AV" a écrit dans le message news: #
On suppose... * Que tes listes de référence sont... - dans la 1° feuille du classeur - nommées "codes" et "dénom" * Que les listes à modifier (comportant les codes) sont... - toutes dans les feuilles 2 à la dernière feuille du classeur (à toi de
modifier si...) - en plage A1:Ax
Sub zz_Codes() For i = 2 To Sheets.Count x = Sheets(i).Name For Each c In Range(x & "!A1:A" & Range(x & "!A65536").End(3).Row) y = x & "!" & c.Address c.Value = Evaluate("if(isnumber(match(" & y & ",codes,0)),index(dénom,match(" & y & ",codes,0))," & y & ")") Next c Next i End Sub
AV
AV
Je pense que la fonction RECHERCHEV pourrait être très utile dans toutes ces feuilles !!!
Achhhhh.... ;-) AV
Je pense que la fonction RECHERCHEV pourrait être très
utile dans toutes ces feuilles !!!
