Du n° de colonne vers la lettre de la colonne

[JCA06]

Bonjour le Forum,

J'ai encore besoin de votre aide.
Je récupére des données présentées dans des formats différents et je crée donc des codes pour aller récupérer les informations dont j'ai besoin là où elles se trouvent.
Je copie ensuite ces données dans une colonne de destination que je recherche à l'aide d'un USF.
Cette recherche me permet de récupérer le n° de colonne, exemple 45, que j'utilise ensuite avec des objets Cells().

Pour un second format, j'aimerai retrouver la lettre de la colonne de destination, soit AS pour la colonne 45, mais je ne sais pas comment convertir mon 45.
Je vous précise pourquoi je cherche cela, car il y a peut-être aussi une autre façon de procéder en gardant les Cells.
Dans mon second format, je pioche les informations dans un range non contigü, comme par exemple pour 10 valeurs à récupérer :
source.Activate
Range('D23😀24,D28😀30,D36😀38,D52,D54,D56,D58').Copy
Et j'aimerai utiliser la même syntaxe pour la destination :
trame.Activate
Range('D8😀15,D21😀25').PasteSpecial Paste:=xlPasteValues

Sachant que le 'D' est variable et que je n'arrive pas à faire cela avec des Cells...

Merci !

 

[Mytå]

Salut JCA06

Regarde si ce bout de code vite fait pourrait faire

Sub Cellule_Lettre()
Dim Lettre As String
Dim Colonne As Byte
With ActiveCell
Colonne = ActiveCell.Column
If Colonne < 27 Then
Lettre = Chr$(Colonne + 64)
Else
Lettre = Chr$(Int(Colonne / 26) + 64) & Chr$(Colonne - Int(Colonne / 26) * 26 + 64)
End If
End With
End Sub

Mytå