Discussion :

[Victor1]

Bonjour,

Voila je met au point un petit outil Excel qui utilise la fonction recherchev. Si la fonction recherchev se passe bien, la colone juste à coté indique 0. Si il y n'y a aucune réponse, la colone indique 1.
Ce que j'aimerais c'est que si la valeur de la cellule est 1, alors les données soit copié dans une autre feuille de mon tableau. J'ai fait un petit test sur quelques lignes. Le seul problème est que j'ai est qu'il me dit que la méthode range de la classe select a échoué... Je ne comprends pas vraiment pourquoi. Voila mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
For lig = 11 To 20 Step 1
 
            If Cells(lig, 5).Value = 1 Then
                Cells(lig, 6).Select
                Selection.Copy
                Worksheets("RC Data").Select
                Range("C331").Select
                Selection.Paste
 
            End If
        Next lig

Merci de votre aide

[aalex_38]

Paste n'appartient pas à range

Il faut faire quelque chose comme ça (pas testé) :

Code :

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

1
2
3
4
5
6
For lig = 11 To 20 Step 1
 
            If Cells(lig, 5).Value = 1 Then
                Cells(lig, 6).Copy destination:= Worksheets("RC Data").Range("C31")                               
            End If
Next lig

[laurentabj]

Code :

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

1
2
3
4
5
6
For lig = 11 To 20
    Worksheets("MaFeuilleSource").Activate
            If ActiveSheet.Cells(lig, 5).Value = 1 Then
                ActiveSheet.Cells(lig, 6).Copy Destination:=Worksheets("RC Data").Range("C331")
            End If
Next lig

[Victor1]

bonjour,


Le code de l'laurentabj marche impecable. Merci à vous !