Transfert de nombre

schaps

XLDnaute Occasionnel
Bonjour à vous tous !!

Je fais la compilation de nombre qui sont sur 3 tableaux, j'aimerais avoir une formule qui va me permettre de passer du tableau 2 au tableau 3.
(voir fichier).

Le plus gros du problème va être le transfert des nombres d'une cellule à la suivante, à la suivante etc..

Merci encore
schaps
 

Fichiers joints

schaps

XLDnaute Occasionnel
Re : Transfert de nombre

Bonjour à vous tous et pierrejean,

Pierrejean, quand je fait mon test tout va comme le mieux, j'ai 4 questions pour vous;

-Quand j'éfface mes données ds mon tableau 1 et que je presse le bouton "REPORT" elle garde mes anciennes données et me remplis ma colonne "0". si je presse "F9" rien ne ce passe est-ce normale ??

-Quand vous indiquez "If colonne < 16 then colonne = 16" --> le nombre 16 indique quoi ?

-"ligne = cells (65536, colonne...Row + 1)" --> le 65536 indique quoi ?

- Pour le carré gris "REPORT" est que l'on peu le mettre où l'on veux?

merci à vous
schaps
 
Dernière édition:

JCGL

XLDnaute Barbatruc
Re : Transfert de nombre

Bonjour à tous,
Salut PJ,

Comme l'ami PJ est absent, je me permets un réponse...


  1. Rajoute la ligne Range("P27:AA96").ClearContents juste après la ligne Sub Report()
  2. La première colonne du Tableau 3
  3. La dernière ligne possible sous XL < XL 2007 (permet le listage en lignes)
  4. En cliquant sur l’Équerre de la barre d'outils Contrôle, tu le déplaces où tu veux sur la feuille. Clique de nouveau sur l’Équerre pour désactiver le mode Création
A+ à tous
 

hoerwind

XLDnaute Barbatruc
Re : Transfert de nombre

Bonjour, salut pierrejean et JCGL,

En établissant le Tableau 2 sur deux colonnes et 70 lignes (une colonne devrait même suffire) il est vraiment simple d'alimenter le Tableau 3 par formule.
 

schaps

XLDnaute Occasionnel
Re : Transfert de nombre

Bonjour à vous tous et JCGL et hoerwind,

JCGL avce ta modification c'est merveilleux, tes explications aussi, mais je ne sais pas c'est quoi et où est la "l’Équerre de la barre d'outils Contrôle" !!

hoerwind, j'ai modifié le fichier et il y a un onglet à ton nom, tu me parlais d'une autre formule simple.

merci vraiment à vous tous de votre aide.
schaps
 

Fichiers joints

JCGL

XLDnaute Barbatruc
Re : Transfert de nombre

Bonjour à tous,

BO Contrôles sous XL 2003 :


  1. Affichage
  2. Barres d'Outils
  3. Boite à Outils Contrôles
Merci de préciser ta version XL dans ton profil

A+ à tous
 

JCGL

XLDnaute Barbatruc
Re : Transfert de nombre

Bonjour à tous,

Sous XL 2007 :

Options Excel
Troisième ligne : Cocher Activer Développeur
Onglet Développeur : tu as l’Équerre

De rien PJ...
A+ à tous
 

hoerwind

XLDnaute Barbatruc
Re : Transfert de nombre

Re,

Proposition sous la pièce jointe, par formules non matricielles.
Les données en colonne A ne sont pas nécessaires (elles ont été effacées, mais rien n'empêche de les laisser).

Pour la colonne "11 à 13" il est plus simple de séparer les formules en trois colonnes, mais cela devrait être possible en une seule colonne (je n'ai pas essayé).
 

Fichiers joints

schaps

XLDnaute Occasionnel
Re : Transfert de nombre

Bonjour à tous, PJ, JC et hoerwind,

JP: j'ai vu que vous aviez modifer le fichier, c'est très bien, quand j'ai voulu éffacer les données du tableau 1 et que j'ai cliqué sur le développeur les nombres du tableau 3 ont belle et bien disparue mais une érreur est apparue : tot(tablo(n, m)) = tot(tablo(n, m)) + 1
je ne sais pas ce que ça veux dire exactement.; merci à vous.

JC: merci avce ton aide j'ai trouvé comment déplacer le développeur;

hoerwind: tes formules me donnes un autre option pour mon projet merci.

schaps
 

JCGL

XLDnaute Barbatruc
Re : Transfert de nombre

Bonjour à tous,

Rajoute cette ligne dans report1 :

tablo = Range("A2:U21")
If Application.WorksheetFunction.CountA(tablo) = 0 Then Exit Sub
Dim tot(1 To 70)
A+ à tous
 

schaps

XLDnaute Occasionnel
Re : Transfert de nombre

Bonjour à tous,

Merci encore JC, JP et hoerwind, ça marche à mon goût !!

schaps
ps: vive ce Forum !!
 

Discussions similaires


Haut Bas