Discussion :

[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 :

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

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 :

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

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 :

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

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 :

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

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 :

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

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=