copie de cellules vers une autre feuille

[recovery]

bonjour,

une fois de plus j'ai besoin de l'aide des plus aguerris voilà mon problème. (fichier joint)
je veux tester une cellule("feuille GAMBETTA") ainsi que d'autres situées sur la même ligne mais dans des colonnes différentes, si ces dernières sont conformes à la condition posée ( si selection <> "" then), je les copie vers une autre une autre feuille ("feuilleRef") voici mon code inopérant, de plus sans message d'erreur votre aide serait la bienvenu merci.

Dim a As Integer


Sheets("GAMBETTA").Select
Range("A" & Range("A65536").End(xlUp).Row).Select
a = Range("A" & Range("A65536").End(xlUp).Row).Select

Do
Range("ao3").Select
If ActiveCell <> "" Or ActiveCell.Offset(0, -37) <> "" Or ActiveCell.Offset(0, 4) <> "" Or ActiveCell.Offset(0, 8) <> "" Or ActiveCell.Offset(0, 12) <> "" Or ActiveCell.Offset(0, 16) <> "" Or ActiveCell.Offset(0, 20) <> "" Then

Selection.Select
Selection.Copy
Sheets("Ref").Select
Range("A" & Range("A65536").End(xlUp).Row + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(-1, 0).Select
End If
Exit Do
Loop Until ActiveCell.Row = a

End Sub

 

[phlaurent55]

Re : copie de cellules vers une autre feuille

bonjour recovery,

ça commence déjà mal;

Sheets("GAMBETTA").Select
Range("A" & Range("A65536").End(xlUp).Row).Select
a = Range("A" & Range("A65536").End(xlUp).Row).Select

Do
Range("ao3").Select

sans voir le fichier et sans explications plus précises, la réponse risque de se faire attendre

à+
Philippe

Edit: j'avais pas vu la plus belle:

Selection.Select