Excel 2010 copie données de plusieurs feuille vers une dernière

Signaler
Messages postés
1
Date d'inscription
mardi 22 mai 2012
Statut
Membre
Dernière intervention
29 mai 2012
-
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
-
Bonjour à tous

Je fais appel à vos lumières car je bloque sur mon fichier...

Je vous explique mon problème:

Je travaille sur plusieurs onglets:

- de Dimanche à Lundi
- de Lundi à Mardi
- de Mardi à Mercredi
- de Mercredi à Jeudi
- de Jeudi à Vendredi
- de Vendredi à Samedi
- de Samedi à Dimanche

Chaque onglet répertorie une liste de tâches effectuées dans la nuit et la journée:

Dans l'onglet "Dimanche à Lundi" il y a deux tableaux, comprenant les tâches de la nuit du dimanche et la journée du lundi.

Les tâches sont remplies par l'utilisateur. Il y a un nombre indéfini de tâches, et ce nombre peut différer en fonction des jours. (exemple: 9 tâches le lundi, 3 le soir, 4 le mardi...). Ceoendant je fixe un nombre maximum de tâches à 35 (cela "fixe les dimensions de mon tableau)

J'aimerais répertorier dans un dernier onglet la liste de toutes les tâches (avec la date, l'horaire de début et l'horaire de fin associés), présentes dans toutes mes feuilles.
Je voudrais qu'elles soient les unes à la suite des autres (mon problème ici est que je n'ai pas un nombre défini de tâches).

Je ne sais pas trop par quelle fonction passer...Mais je sens qu'il y a quelquechose à faire!

je débute sur excel et vba du coup je suis un peu perdue, je compte sur vos conseils et vos lumières!

1 réponse

Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
Salut,

j'imagine... je peux pas faire autrement vu les info que l'on a ! donc j'imagine que tes tableaux sont agencés en colonnes. j'imagine aussi que les taches sont sur une colonne dédiée et connue.

Donc il suffirait de travailler sur cette colonne pour retrouver la derniere tache. Si la colonne des taches est la colonne B (la suppose encore !) voici un exemple

Dim DerniereTache As Long
With WorkSheets("Dimanche à Lundi")
   DerniereTache= .Range("B" & .columns("B").rows.count).end(XlUp).Row
End With
MsgBox "La derniere tache se trouve sur la ligne :" & DerniereTache


A+