Macro Excel - Faire appel à une colonne spécifique

Question

1) J'ai un fichier avec 4 colonnes ex : nom prénom adresse téléphone Je souhaite intervertir les colonnes "prénom" et "nom" A la base j'utilise le code suivant (qui fonctionne très bien ) Columns("A:A").Select Selection.Insert Shift:=xlToRight Il peut arriver que sur certains tableau, les colonnes sont dans le bon ordre et comme j'ai environ une dizaine de base à gérer de ce style, je voudrais trouver un code prenant non pas en compte colonne A colonne B etc etc mais un nom spécifique (ici "nom", "prénom"....) contenu sur la ligne A). un truc de ce style : Selectionne la colonne intitulé "nom" L'insérer en colonne A 2) sur mes mêmes colonnes, je dois changer les titres afin de les communiquer à des clients (anglais) ex : la colonne qui a comme titre "Nom" (peu importe ou elle se trouve sur la ligne A...) doit se renommer "Nom client" Voila, je vous remercie par avance...

Banzai64 · Accepted Answer

A voir Attention le nom des colonnes est important...

Banzai64 · Answer

Faute de support je l'ai interprété à ma manière Option Explicit Sub Deplace() Dim Cel As Range Set Cel = Rows(1).Find(what:="Nom", LookIn:=xlValues, lookat:=xlWhole) If Not Cel Is Nothing Then If Cel.Column &gt; 1 Then Columns(Cel.Column).Cut Columns(1).Insert End If Range("A1") = "Nouveau Nom" Else MsgBox "Colonne Nom : Non trouvée" End If End Sub...

Banzai64 · Answer

J'ai bien envisagé une nouvelle macro pour faire ce que tu veux Mais je l'ai testé sur rien Donc je te la livre telle quelle (sans garantie aucune) Le mieux serait que tu joignes ton fichier principal et 1 ou 2 fichiers à traiter (tous anonymisés bien sur) Option Explicit Private Sub MEF_Click() Dim Ws As Worksheet Dim Cel As Range Dim AncienNomColonne Dim NouveauNomColonne Dim I As Integer Dim K As Integer AncienNomColonne = Array("Fréquence de paiement", "UW", "IPT", "Totbill Inc Disc", _ "Cancel date", "date fin finale", "Date début finale", "Cover type reel", "Start Date") NouveauNomColonne = Array("Fréquence de paiement", "UW", "IPT", "Totbill Inc Disc", _ "Cancel date", "date fin finale", "Date début finale", "Cover type reel", "Start Date") ' répertoire où se trouve le fichier (en B3 sur notre fichier) ' Cells(3, 2).value : contient strRepertoire ' Cells(I, 3).Value : contient strFichier For I = 6 To Cells(4, 3).Value + 5 Workbooks.Open Filename:=Cells(3, 2) &amp; "\" &amp; Cells(I, 3).Value For Each Ws In Worksheets If Left(Ws.Name, 1) &lt;&gt; "R" Then ' On inverse la condition : On traite si le nom ne commence pas par R With Ws ' On travaille avec la feuille On Error Resume Next ' Si pas de filtre il n'y aura pas de plantage ' Supprimer tous les filtres .ShowAllData On Error GoTo 0 .Cells.Copy .Cells.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False ' Suppression des colonnes A et B .Columns("A:B").Delete ' En prenant la liste des colonnes à l'envers on cherche la colonne et on l'insère toujours en colonne B For K = 1 To UBound(AncienNomColonne) Set Cel = .Rows(1).Find(what:=AncienNomColonne(K), LookIn:=xlValues, lookat:=xlWhole) If Not Cel Is Nothing Then .Columns(Cel.Column).Cut End If ' Si la colonne est pas trouvée elle sera copiée sinon une colonne sera insérée .Columns(2).Insert .Range("B1") = NouveauNomColonne(K) ' Si l'on veut changer Next K ' On efface le reste de la page .Columns("K:BB").Delete '' *********** Quelle utilité de ce code ? ************* ' ' la valeur 4 ici c'est à dire la colonne ' ' n = ActiveSheet.Range("A1").End(xlDown).Row ' If n = 65536 Then ' GoTo suivant ' ' il existe pas la valeur neg ' End If '' ******************************************************** End With End If suivant: Next Ws With ActiveWorkbook .Save .Close End With Next I MsgBox ("Travail effectué") End Sub...