Discussion :

[foxrever]

bonsoir
voila je vous expose mon probleme
j'arrive pas a a trouver un programme qui me fais ajouté automatiquement des colonne a mon tableaux et les faire remplir par des zero au meme nombre de ligne de mon tabeau de depart sachant que j'ai 96 onglets sur un seul classeur et chaque onglet a une longueur différente
je vous remercie d'avance pour vous reponse

[parmi]

Bonjour,

Si j'ai bien compris...

Une façon de récupérer la dernière ligne de valeur est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nbLignes = Sheets("MaFeuille").Cells(Rows.Count, "A").End(xlUp).row

Si la colonne A ne contient pas de données, utiliser une autre lettre que le A

Tu peux donc écrire à partir de cette valeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("F" & nbLignes) = 0   'inscrit 0 en F sur la dernière ligne remplie
Range("F" & nbLignes & ":H" & nbLignes) = 0   'inscrit 0 en F, G et H de cette ligne

Pour ce qui est de lire chaque feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Feuille as Worksheet
For each Feuille in Worksheets
   nbLignes = Feuille.Cells(Rows.Count, "A").End(xlUp).row
Next

[foxrever]

ça j'ai bien compris
maintenant si tu peux m'aider a récupérer la ligne des totaux de chaque feuilles et la placé dans une feuille (onglet) que j'ai nommé RECAP
Sachant que j'ai essayé de le faire mais comme les ligne que je recupere contient des formule alors j'ai pas de valeur dans ma feuil RECAP
et merci d'avance de me repondre

en fait pour la premiere question c'est que je veux ajouté des colonnes en meme dimension c-a-d meme nombre de ligne mais remplit de zero
exple feuil1 colonne A,b,c,d,......=5 ligne je veux ajouté soit disant 3 colonnes W,X,Y qui auront aussi 5 ligne remplis de zero
feuil 2 colonne A,b,c,d,......=15 ligne je veux ajouté soit disant 3 colonnes W,X,Y qui auront aussi 15 ligne remplis de zero
et ainsi de suite sachant que j'ai un classeur qui contient beaucoup de feuil (onglet) et je veux le faire d'une façon automatique
merci d'avance pour vos réponse

[parmi]

Pour le premier code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Feuille as Worksheet
For each Feuille in Worksheets
   'ici il devra y avoir une validation du nom de la feuille, j'imagine
   nbLignes = Feuille.Cells(Rows.Count, "A").End(xlUp).row
   Feuille.Range("W2:Y" & nblignes)=0   'je commence à 2 pensant qu'il y a des entêtes...
Next

[parmi]

Et pour ce qui est des totaux, il faudrait savoir où ils se trouvent (colonnes) et où tu veux les copier dans ta feuille RECAP

[foxrever]

pour le premiers code parfais tu ma tres bien compris
mais pour le deuxieme exemple que je fais le totale des colonnes de w x y z ..... ect dans la derniers lignes de ces colonnes de chaque feuilles (onglets de classeur ) sachant que a chaque onglet le totale sera dans une ligne differente

doc il me faut du collage speciale sous forme du code pour prendre juste la valeur de totale de chaque colonne et placer les totaux de chaque onglet 1 ,2,.....etc dans la onglet RECAP pour chaque ligne de RECAP je trouve la ligne des totaux des colonnes des autres onglets sachant que chaque onglet porte un nom différents
j'espere que tu comprendra mieux ma problématique c non je peux te fournir plus d'info
dommage que je ne peux pas te transmettre le fichier