Extraire a des variable d'une cellules

Version imprimable

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

voici mon code
Code:

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 ?

27/01/2015, 10h35
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

si je comprends :

Code:

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
 
.....

27/01/2015, 11h04
laurent27530

Bonjour

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

Cela marche parfaitement