Enlever caractere de gauche

[teodormircea]

Bonjour le forum,

J'ai transpose cette formule:LEFT(RC[-1],(LEN(RC[-1])-2))
en vba, ça marche très bien, mais ça bogue si j'ai des cellules pas remplie
Voila le Code:

Private Sub CommandButton5_Click()

    Dim a As String
    Dim ci As Integer
    Dim lr&, col1&, col2&, i&, j&
   
    ci = TextBox8
    col1 = TextBox6: col2 = TextBox7
    lr = ActiveSheet.Cells(Rows.Count, col1).End(xlUp).Row
    For i = 2 To lr
    
  
  ActiveSheet.Cells(i, col2).Value = Left(ActiveSheet.Cells(i, col1), Len(ActiveSheet.Cells(i, col1)) - ci)

    
   
   Next i
  
   
End Sub

 

[Excel-lent]

Re : Enlever caractere de gauche

Bonjour Teodormircea, le fil,

Alors il te suffit de rajouter une condition testant ta cellule!

Voici ta macro modifié :

Private Sub CommandButton5_Click()

    Dim a As String
    Dim ci As Integer
    Dim lr&, col1&, col2&, i&, j&
   
    ci = TextBox8
    col1 = TextBox6: col2 = TextBox7
    lr = ActiveSheet.Cells(Rows.Count, col1).End(xlUp).Row

    For i = 2 To lr
[COLOR="Blue"]         If ActiveSheet.Cells(i, col1).Value <> "" Then[/COLOR]
             ActiveSheet.Cells(i, col2).Value = Left(ActiveSheet.Cells(i, col1), Len(ActiveSheet.Cells(i, col1)) - ci)
[COLOR="Blue"]         End If  [/COLOR]
   Next i
   
End Sub

Partie rajouté

N'ayant pas ton fichier, je n'ai pu tester la macro en situation réel, mais normalement cela devrait être bon.

Bonne journée

 

[teodormircea]

Re : Enlever caractere de gauche

Merci chef ça marche impeccable j'ai pas pensée a ça, je croyais que c'est plus complique