Juste une ligne à corriger

[degap05]

Bonsoir,

Je souhaite copier la cellule C1 et la plage B4:L43. Cette sélection copie les autres cellules de la feuille:

Range(("B4:L43"), ("c1")).Copy

Pouvez-vous corriger, SVP.

Merci

 

[Guest]

Re : Juste une ligne à corriger

bonsoir DeGap

Union(Range ("c1"),Range("B4:L43")).Copy

A+

 

[phil59110]

Re : Juste une ligne à corriger

Bonsoir,

Je souhaite copier la cellule C1 et la plage B4:L43. Cette sélection copie les autres cellules de la feuille:

Range(("B4:L43"), ("c1")).Copy

Pouvez-vous corriger, SVP.

Merci

escuse moi mais si tu pouvais étre un peut plus claire on pourais plus vite t'aider il faut un depart et une destination pour que ça fonctione la tel que c'est presenté ça peut pas fonctionner essai de montrer un exemple de ce que tu veut
au plaisir de te lire!

 

[degap05]

Re : Juste une ligne à corriger

Bonsoir, merci Hasco,

Je n'ai pas du fournir suffisamment de données, car cela ne fonctionne pas:

Private Sub CommandButton1_Click()
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
sheets(.List(i)).Activate
Union(Range("c1"), Range("B4:L43")).Copy sheets("Transfert1").Union(Range("c1"), Range("B4:L43"))
End If
Next i
End With
CommandButton2.Enabled = True
End Sub

Message: propriété ou méthode non gérée par objet

A+

 

[Guest]

Re : Juste une ligne à corriger

Re,

Oui, j'ai pas fait attention au fait que tes selections étaient trop différentes pour pouvoir être copiées en même temps.

Pour ce genre de selection tu es obligé de faire le copier coller sur chacune d'elle.

Range("C1").Copy Sheets("Transfert1").Range("C1")
Range("B4:L43").Copy Sheets("Transfert1").Range("B4")

A+

 

[degap05]

Re : Juste une ligne à corriger

OK merci pour ton aide.