Tableau récapitulatif sans cellules vides

[exene]

Bonjour,

Je me tourne vers vous pour un problème que je n'arrive pas à résoudre seul.
Je dispose d''un planning avec les absences de mes collègues, un second tableau des positions de travail avec les personnes qui y sont affectées. Dans un troisième je souhaiterais faire un récapitulatif d'un certain type d'absence sans cellules vides. Je vous joins le fichier exemple avec le résultat escompté.

Merci pour vos conseils

 

[phlaurent55]

Re : Tableau récapitulatif sans cellules vides

Bonjour pascal,

ton fichier en retour
Réalisé par macro................ il suffit de cliquer sur le bouton

à+
Philippe

 

[exene]

Re : Tableau récapitulatif sans cellules vides

Bonjour Philippe,

Merci de ta réponse rapide et efficace, cependant si mon tableau est dans une feuille différente de la zone source est il possible d'adapter la macro (je ne suis nul en VBA)

@+

 

[phlaurent55]

Re : Tableau récapitulatif sans cellules vides

Re,

cependant si mon tableau est dans une feuille différente de la zone source est il possible d'adapter la macro

Oui tout est possible ....................... mais pas avant demain en matinée , je suis trop occupé aujourd'hui

à+
Philippe

 

[phlaurent55]

Re : Tableau récapitulatif sans cellules vides

Re,

voir nouvelle version en fichier joint pour résultats sur une autre feuille

à+
Philippe

 

[exene]

Re : Tableau récapitulatif sans cellules vides

Re,

Encore merci, je vais devoir décrypter la macro pour tenter de l'adapter.

Bon dimanche.

 

[exene]

Re : Tableau récapitulatif sans cellules vides

Bonjour,

Malgré plusieurs essais je n'ai pas réussi à adapter la macro écrite par Philippe
Sub MacroATM()
Application.ScreenUpdating = False
Sheets("ATM").Select
Sheets("ATM").Range("C2:H500").Select
Selection.ClearContents
Sheets("SEMAINIER2").Select
For i = 2 To 7
For j = 3 To 8
If Cells(i, j).Value = "ATM" Then
Sheets("ATM").Cells(i, j).Value = Cells(i, 1).Value
End If
Next j
Next i
For i = 3 To 8
Sheets("ATM").Select
Range(Cells(2, i), Cells(500, i)).Select
Selection.Sort Key1:=Cells(2, i), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Next i
Range("A1").Select
Application.ScreenUpdating = True
End Sub

j'ai colorié en rouge les valeurs que je dois certainement modifier mais après plusieurs tentatives, je n'obtiens pas le même résultat qu'avec la macro originelle.Auriez vous un conseil ?

 

[phlaurent55]

Re : Tableau récapitulatif sans cellules vides

Re,
actuellement la dernière donnée de la feuille se situe en ligne 83

Sub MacroATM()
Application.ScreenUpdating = False
Sheets("ATM").Select
Sheets("ATM").Range("C2:[COLOR=black]H500").[/COLOR]Select
Selection.ClearContents
Sheets("SEMAINIER2").Select
[B][COLOR=red]For i = 2 To 7 [/COLOR][/B]
[COLOR=black]For j = 3 To 8[/COLOR]
If Cells(i, j).Value = "ATM" Then
Sheets("ATM").Cells(i, j).Value = Cells(i, 1).Value
End If
Next j
Next i

remplacer la ligne en rouge par:
For i = 2 To Range("A65535").End(xlUp).Row

à+
Philippe

 

[exene]

Re : Tableau récapitulatif sans cellules vides

Bonjour,

Ta solution va résoudre le nombre de lignes prises en compte. De même façon comment dois je faire pour étendre la recherche jusqu'à la colonne T. Mon semainier n'est en fait qu'une extraction d'un tableau plus vaste et j'aimerais considérer uniquement la semaine en cours la semaine précédente et la semaine suivante pour avoir une vision à court terme des ATM (arrêt travail maladie dans notre jargon).


edit : je viens de trouver la solution

Merci encore

 

[phlaurent55]

Re : Tableau récapitulatif sans cellules vides

Re,

il suffit de remplacer:

For j = 3 To 8

par:

For j = 3 To 20

dans les deux lignes concernées

à+
Philippe