Fonction Left sous VBa EXCEL

Bonjour à tous,

J'importe de manière automatique tous les jours des tables textes vers EXCEl, renommer les feuilles et faire les mises en formes.

Jusque ici tout va très bien, par contre pour l'exploitation du fichier EXCEL importé:

Je cherche avec VBA l'insertion d'une nouvelle colonne entre la première et la deuxième colonne de ma table importée.
Pour l'alimenter cette nouvelle colonne, je veux récupérer avec la fonction left les 7 premières caractères de la première colonne de ma table (sur toute la colonne).


Svp: est-ce quelqu'un à une idée pour ce code?


Merci par avance pour vos réponses.


Cordialement

Bonjour,

pour l'insertion d'une colonne : méthode Insert (voir l'aide :f1: à ce sujet)
utilise l'enregistreur de macro pour avoir une base de code

pour la récupération des 7 premiers caractères : tu as le bon outil (left), il suffit de lui passer en argument la cellule et la longueur

Code:

---

MaChaine = Left(Activecell.Value, 7)

---

pour effectuer l'extraction des 7 premiers caractères sur toute la colonne, il sera plus rapide de passer par un tableau virtuel :

1) récupérer la colonne voulue
2) remplacement des valeurs
3) restitution du tableau dans la colonne voulue

exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Gauche() Dim Tablo Dim Plage As Range   ' Colonne A Set Plage = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))   ' mise sous tableau Tablo = Plage   ' récupération des 7 premiers caractères For i = LBound(Tablo, 1) To UBound(Tablo, 1) Tablo(i, 1) = Left(Tablo(i, 1), 7) Next i   ' restitution des données en colonne B Plage.Offset(0, 1).Value = Tablo Set Plage = Nothing End Sub

---

tu n'as plus qu'à ajouter l'insertion de la colonne au début de la macro, et adapter ma proposition

Bonjour,
Autre solution en insérant la formule dans les cellules de la colonne insérée et ensuite remplacer cette fonction par son résultat

Code:

---

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

Sub t() Dim rng As Range, myFormula As String myFormula = "=LEFT(RC[-1],7)" ' Formule Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A1").CurrentRegion With rng .Columns(2).Insert Set rng = .Columns(2).Offset(1).Resize(.Rows.Count - 1).Cells End With With rng .FormulaR1C1 = myFormula .Value = .Value ' Equivalent du Collage spécial/Valeur End With End Sub

---

Bonjour,
Il peut place une formule dans la colonne

Code:

---

1 2	activesheet.columns(10).formular1c1=etc... activesheet.columns(10)=activesheet.columns(10).value 'pour supporter les formules!

---

Bonjour à tous,

Je viens de tester les codes.

joe.levrai, ton code marche bien,génial, j'ai le résultats que je voulais.
merci beaucoup.

Pour Philippe Tulliez, quand je lance ton code, j'ai comme message d’erreur:

"L'indice n'appartient pas à ,la solution"

Code:

---

Set rng = ThisWorkbook.Worksheets("ANOMALIE_TELEREG").Range("A1").CurrentRegion

---

c'est à partir de cette ligne où ça bloque

J'ai remplacé "feuille1" par "ANOMALIE_TELEREG" , nom de ma feuille.

Je trouve ton code simple et très intéressant, c'est quoi je veux avoir la solution.

Merci par avance.

Bonjour,

Citation:

---

"L'indice n'appartient pas à ,la solution"

---

A mon avis c'est la sélection et pas la solution
Ce message signifie que le nom de la feuille n'est pas correct donc soit l'orthographe du nom n'est pas la bonne soit c'est le classeur qui n'est le bon.
L'objet ThisWorkbook représente le classeur où se trouve le code VBA. Si la feuille nommée ANOMALIE_TELEREG se trouve dans un autre classeur il s'agit d'utiliser Workbooks("Nom du classeur") suivi de la feuille et de la cellule de départ de la liste (A1)

Re Bonjour Philippe Tulliez,

Oui vous avez raison c'est le classeur qu'il ne reconnait pas.

Quand je mets seulement:

Code:

---

Set rng = Worksheets("ANOMALIE_TELEREG").Range("A1").CurrentRegion

---

ça marche, mais le nom de la colonne insérée qui est vide
Pour le reste tout est ok, il me récupère bien les 7 caratères sur toute la colonne.

Ps: J’utilise le même classeur à la suite de l'importation

Merci par avance

Bonjour,
Pour éviter les soucis, il est toujours préférable de préciser la filiation complète d'un range.
Si c'est le classeur actif, il serait bon de définir la plage dès l'ouverture de celui-ci
Exemple

Code:

---

1 2	Dim rng As Range Set rng = Workbooks(ActiveWorkbook.Name).Worksheets("feuil1").Range("A1").CurrentRegion

---

Citation:

---

ça marche, mais le nom de la colonne insérée qui est vide

---

Là je n'ai pas compris

Bonjour ,

Oui merci encore, ça fonctionne bien.

Citation:

---

ça marche, mais le nom de la colonne insérée qui est vide

---

Je voulais dire il me manque le libellé de la colonne inséré.

Je veux mettre un nom sur l'entête de la colonne insérer!

par exemple je veux l'appeler " ENTITE"


Cordialement

Bonjour,
Exemple (Voir la ligne en rouge qu'il faut ajouter après l'insertion de la colonne)

Code:

---

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

Sub t() Dim rng As Range, myFormula As String myFormula = "=LEFT(RC[-1],7)" ' Formule Set rng = Workbooks(ActiveWorkbook.Name).Worksheets("feuil1").Range("A1").CurrentRegion With rng .Columns(2).Insert .Columns(2).Cells(1, 1) = "Entité" Set rng = .Columns(2).Offset(1).Resize(.Rows.Count - 1).Cells End With With rng .FormulaR1C1 = myFormula .Value = .Value ' Equivalent du Collage spécial/Valeur End With End Sub

---

Bonjour,
Merci beaucoup, ça marche très bien .

C'est très sympa, votre aide m'est précieux.

Cordialement

Bonjour,
Ravi d'avoir pu t'aider.

Bonjour,

juste en passant, WorkBooks(ActiveWorkbook.Name) est une périphrase d'ActiveWorkbook pourtant suffisant à lui seul ! ;)



_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

Bonjour Marc,

Citation:

---

juste en passant, WorkBooks(ActiveWorkbook.Name) est une périphrase d'ActiveWorkbook pourtant suffisant à lui seul !

---

D'accord avec toi. Il y a des moment où on a envie de se chatouiller pour se faire rire.