transposition de planning

[isandre]

bonjour à tous,
voilà mon souci:
j'ai une liste de noms en colonne A;de la colonne B à la colonne AG, les jours du mois;
en face de chacun de ces noms, des cases notées N ou W (pour normal ou weekend), qui correspondent à des dates.
Je voudrai recopier ces données, sur une feuille externe ou sur la même feuille, en faisant deux colonnes avec un nom, une date.

En pièce jointe, un exemple qui sera certainement plus clair que mes explications.
J'ai peut être une idée avec deux boucles imbriquées, mais je suis preneur de toute solution plus "élégante"
merci de votre aide

 

[skoobi]

Re : transposition de planning

Bonjour,

Ci-joint un exemple.

 

[isandre]

Re : transposition de planning

bonjour skoobi,
et merci, c'est exactement ce que je cherchais, mais j'aime bien comprendre :
Pouvez vous m'expliquer la signification des lignes de commande, afin que je puisse adapter cette super macro à d'autres fichiers ?
Je ne compend pas comment est définie la cellule de destination des valeurs, ni comment est faite l'imbrication des boucles; bien sûr, si vous en trouvez le temps.
dans tous les cas, encore merci de votre coup de main

 

[skoobi]

Re : transposition de planning

Re bonjour,

voici:

Sub test()
'désactive le rafraichissement de l'écran
Application.ScreenUpdating = False
'de la ligne 4 à la dernière ligne non vide en colonne A (ligne de la personne)
For lig = 4 To [A65536].End(xlUp).Row
'pour chaque cellule contenant du texte dans la plage colonne B à J en fonction de la ligne
    For Each cellule In Range("B" & lig & ":J" & lig).SpecialCells(xlCellTypeConstants, xlTextValues)
'identifie la prochaine ligne pour la destination des valeurs
        lig_suiv = [B65536].End(xlUp).Row + 1
        Range("B" & lig_suiv).Value = Range("A" & lig).Value 'écrit la personne
        Range("C" & lig_suiv).Value = Cells(3, cellule.Column).Value 'écrit la date
    Next
Next
Application.ScreenUpdating = True 'active le rafraichissement de l'écran
End Sub

Espérant avoir éclairé ta lanterne .

 

[isandre]

Re : transposition de planning

bonsoir skoobi, et les autres,
je viens de tester ta macro,et j'ai trouvé une faille :
lorsqu'un nom n'est suivi que de cellules vides, j'ai une erreur 1004...
et malgré toutes mes tentatives, je ne trouve pas la solution pour passer ce blocage.
tes explications m'ont bien permis de l'adapter plus exactement, mais là, je cale... au secours !

 

[Staple1600]

Re : transposition de planning

Bonsoir



voir fichier joint

skoobi: je me suis permis de modifier ta macro

(A charge de revanche )

 

[skoobi]

Re : transposition de planning

Bonsoir



voir fichier joint

skoobi: je me suis permis de modifier ta macro

(A charge de revanche )

Pas de problème, merci

Bonne contribution et bonne nuit, je pique du nez....

 

[isandre]

Re : transposition de planning

bonsoir à tous,
et un énorme merci pour vos contributions; grâce à vous, j'ai pu mener mon affaire au bout. bravos aux experts, je me rend compte que j'ai de grosses lacunes...