traitement données avec vba

[sam_p]

Salut à tous,

Je souhaite trasformer des valeurs numériques (1,2...7) sous forme de caractèers tel que (C,B,...G) sur une plage variale mais qui commence toujours de (ligne 48 colonne E) à... et ceci sur 2 feuilles (exemple de fichier ci dessous).
quelqu'un pourrait m'aidetr svp?
sam

 

[WILFRIED]

Salut,

TU semble avoir oublier de mettre le fichier ....

Pour la selection :

Range('E48').end(xltoright).end(xldown).select

te selectionne la derniére cellule contenant des valeurs..

A+

 

[sam_p]

voila le fichier:

 

[sam_p]

il semble que le fichier doit être inferieur à 50 ko...
[file name=essai11.zip size=45988]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai11.zip[/file]

 

[Hervé]

Bonjour sam, wilfried, le forum

Un exemple de syntaxe possible, je te laisse le soin de vérifier les correspondances chiffres/lettres :

dans cette macro, 2 =B, 3 = C

Sub Bouton50_QuandClic()
Dim i As Byte
Dim j As Byte

For i = 5 To 96
    For j = 48 To Cells(65536, i).End(xlUp).Row
        Select Case Cells(j, i)
            Case 2: Cells(j, i) = 'B'
            Case 3: Cells(j, i) = 'C'
            'etc....
        End Select
    Next j
Next i
       
           
End Sub

salut

 

[WILFRIED]

Re-

Une petite idée à creusé pour la selection auto :

Dim der_col As Long
Dim der_lng As Long
Dim deb_col As Long
Dim deb_lng As Long
dim m_cell as range


Range('E48').CurrentRegion.Select
der_col = Selection.Columns.Count
der_lng = Selection.Rows.Count
deb_col = Selection.Column
deb_lng = Selection.Row
Range('E48', Cells(deb_lng + der_lng - 1, deb_col + der_col - 1)).Select

for each m_cell in selection
select case m_cell.value
case 1
m_cell.value='A'
case 2
m_cell.value='B'
case 3
m_cell.value='C'
'....
end select
next

A+

 

[sam_p]

Merci Hervé mais avec ton code j'au une erreur ' dépassement' ! c'est sans doute dû au chiffre 65536 !
une idée ?

 

[Hervé]

re sam, wilfried, le forum

Non le chiffre 65536 n'y est pour rien, c'est surement du au fait que contrairement à ta pièce jointe tu as plus de 255 lignes à traiter.

Remplace les byte par des long, comme ca on sera plus ennuyé

dim j as long
dim i as long

salut

 

[sam_p]

C magique Hervé :woohoo: Merci beaucoup ça marche