Discussion :

[captaine93]

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 :

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

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
Merci de votre aide

[AlainTech]

ca bloque

Je ne connais pas ce message d'erreur et ne pourrai donc pas t'aider.

[captaine93]

erreur d exécution 13
incompatibilité de type

[ouskel'n'or]

Au lieu d'utiliser

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

Tu peux utiliser

Code :

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

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