Probleme avec Selection.End(xlToRight)).Select

[bloomby]

Bonjour à tous,

Alors voila, la fonction Selection.End(xlToRight)).Select
et Range(ActiveCell, Selection.End(xlDown)).Select

ne fonctionne pas, bref il ne s'arrete pas lorsque la case est vide
J'ai recrée la macro dans un autre module et cela fonctionne très bien,

mais lorsqu'il est inclus dans mon projet cela fait défaux

Quelqu'un aurait une idée de la cause

Sheets("Input").Select
Range("D6").Activate
Range(ActiveCell, Selection.End(xlToRight)).Select
Selection.Copy

Sheets("CV").Select
Range("A7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

Range("G6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Et

Sheets("CV").Select
Range("A7").Activate
Range(ActiveCell, Selection.End(xlDown)).Select
Selection.Copy

Sheets("Results").Select
Range("C25").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

merci

 

[CB60]

Re : Probleme avec Selection.End(xlToRight)).Select

Bonsoir
tu peux tester cela:

Sheets("Input").Select
Range(Range("D6"), Range("D6").End(xlToRight)).Select
Selection.Copy

et aussi la même construction pour ton autre module

 

[bloomby]

Re : Probleme avec Selection.End(xlToRight)).Select

Bonjour fil et Bruno,

Une solution que j'ai fait qui marche est d'aller chercher ma macro dans un autre module
et cela fonction ?!?! bizare,
Module1.Macro1

Mais je vais essayer ton code à l'instant
merci

 

[vbacrumble]

Re : Probleme avec Selection.End(xlToRight)).Select

Bonsoir tous

En réunissant les deux codes

Sub macro1et2()
Application.ScreenUpdating = False
'macro1
With Sheets("Input")
    .Activate
    .Range(Range("D6"), Range("D6").End(xlToRight)).Copy
        With Sheets("CV")
            .Range("A7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=True
            .Range("G6").PasteSpecial xlPasteValues
            .Activate
            .Range("A7").Select
        End With
        Application.CutCopyMode = False
End With
'macro2
Set Source = _
        Sheets("CV").Range("A7:A" & _
        Sheets("CV").Range("A65536").End(xlUp).Row)
Set Dest = _
        Sheets("Results").Range("C25")

Source.Copy Dest

Application.ScreenUpdating = True
End Sub

A+