Probleme avec Selection.End(xlToRight)).Select

bloomby · 23 Février 2009

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 · 23 Février 2009

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

Bonsoir
tu peux tester cela:

HTML:

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

et aussi la même construction pour ton autre module

bloomby · 23 Février 2009

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 · 24 Février 2009

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

Bonsoir tous

En réunissant les deux codes

Code:

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+

Probleme avec Selection.End(xlToRight)).Select

bloomby

XLDnaute Occasionnel

CB60

XLDnaute Barbatruc

bloomby

XLDnaute Occasionnel

vbacrumble

XLDnaute Accro

Discussions similaires

Probleme avec Selection.End(xlToRight)).Select

bloomby

XLDnaute Occasionnel

CB60

XLDnaute Barbatruc

bloomby

XLDnaute Occasionnel

vbacrumble

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency