aide avec les nom definie sous vba

Bonjour a tous

je demande de l'aide car je n'arrive pas a me débrouiller tous seul malgré mes differente recherche

je vous explique mon petit soucis qui doit être tout bête mais je trouve pas.

voila j'ai une macro qui fonctionne il s'agit d'une boucle qui colle la valeur de la colonne 5 dans la colonne 6

Code:

---

1 2 3 4 5 6 7 8

Sub test()   Dim x As Integer For x = 6 To 10 Cells(x, 6).Value = Cells(x, 5).Value Next   End Sub

---

maintenant j'aimerais pouvoir faire en sorte que cette macro fonctionne toujours si j'insert une colonne entre les deux ,qui colle la valeur de la colonne 5 dans la colonne 7 donc je me suis dit que j'avais juste a définir des noms pour mes colonnes et mettre ces nom a la place des numéro de lignes mais vba me dit des mot méchant

merci d'avance de votre aide

Bonjour,

Nomme tes plages de données (Insertion>Nom>Définir... jusqu'à 2003 si je me souvient bien ? Ou Formules>Définir un nom) et teste le code ci-dessous :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test()   Dim Cel As Range   'parcour la plage nommée (ici "NomDeColonne_5") 'et inscrit les valeurs dans la même ligne de la 'plage nommée "NomDeColonne_6" For Each Cel In Range("NomDeColonne_5") Range("NomDeColonne_6")(Cel.Row) = Cel.Value Next Cel   End Sub

---

Hervé.

Bonjour.

Si les colonnes comportent un grand nombre de lignes, traiter par une boucle prend beaucoup de temps.

Il me semble plus rapide de faire

Code:

---

Thisworkbook.Names("nmColB").referstorange.Value = Thiswokbook.Names("nmColA").RefersToRange.Value

---

nmColA et nmColB peuvent désigner tout ou parties de colonnes.

Cordialement,

PGZ

Bonjour et merci pour ta réponse

c'est quasiment ça mais le souci avec le cel.row mais je vais chercher de moi même et je reviendrais si j'ai besoin d'aide car pour le moment ma colonne commence a la ligne 6 ce qui est normal mais le résultat est a la ligne 11

je suis sur la voie et un peu de recherche me fera du bien merci beaucoup

Re,

Si tu nommes la plage E6:E100 : nmColA; et la plage F11:F105 : nmColB, la ligne de code que je t'ai proposée devrait fonctionner.

Cordialement,

PGZ

Re,

Le décalage de ligne est dû au décalage de plage, rajoute ou retranche le décalage à "Cel.Row".
Le code de pgz me semble être la meilleure solution mais dans les deux cas, les plages doivent avoir le même nombre de lignes.

Hervé.