Discussion :

[dris974]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[pgz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Cordialement,

PGZ

[dris974]

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

[pgz]

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

[Theze]

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é.