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