Discussion :

[laurent27530]

Bonjour je voudrais extraire de la colonne F et alimenter la colonne D et E

voici mon code

Code :

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

1
2
3
4
5
6
7
 
    Sheets("A VENIR").Activate
    dernligne = Cells(Rows.Count, 1).End(xlUp).Row
    For c = 2 To dernligne
    Cells(c, 4) = WorksheetFunction.Left(Cells(c, 6), Find("/", Cells(c, 6)) - 1)
    Cells(c, 5) = WorksheetFunction.Right(Cells(c, 6), CountA(Cells(c, 6)) - Search("/", Cells(c, 6), 1))
    Next

il me dit que la syntaxe de la ligne 5 est erroné sur la commande find

message "erreur de compliation sub ou fonction non définie"

Pouvez vous me dire pourquoi ?

[Marc-L]

Bonjour,

cette méthode doit être codée comme dans l'exemple de son aide VBA interne.
En profiter pour consulter ce que renvoie cette méthode, certainement pas une valeur …




__________________________________________________________________________________________________
Tous unis, tous Charlie

[casefayere]

si je comprends :

Code :

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

1
2
3
4
5
6
7
....
    For c = 2 To dernligne
      Cells(c, 4) = Split(Cells(c, 6), "/")(0)
      Cells(c, 5) = Split(Cells(c, 6), "/")(1)
    Next
 
.....

[laurent27530]

Bonjour

Merci pour ta réponse je ne commençais pas cette commande en vba.

Cela marche parfaitement