fonction gauche en vba

bonjour expert,
je suis débutant en vba et je cherche à faire une fonction gauche mais ça march pas, ci dessous mon code:

Code:

---

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

Sub NETO() Dim original As Range Dim k As Integer Set original = Sheets("BLDEP").Range("B10") Sheets("TRANSIT").Activate k = Sheets("TRANSIT").End(xlToRight).Column + 1 With Application.WorksheetFunction Cells(3, k).Value = Left(original, 8)   End With   End Sub

---

merci pour votre aide.

Bonjour,

Quand tu utilises With, il t efaut mettre un point pour devant l'instruction suivante (pas facile a expliquer)

Code:

---

1 2 3 4

With Application.WorksheetFunction Cells(3, k).Value = .Left(original, 8) End With

---

Par contre, l'instruction left existe en VBA mais attend en premier paramètre une chaine de caractère et non un objet Range
En simplifiant cela devrait donner le code ci-dessous

Code:

---

1 2 3 4 5 6 7

Sub NETO() Dim k As Integer   k = Sheets("TRANSIT").End(xlToRight).Column + 1   Sheets("TRANSIT").Cells(3, k).Value = Left(Sheets("BLDEP").Range("B10").Value, 8) End Sub

---

j'ai essayé avec le nouveau code mais ça marche pas :(
un message d'erreur s'affiche"propriété ou méthode non gérée par cet objet"

Oui, en effet, la formule left n'existe pas derrière l'instruction WorksheetFunction. (Cela était un exemple de fonctionnement et je n'ai pas vérifié a tord)

Utilise le code en dessous (attention code non testé), et reviens vers nous, si tu as une difficulté, Avec la ligne qui te pose problème.

Attention à cette coquille

Code:

---

k = Sheets("TRANSIT").End(xlToRight).Column + 1

---

je n'arrive pas à savoir d'où vient le problème.
merci de votre aide.

Bonjour à tous

Si je peux émettre une idée, juste un exemple :

Code:

---

1 2 3 4 5 6

Option Explicit Dim a As Integer   Sub gauche() a = Range("G7").Offset(0, -4) ' a = range("G3") End Sub

---

Si j'ai bien compris ton pb.

Eric

PS : K = ?????? car je plante sur K=

Bonjour,

Si j'ai bien compris :

Code:

---

1 2 3 4 5 6 7 8 9

Sub NETO() Dim original As Range Dim k As Integer Set original = Sheets("BLDEP").Range("B10") With Sheets("TRANSIT") k = .Range("A3").End(xlToRight).Column + 1 .Cells(3, k).Value = Left(original, 8) End With End Sub

---

Cordialement.

j'ai pris en compte vos explications et je vous remercie tous pour votre aide.
j'ai essayé avec le nouveau code mais un message s'affiche "erreur définie par l'application ou par l'objet",ci dessous le code :

Code:

---

1 2 3 4 5 6 7 8 9

Sub NETO() Dim original As Range Dim k As Integer Set original = Sheets("BLDEP").Range("B10") With Sheets("TRANSIT") k = .Cells(3, G).End(xlToRight).Column + 1 .Cells(3, k).Value = Left(original, 8) End With End Sub

---

Bonjour,
Ce code ne peut pas fonctionner car la fonction Left attend une chaîne de caractères en paramètre.
Une solution pourrait être

Code:

---

1 2 3 4 5

Sub NETO() With Sheets("TRANSIT") .Cells(3, .Range("A3").End(xlToRight).Column + 1).Value = Left(Sheets("BLDEP").Range("B10").Value, 8) End With End Sub

---

S'il s'agit de la colonne G, tu dois écrire

Code:

---

k = .Cells(3, “G”).End(xlToRight).Column + 1

---

Cordialement.

bonjour,
c'est résolu avec ce code:

Code:

---

1 2 3 4 5

Sub NETO() With Sheets("TRANSIT") .Cells(3, .Range("A3").End(xlToRight).Column + 1).Value = Left(Sheets("BLDEP").Range("B10").Value, 8) End With End Sub

---

merci bcp pour votre aide