Utiliser des variables dans des noms de cellule nommées

Bonjour,

je dois affecter différentes données reprises dans des cellules nommées "cel_BDM1" " cel_BDM2" .... à une ligne de base de données en colonne 1 puis 2 puis 6 ...25

Pour les deux premières j'utilise la formule suivante:
ActiveCell.Offset(0, 2).Value = Range("cel_BDM1").Value 'Nom
ActiveCell.Offset(0, 3).Value = Range("cel_BDM2").Value 'Prénom

pour les suivantes je voudrais utiliser la formule suivante

for icpt = 6 to 25
Activecell.offset(0,icpt).value=Range("cel_BDM" & icpt).value ' J'ai essayé de multiples façons mais tjs "Zéro pointé "

Mais il ne reconnait pas la référence "cel_BDM" & icpt 'il me manque un * quelque part mais où

Pourriez-vous m'indiquer comment lui faire reconnaitre cette référence de nom de cellule ?

Probablement encore un détail qui m'échappe

En vous remerciant, déjà anticipativement, pour votre aimable collaboration

GD

Hello,

J'ai des doutes mais à essayer :

Activecell.offset(0,icpt).value=Range("cel_BDM" & CStr(icpt)).value

R@g

Salut,

Merci pour la réactivité.

Non j'ai une erreur 1004

la méthode Rage de l'objet_Global a échoué

j'ai un moyen, c'est d'affecter sans boucle, mais c'est moins joli et plus fastidieux.

GD

Re,

Désolé mais votre solution marche très bien

Mon erreur venait d'un mauvais nom affecté à la cellule 6 -----> cel°BDM6 au lieu de cel_BDM6

un peu de dysgraphie, question d'âge ?

cette erreur m'avais échappé

Encore merci pour votre aide et désolé de cette erreur un peu stupide

GD

Essaye comme ça :

Dim Tab_Nom
Dim Valeur As Variant
Dim i As Integer

Tab_Nom = Array("cel_BDM1", "cel_BDM2", "cel_BDM3")
i = 2
For Each Valeur In Tab_Nom
    ActiveCell.Offset(0, i).Value = Range(CStr(Valeur)).Value
    i = i + 1
Next Valeur

Re,

Je retiens la première solution qui fonctionne bien et qui permet de sauter certaines colonnes (les colonnes où il y a une formule) par des boucles successives

Merci pour ton aide

GD

Sub Mac_BDM_Affecte()
Dim iCpt As Integer
Dim scpt As String
Dim icel As String
Dim rCel As Range

    Sheets("T_BDMembre").Select   
    Range("TAB_Membres[[#Headers],[Num]]").Select
    Selection.End(xlDown).Select
'1ère cellule de la nouvelle ligne
    ActiveCell.Offset(0, 0).Range("TAB_Membres[[#Headers],[Num]]").Select
'colonne 1 NUM
'colonne 2 Raccourcis NOM_PRE
'Nom (en colonne 3)
    ActiveCell.Offset(0, 2).Value = Range("cel_BDM1").Value
'PréNom (en colonne 4)
    ActiveCell.Offset(0, 3).Value = Range("cel_BDM2").Value
'colonne 5  concaténisation des noms & prénoms
'colonne 6 à 20
    For iCpt = 6 To 20
        ActiveCell.Offset(0, iCpt - 1).Value = Range("cel_BDM" & CStr(iCpt)).Value
    Next iCpt
'colonne 21 formule de calcul d'age
'colonne 22 à 28
    For iCpt = 22 To 28
        ActiveCell.Offset(0, iCpt - 1).Value = Range("cel_BDM" & CStr(iCpt)).Value
    Next iCpt
End Sub