Discussion :

[abdel49]

Bonjour tout le monde,

Je vous fait un rapide topo :

J'ai une feuille qui intègre une liste de personnes avec leurs coordonnées et leurs formations et diplômes.
Comme le fichier est assez dense, j'ai crée plusieurs feuilles qui permet d'afficher qu'une partie des informations.

Pour faire le tri, je fais une recherche de la valeur d'une cellule, si elle est égale à "OUI" on copie une portion de la ligne. Et c'est là que ça se gâte !
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
 
Dim i As Integer
 
    For i = 3 To Sheets("Totalité des informations").Cells(Rows.Count, "A").End(xlUp).Row
 
        If Sheets("Totalité des informations").Cells(i, "U") = "OUI" Then
 
          Sheets("Totalité des informations").Range(Cells(i, 22), Cells(i, 26)).Copy _
           Destination:=Sheets("Formateurs").Range(Cells(i, 6))
 
        End If
    Next

j'ai essayé avec plusieurs variantes (Worksheets,...) et tjs même erreur.

Merci de votre aide

[Jean-Philippe André]

SAlut,

la regle simple c'est qu'a partir du moment ou tu fais reference a une feuille dans une procedure, toutes les Range/Cells doivent etre precedees d'une feuille

Code :

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

1
2
 Sheets("Totalité des informations").Range(Cells(i, 22), Cells(i, 26)).Copy _
           Destination:=Sheets("Formateurs").Range(Cells(i, 6))

devient donc

Code :

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

1
2
Sheets("Totalité des informations").Range(Sheets("Totalité des informations").Cells(i, 22), Sheets("Totalité des informations").Cells(i, 26)).Copy _
           Destination:=Sheets("Formateurs").Range(Sheets("Formateurs").Cells(i, 6))

[unparia]

Bonjour
Type i as long et non as integer

[abdel49]

Merci de votre réponse rapide.

En essayant vos 2 solutions, j'ai tjs la même erreur

Pourtant j'utilise la même methode pour copier un groupe de cellule et là aucun bug :

Code :

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

1
2
3
 
Sheets("Totalité des informations").Range("A2:E100").Copy _
    Destination:=Sheets("Administratif").Range("A2")

Il existe pas une méthode pour utiliser Range avec un numéro de colonne fixe par exemple A et une variable i (qui s’incrémente) qui détermine le numéro de ligne ?

[Docmarti]

Bonjour.

Ton erreur est ici :

Code :

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

Destination:=Sheets("Formateurs").Range(Sheets("Formateurs").Cells(i, 6))

Remplace-le par

Code :

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

Destination:=Sheets("Formateurs").Cells(i, 6))