Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel valeurs de range

valeurs de range

1 réponse
Avatar
Yves
bonjour,

Je voudrais faire un copier-coller de range :
J'avais fait la fonction suivante :

Sheets("comparaison").Select
Range(Cells(lign1, 1), Cells(lign2, 1)).Select
Selection.Copy
Sheets("feuil1").Select
Cells(168, 1).Select
Selection.PasteSpecial Paste:=3DxlValues, Operation:=3DxlNone,=20
SkipBlanks:=3D _
False, Transpose:=3DFalse

'avec lign1 et lign2 qui sont des valeurs

Mais ma feuille comparaison est masqu=E9e donc ca ne marche=20
plus.

J'ai alors essay=E9 de faire :

Sheets("feuil1").Range(Cells(168, 1), Range(168 + lign2 -=20
lign1 , 1)).Value =3D Sheets("comparaison").Range(Cells
(lign1, 1), Cells(lign2, 1)).Value
=20
mais ca ne marche pas.

Je me doute que ca ne doit pas etre compliqu=E9 mais je=20
d=E9bute en VB.

Pourriez vous m'aider SVP

Yves
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ellimac
Bonjour,

Sub Toto()
lign1 = 1
lign2 = 2
Sheets("comparaison").Range(Cells(lign1, 1).Address,
Cells(lign2, 1).Address).Copy Sheets("feuil1").Range
("a168")
End Sub

Camille

-----Message d'origine-----
bonjour,

Je voudrais faire un copier-coller de range :
J'avais fait la fonction suivante :

Sheets("comparaison").Select
Range(Cells(lign1, 1), Cells(lign2, 1)).Select
Selection.Copy
Sheets("feuil1").Select
Cells(168, 1).Select
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone,

SkipBlanks:= _
False, Transpose:úlse

'avec lign1 et lign2 qui sont des valeurs

Mais ma feuille comparaison est masquée donc ca ne marche
plus.

J'ai alors essayé de faire :

Sheets("feuil1").Range(Cells(168, 1), Range(168 + lign2 -
lign1 , 1)).Value = Sheets("comparaison").Range(Cells
(lign1, 1), Cells(lign2, 1)).Value

mais ca ne marche pas.

Je me doute que ca ne doit pas etre compliqué mais je
débute en VB.

Pourriez vous m'aider SVP

Yves
.