[VB-Excel]-pb de copy

Version imprimable

Bonjour !
Je cherche a copier des données de la colonne C vers la colonne E si en A le contenu commence par 3160 et si en D la valeur est >0...voici ceci en code...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Range("A1").Select For Index = 1 To 19 If ((Cells(Index, 4) > 0) And (Left(Cells(Index, 1), 4 = "3160"))) Then Range(Cells(Index, 3)).Select Selection.Copy Range(Cells(Index, 5)).Select ActiveSheet.Paste End If Next Index End Sub
ca bloque a If cells...
Si quelqu'un a moins de caca dans les yeux que moi j suis preneur:oops:
Merci de votre aide

31/01/2007, 13h22
AlainTech

Citation:

Envoyé par captaine93

ca bloque

Je ne connais pas ce message d'erreur et ne pourrai donc pas t'aider.
31/01/2007, 13h53
captaine93

erreur d exécution 13
incompatibilité de type
31/01/2007, 14h01
ouskel'n'or

Au lieu d'utiliser

Citation:

If ((Cells(Index, 4) > 0) And (Left(Cells(Index, 1), 4 = "3160"))) Then

Tu peux utiliser

Code:

if instr(Cells(Index, 4),"3160") = 1 then

Pas besoin de tester > 0
A+

Edit
Ton code pose problème si la longueur du contenu de ta cellule est inférieur à 4 ;)

Re Edit
pose aussi problème car ta cellule contient une valeur testée dans la première condition, et un texte dans la seconde (enfin, je suppose...)