fonction gauche en vba [Résolu]

[lokura]

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.

[jfontaine]

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

[lokura]

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"

[jfontaine]

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.

[mercatog]

Attention à cette coquille

Code :

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

[lokura]

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

[edelweisseric]

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=

[gFZT82]

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.

[lokura]

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

[tedo01]

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

[gFZT82]

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

Code :

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

Cordialement.

[lokura]

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