Discussion :

[Bpillon]

Bonjour à tous,

J'ai un soucis de copier/coller avec une donnée de colonne variable.
Voiçi le code :

Code :

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

1
2
3
4
5
6
7
8
Rows("20").Select
    Selection.Find(what:="").Activate
    colonne = ActiveCell.Column
    ligne = ActiveCell.Row
Range("c24").Select
Selection.Copy
Range(Cells(24, 4), Cells(24, colonne)).Select
Selection.Paste

La fonction coller ne veut pas fonctionner avec la définition type "range(cells...."

Pourquoi ??? Snif.....
Merci pour vos lumières.

[ouskel'n'or]

Bonjour,
Il serait bien que tu nous précises ce que tu veux faire car ton code, s'il fonctionnait, ne copierait que des cellules vides

[Pierre Fauconnier]

Bonjour, bienvenue sur nos forums


Chez moi, ton code fonctionne (presque) correctement. S'il plante, ce n'est pas sur la ligne que tu mentionnes, mais sur la ligne suivante, que tu devrais remplacer par

Code :

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

activesheet.paste

.

Cela étant, les codes avec SELECT ne sont pas du tout optimisés.

Tu pourrais utiliser une seule ligne

Code :

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

Range("c24").Copy Range(Cells(24, 4), Cells(24, Rows(20).Find(what:="").Column))

[Le Pierre]

bonjour

en écrivant :

Code :

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

1
2
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

on arrive au résultat souhaité.
à plus