En VBA, selectionner la ligne apres la cellule active

[fbryce]

Bonjour,

J'aurai besoin d'aide svp.
Comment puis je copier les cellules qui se situe apres la cellule active, en forme VBA.
Ex : Si ma cellule active est B5, je veux selectionner et copier les cellules de B5 jusqu'au bout de la ligne.
Les cellules avant B5 ne m'interesse pas donc je ne veux pas la ligne entiere.

Merci d'avance

 

[zebanx]

Bonjour fbryce

Il doit y avoir plus court mais ça sélectionne il me semble ton souhait

Sub selrange_jusquaFinLigne()

Set ac = ActiveCell
'--- sélection de toute la ligne depuis activecell
Range(Cells(ac.Row, ac.Column), Cells(ac.Row, Cells(ac.Row, Columns.Count).End(2).Column)).Select

End Sub
Sub selrange_jusquaFincolactive()

Set ac = ActiveCell
'--- sélection jusqu'à la dernière colonne active
Range(Cells(ac.Row, ac.Column), Cells(ac.Row, Cells(ac.Row, ac.Column).End(2).Column)).Select

End Sub

 

[CHALET53]

Bonjour

.... Puisque je l'ai fait (se rapproche de la solution de Zebanx)
J'ai rajouté la copie en A10
a+

 

[zebanx]

Bonjour Chalet53

Merci pour ta solution (repris ta formule de split pour faire un UDF sur le numéro de colonnes).

En partant de ton fichier, trouvé encore plus simple (pour copier sur la cellule active jusqu'à la dernière colonne de la ligne de la cellule active)

-----
Sub essai2()
Range(ActiveCell, ActiveCell.End(2)).Copy [A10]
End Sub

--- et pour toute la ligne, là moins simplifié
Sub essai3()
Range(ActiveCell, Cells(ActiveCell.Row, Cells(ActiveCell.Row, Columns.Count).End(2).Column)).Copy [A10]
End Sub

 

[fbryce]

Bonjour et merci pour le code. Je vais tester cela