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
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
Pièces jointes
Dernière édition: