mieux que current region select

[jean-louis]

Bonjour tout le monde
Pouvez-vous me donner un coup de mai npouce ?
Je dois transposer les valeurs de plusieurs lignes dont chacune est partiellement remplie de formules sans altérer la feuille d'origine. (ex ci-dessous)
Le transfert des valeurs ne doit s'effectuer que sur les lignes contenant des données (elles se suivent) et être insérées dans une autre feuille qui sert de journal et qui permet l'analyse des coûts
Comment optimiser cette opération de transfert vers le journal ? sans recopier les lignes vierges

D'avance merci

origine du tableau "commande au fournisseur"
pour info, mon tableau max. +/_10 produits
en colonne A code produit interne
B libell produit automatique
C projet
D Code four automatique
E quantité
F prix unitaire automatique
G prix total htva automatique

Zone -> Formule formule formule formule
tableau A B C D E F G
1 456 Bagettes p souder En suspend 7890004/67 100 1,45 145.00
2 1256 Plancher Projet A 34567 10 25,40 254.00
3 124 Panneaux 210x85 Projet 203 67890 1 40.35 40.35
4
5
6
7
8
9
10

 

[zon]

Bonjour à tous,



Jean Louis, d'après le titre de ton post tu utilises CurrentRegion, donc dans ton exemple il va te selectionner tes 10 1eres lignes...

Si ta 2 eme colonne est vide à partir de la ligne 4, utilises plutot


Sheets("Le nom de ta feuille").Range("B65536").End(xlup).row pour récupèrer la derniere ligne non vide de ta colonne B....



A++++