Sélection en VBA d'une ligne active

Rebonjour à tous,

J'aimerais avoir le code VBA pour sélectionner une ligne active qui sélectionne les cellules A,B,et C..

J'ai chercher avec google mais je n'ai pas trouver la formule.

Actuellement j'utilise le code (ActiveCell.EntireRow.Select)la c'est toute la ligne et je voudrais uniquement A,B,C

D'avance merci pour votre aide

Eugène

Eugène a écrit :

Rebonjour à tous,

J'aimerais avoir le code VBA pour sélectionner une ligne active qui sélectionne les cellules A,B,et C..

J'ai chercher avec google mais je n'ai pas trouver la formule.

Actuellement j'utilise le code (ActiveCell.EntireRow.Select)la c'est toute la ligne et je voudrais uniquement A,B,C

D'avance merci pour votre aide

Eugène

Bonjour,

Une proposition :

Lig = ActiveCell.Row
Range("A" & lig & ":C" & lig).Select

Selon l'objectif final de la manip', il y a fort à parier que l'instruction ".Select" soit inutile...

Grand merci à pedro22

Eugène

Eugène a écrit :

Grand merci à pedro22

Eugène

Merci du retour, pense à valider le sujet !

Bonjour,

Bonjour Pedro22,

Il y a aussi cette solution :

Cells(ActiveCell.Row, 1).Resize(, 3).Select

Cdlt.

merci cela marche pour les deux codes

A plus

Eugène

Bonjour,

Pedro22 a écrit :

Selon l'objectif final de la manip', il y a fort à parier que l'instruction ".Select" soit inutile...

Le premier truc qu'on doit d'apprendre quand on veut bricoler un peu le VBA c'est de ne jamais rien sélectionner !

Pourquoi diable vouloir sélectionner cette zone ?

A+

d'accord mais que fait alors pour sélectionner la ligne sans le Select?????

J'aimerais savoir

Eugène

Merci

Tout dépend du contexte, Eugène!

Que veux-tu faire après la sélection ?

A+

Bonjour curulis57

Par exemple je veux après le Select que le code se positionne sur le Range AA1 et me colle se qui si trouve

Cells(ActiveCell.Row, 2).Resize(, 9).Select ici de la cellule B jusqu'à le cellule I et se place à partir de la cellule AA1

'Lign = ActiveCell.Row

'debut = "B" & Lign

'Fin = "I" & Lign

'Range(debut, Fin).Select

Selection.Copy

Sheets("Encodage").Select

Range("AA1").Select

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _

xlNone, SkipBlanks:=False, Transpose:=False

Voila ce que je fait régulièrement, mais maintenant si il y a d'autres façon de procéder, je suis le premier à copier l'exemple.

On n'est jamais trop vieux pour apprendre

Merci de t'intéresser à mon cas.

Eugène

Bonjur,

Rien compris mais essaie :

Sub test()
Cells(ActiveCell.Row, 2).Resize(, 9).Copy
Sheets("Encodage").Range("AA1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End Sub

Après si ça t'es vraiment utile tu peux quand même rajouter un select ce que tu veux... mébon !

A+

Bonjour,

2 exemples à adapter.

Cdlt.

Option Explicit

Public Sub Eugene()
Dim Lign As Long, Plage As Range
    Lign = ActiveCell.Row
    Set Plage = Cells(Lign, 2).Resize(, 8)
    Plage.Copy
    Worksheets("Encodage").Range("AA1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    Application.CutCopyMode = 0
End Sub

Public Sub Eugene2()
Dim Lign As Long, tbl As Variant
    Lign = ActiveCell.Row
    tbl = Cells(Lign, 2).Resize(, 8)
    Worksheets("Encodage").Cells(27).Resize(, 8).Value = tbl
End Sub

Merci à vous tous

Eugène