copier coller valeurs tableau

[steeve]

Bonjour,

J'ai dans une feuille Excel un tableau
Je voudrai récupérer par un 'copier/coller valeurs' les valeurs
de ce tableau dans une feuille à part.
J'ai défini ce tableau en plage nommé (car taille variable)

J'aurai voulu récupérer cela par macro (J'ai réussi à générer le code).
Le souci est que je voudrai l'intégrer dans un bouton qui se trouve
sur la première feuille

Est-ce que quelqu'un pourrait m'indiquer le code pour faire cela ?

Voici où j'en suis:

Dim nblignes As Variant
Dim rng As Range
Set rng = Worksheets('Feuil3').Range('PlageNommee')
rng.End(xlDown).Select
nblignes = rng.Rows.Count
ActiveCell.Value = nblignes - 1

J'arrive à compter le nbre de cellules d'une colonne.
Pour la suite Aie Aie, je suis coincé.
En fait il faudrait faire double boucle pour pouvoir lire, non ?
est-ce que quelqu'un peu me donner la solution

Merci par avance pour votre aide

 

[pat1545.]

Salut


Sub coppp()
Dim nblignes As Integer ' un entier pas variant
Dim rng As Range
Set rng = Worksheets('Feuil3').Range('PlageNommee') ' ta plage nommée
Set desti = Sheets('feuil2').Range('A1') 'destination de la copie
rng.Copy ' copie des valeurs
desti.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False ' escape
End Sub

Bye

 

[Robert]

Bonjour Steeve, bonjour le forum,

Si ton tableau ne contient pas de trous (lignes ou colonnes vides) et qu'il commence toujours au même endroit (A1 par exemple), tu peux simplifier considérablement le code comme ça (sans même utiliser de plage nommée) :

Dim maplage As Range
Set maplage = Worksheets('Feuil3').Range('A1').CurrentRegion

Si ton tableau concerne toutes les cellules éditées de l'onglet tu peux aussi (et quelle que soit sa taille) faire :

Dim maplage As Range
Set maplage = Worksheets('Feuil3').UsedRange

il ne te reste plus qu'à faire le copier/coller... du style :

maplage.Copy
Sheets('Ta_Feuille').Range('A1').PasteSpecial Paste:=xlPasteValues

Édition :

Bonjour Pat on s'est croisé...

Message édité par: Robert, à: 03/04/2006 15:14

 

[steeve]

Ok, ca roule...

merci !!!