Fonction Range().select

[Jeanvaljean]

Salut le forum, 🙂

Nouveau point de blocage : je souhaites copier une plage de cellules non contiguës d'une feuille TOTO dans une autre feuille TITI, et seule la plage A5😀5 est copiée!!!

Windows("TOTO.xlsm").Activate
Range("A5😀5,F5,H5,J5,L5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("TITI").Activate
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Quelqu'un aurait-il une idée????

Merci d'avance

Jeanvaljean

 

[Coriolan]

Re : Fonction Range().select

Bonjour,

Oui, j'ai une idée 😀 :

Windows("TOTO.xlsm").Activate
Range("A5").Select
Range(Selection, Selection.End(xlDown)).Select
lastrow=rows(selection)
Range("A5😀" & lastrow & ",F5:F" & lastrow & "H5:H" & lastrow & "J5:J" & lastrow & "L5:L" & lastrow).select
Selection.Copy
Windows("TITI").Activate
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

 

[Jeanvaljean]

Re : Fonction Range().select

Salut CORIOLAN,

le programme s'arrête sur : lastrow = Rows(Selection)....😕

Jeanvaljean

 

[Coriolan]

Re : Fonction Range().select

Re:

Mea culpa, on se retrouve avec une plage sélectionnée, donc difficile d'avoir la référence d'une ligne. 🙁

Voilà le bon code :

Windows("TOTO.xlsm").Activate
Range("A5").Select
Range(Selection.End(xlDown)).Select
lastrow=rows(selection)
Range("A5" & lastrow & ",F5:F" & lastrow & "H5:H" & lastrow & "J5:J" & lastrow & "L5:L" & lastrow).select
Selection.Copy
Windows("TITI").Activate
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose

 

[mécano41]

Re : Fonction Range().select

Bonjour,

Peut-être ainsi :

Option Explicit

Sub essai()
Dim Cellule As Range
Dim LigneCell As Long
Dim ColonneCell As Integer
Worksheets("TOTO").Activate
For Each Cellule In Range("A15:D15, F5, H5, J5, L5")
    LigneCell = Cellule.Row
    ColonneCell = Cellule.Column
    Cellule.Copy
    Worksheets("TITI").Activate
    Cells(LigneCell, ColonneCell).Offset(-4, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next Cellule
End Sub

L'exemple est fait sur une plage + des cellules séparées. Attention à l'offset qui ne doit pas faire remonter la copie avant la ligne 1 (ou avant la colonne A le cas échéant !)

Cordialement

 

[Jeanvaljean]

Re : Fonction Range().select

Bon, ça y est avec votre aide j'ai pu déterminer la solution :🙂

Windows("TOTO.xlsm").Activate
lastrow = Range("A5").CurrentRegion.End(xlDown).Row
Range("A5😀" & lastrow & ", F5:F" & lastrow & ",H5:H" & lastrow & ",J5:J" & lastrow & ",L5:L" & lastrow & "").Select
Selection.Copy
Windows("TITI").Activate
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Bonne soirée à tous,

Jeanvaljean