Discussion :

[timtiboum]

Bonjour,
Comment écrire qu'à partir de la cellule active je sélectionne x cellules sur la même ligne pour les copier coller.?
Je sais, je suis nul en vba.
Merci quand même.

[jfontaine]

Bonjour

Ici la variable i étant la colonne de fin de selection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim b As Integer
 
b = 10
 
Range(ActiveCell.Address & ":" & Cells(ActiveCell.Row, b).Address).Select

[timtiboum]

merci de ton aide Jérôme,
ma sélection va de F à AX
si ma cellule active est sur f la formule est donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim b As Integer
 
    b = 10
    Range(ActiveCell.Address & "ax" & Cells(ActiveCell.Row, b).Address).Select

[timtiboum]

mais hélas ça bug. sur la 1ère ligne surlignée en jaune.

[jfontaine]

dans ton cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("F" & ActiveCell.Row & ":AX" & ActiveCell.Row).Select

En utilisant activcell.row pour utiliser la ligne active

[pgz]

Bonsoir,

Si toutes les cellules sont à droite de celles sélectionnées, tu peux trouver la plage avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Resize(0,x)

Si les cellules sont toujours de F à AX et que celle sélectionnée est n'importe où, mais juste sur la bonne ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Parent.Range("F" & activecell.row & ":AX" & Activecell.row)

Cordialement,

PGZ

[timtiboum]

merci à tous les deux vous êtes super.
les deux solutions fonctionnent.
tim