VBA Extraire gauche d'une colonne vers autre feuille

[Arpette]

Bonsoir à toutes et à tous,
je souhaite extraire les 5 caractères gauche de ma colonne B de la feuille1 et de les reporter dans la colonne G de la feuille2 . Sachant que le nombre de ligne de ma feuille1 peut varier, je n'arrive pas à trouver la synthaxe.
Merci de votre aide.
@+
]

 

[Softmama]

Re : VBA Extraire gauche d'une colonne vers autre feuille

Bonsoir,

Tu peux essayer ceci :

Sub gogogo()
With Feuil2.Range("G:G") 'On se positionne sur la colonne G de la feuille2
    .FormulaR1C1 = "=Left(Feuil1!RC[-5],5)" 'formule où chaque cellule = 5 1ers caractères de la colonne B de la feuille 1
    .Value = .Value 'on garde que les valeurs
End With
End Sub

 

[Arpette]

Re : VBA Extraire gauche d'une colonne vers autre feuille

Bonsoir Softmama, j'ai essayé d'adapter à mes feuilles maisçà ne marche pas

With Sheets("Calcul").Range("G4:G") 'On se positionne sur la colonne G de la feuille2
   .FormulaR1C1 = "=Left(Sheets("WTP"))!RC[-5],5)" 'formule où chaque cellule = 5 1ers caractères de la colonne B de la feuille 1
   .Value = .Value 'on garde que les valeurs
End With

J'ai essayé avec ce code, je pense être pas loin.

With Sheets("WPT")
Set c = .Range("B2")
With Sheets("Calcul")
Set d = .Range("G4")
    Do While c.Offset(0, 1) <> ""
        c = Split(c(0, 1), "-")(0) 'ici je garde les 5 caractères avant le -
        d = c.Offset(1, 0)
    Set c = c(0, 1)
    Set d = d(1, 0)
    Loop
End With
End With

Merci pour ton aide .
@+

 

[Softmama]

Re : VBA Extraire gauche d'une colonne vers autre feuille

Re,

essaie ainsi en ce cas:

[CODE]With Sheets("Calcul").Range("G4:G65536") 'On se positionne sur la colonne G de la feuille2
   .FormulaR1C1 = "=Left(Sheets("WTP"))!RC[-5],5)" 'formule où chaque cellule = 5 1ers caractères de la colonne B de la feuille 1
   .Value = .Value 'on garde que les valeurs
End With

[/CODE]

 

[Arpette]

Re : VBA Extraire gauche d'une colonne vers autre feuille

Bonjour softmama, j'au du faire comme ceci pour que çà fonctionne, c'est correcte.
Merci de ton aide
@+

With Sheets("Calcul").Range("G4:G65536") 'On se positionne sur la colonne G de la feuille2
   .FormulaR1C1 = "=LEFT(WPT!R[-2]C[-5],5)" 'formule où chaque cellule = 5 1ers caractères de la colonne B de la feuille 1 à partir de la ligne 2
   .Value = .Value 'on garde que les valeurs
End With

 

[Softmama]

Re : VBA Extraire gauche d'une colonne vers autre feuille

re,

ha oui, c'est logique, dsl j'avais pas vu l'erreur initialement sur le SHEETS("WPT") ^^