couple lettre-nombre d'une liste

serval

XLDnaute Occasionnel
Bonjour,

Je suis entrain de travailler sur un fichier ayant des données sous la forme suivante:
a | 12
b | 12
a | 11
a | 12
b | 13
a | 12
b | 12

Je cherche le moyen au travers de vb pour ecrire, dans une seconde feuille, tous les couples lettres-nombre.

est ce que quelqu'un a deja fait ca?

Merci de votre aide,
FAbrice
 

Hervé

XLDnaute Barbatruc
Boonjour fab, andré, re nikom

Pas sur d'avoir compris, mais je te propose tout de meme une solution possible en pièce jointe.

salut

le code :

Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim data As Collection
Dim i As Byte
Dim c As Range

Set data = New Collection

On Error Resume Next
For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)
        data.Add c & ';' & c(1, 2),
CStr(c & ';' & c(1, 2))
Next c
On Error GoTo 0

For i = 1 To data.Count
        tablo = Split(data(i), ';')
        Cells(i, 4) = tablo(0)
        Cells(i, 5) = tablo(1)
Next i
End Sub
[file name=Classeur2_20060111110232.zip size=7794]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20060111110232.zip[/file]
 

Pièces jointes

  • Classeur2_20060111110232.zip
    7.6 KB · Affichages: 15

Discussions similaires

Réponses
1
Affichages
1 K