Discussion :

[sergio_gr66]

Bonjour à toutes et à tous et merci beaucoup pour votre aide,

J’ai quelques problèmes dans une macro d’Excel, je dois copier les données d’une colonne qui s’appelle «Volume» dans le fichier «Dessins1», le titre «Volume» peut être entre la colonne «A» et la colonne «BA».
Je dois copier les données de différents fichiers, mais dans chaque fichier la colonne change d’emplacement.
Comment puis-je faire ça avec une Macro?

merci

[aalex_38]

Je dois copier les données de différents fichiers, mais dans chaque fichier la colonne change d’emplacement.

Bonjour,

Il n'y a (presque) rien de magique en informatique, tu dois connaitre les critères pour commencer à développer, s'il n'existe aucune règle de selection alors un programme ne pourra pas choisir à ta place, si des règles existent et même si ce n'est pas simple, dis le nous, je suis sur que tu auras beaucoup de réponses pertinentes à tes questions.

Edit : Autant pour moi, apparemment il y a une règle, mais je n'avais pas compris

[Bigalo]

Si j’ai bien compris, la règle existe : il faut recopier le contenu de la colonne Intitulée "Volume", la seule difficulté étant que son emplacement peut varier entre le colonnes A et BA.

En prenant pour hypothèse qu’il n’y a pas de donnée à exclure plus bas dans le tableau, voici une macro qui sélectionne la colonne Volume, jusqu’à la dernière ligne utilisée :

Code :

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

1
2
3
4
5
Sub Macro1()
Dim Ref As Range
    Set Ref = Range("A1:BA1").Find(What:="Volume", LookIn:=xlValues, LookAt:=xlWhole)
    Intersect(Range("A1").CurrentRegion, Ref.EntireColumn).Select
End Sub

Voici une variante qui exclut la cellule de titre en ligne 1 :

Code :

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

1
2
3
4
5
6
Sub Macro2()
Dim Ref As Range
    Set Ref = Range("A1:BA1").Find(What:="Volume", LookIn:=xlValues, LookAt:=xlWhole)
    Set Ref = Intersect(Range("A1").CurrentRegion, Ref.EntireColumn)
    Intersect(Ref, Ref.Offset(1)).Select
End Sub

Indique si c’est assez clair. Bien évidemment si dans une feuille, le mot Volume n’existe pas dans la plage de recherche, il faut prévoir une gestion d’erreur.