XL 2016 faire une copie conditionnelle de lignes dans un classeur différent

Neileru4

XLDnaute Occasionnel
Bonjour a tous

je tiens a jour un fichier excel que me permet de visualiser des patients sur des ehpad
sauf que quand ceux ci s'en vont je voudrais les mettre automatiquement sur une autre feuille (archive) mais les garder masquer sur ma 1er feuille

est il possible

j'ai trouver cette formule vba mais je n'arrive pas a l'executer


Sub copyRowTo(rng As Range, ws As Worksheet)
Dim newRange As Range
Set newRange = ws.Range(A1)
If newRange.Offset(1).Value <> Then
Set newRange = newRange.End(xlDown).Offset(1)
Else
Set newRange = newRange.Offset(1)
End If
rng.Copy
newRange.PasteSpecial (xlPasteAll)
End Sub




ci joint mon fichier
 

Fichiers joints

GALOUGALOU

XLDnaute Impliqué
bonjour neileru4 bonjour le forum
trois boutons dans la feuille ephad,
en colonne T de la feuille ephad ecrire un x pour les résidents partis.
le bouton mise à jour archive les résidents absents dans la feuille ephad (archive) et le masque dans la feuille ephad
cordialement
galougalou
 

Fichiers joints

Dernière édition:

Neileru4

XLDnaute Occasionnel
merci pour ces réponses
galougalou est il possible que quand on met le "x" cela ce masque automatiquement plutôt que de cliquer sur le boutons masquer

en fait ton idée me plait il faudrait garder le bouton afficher résident et retiré les autre pour que quand je mets x en fin de ligne cela se masque automatiquement et transfert vers ehpad archive
 

GALOUGALOU

XLDnaute Impliqué
les trois boutons présentent l'étendue des possibilités.
quand tu met le "x" il faut cliquer sur le bouton mise à jour et pas sur le bouton masquer pour obtenir le résultat escompté.
je te prépare un classeur ce soir pour une mise a jour automatique quand tu saisie un x dans la colonne T
cordialement
galougalou
 

Neileru4

XLDnaute Occasionnel
merci galougalou
est il possible de l'avoir pour cette apres midi
sans demander l'impossible
 

GALOUGALOU

XLDnaute Impliqué
bonjour le fil
tu ne demandais pas l'impossible, coup de chance j'ai vu ton message.
la saisie ou la suppression d'un X en colonne T, avec l'appuie ensuite sur la touche entrée, déclenche la macro.
j'ai réalisé une petite mise en forme des boutons.
pour supprimer celui que tu ne désires pas, clic droit dessus, supprimer.
j'espère avoir fait le tour de la question, et je retourne vite dans mes rêveries :cool:
si tu as besoin d'information fait moi un retour. (et je regarde ce soir......... a moins que ???)
cordialement
galougalou
 

Fichiers joints

Neileru4

XLDnaute Occasionnel
salut a tous

galougalou
ton fichier fonctionne merci a toi
mais a chaque fois que je l'ouvre il me demande mettre a jour ou non car il y aurai des liaison avec des sources externes
est ce liée a ton fichiers ou non
 

Neileru4

XLDnaute Occasionnel
Re le forum et re galougalou
je doit rajouter une nouvel onglet ehpad 2 different du 1er si je reprend tes macros le masquage ne se fait pas
pourquoi??
 

GALOUGALOU

XLDnaute Impliqué
Ce n'est pas la même problématique. Combien auras-tu d'onglet dans ton
projet final

la macro est associé à un seul onglet présente-moi ton projet global pour que je puisse t'apporter une réponse precise.
Cordialement
 

GALOUGALOU

XLDnaute Impliqué
bonsoir neileru4 bonsoir le forum
j'ai imaginé que ta gestion ne se résume pas à un seul onglet.
le classeur ci_joint est configuré pour une gestion de 5 ehpad, (donc 5 onglets) mais les possibilités sont infinies. le fonctionnement est identique au classeur du #7, mais a été adapté à la problèmatique de plusieurs ephad.
il suffit d'adapter les macros comme expliquées dans l'onglet tuto_macro
cordialement
galougalou
 

Fichiers joints

Neileru4

XLDnaute Occasionnel
Bonjour a tous
Merci galougalou
desolé de la réponse tardive

j'avais finalment réussi a trouver comment attribuer pour d'autre ehpad en recopier le module et les macrosavec le nom de l'ehpad voulu
 

GALOUGALOU

XLDnaute Impliqué
bonjour neileru4 bonjour le forum
attention le classeur initial n'est pas prévu pour gérer plusieurs onglets, et cela à pour conséquence d'effacer la feuille EPHAD (archive).
la V4 du #13 prend en compte cette problèmatique.
cordialement
galougalou
 

GALOUGALOU

XLDnaute Impliqué
bonjour neileru4 bonjour le forum
j'ai imaginé que la solution ci-dessous était plus fonctionnelle.

dans cette version 5, les résidents qui ont réintégrés un ehpad sont automatiquement supprimés de la feuille EHPAD ("archive")

dans le module modulestable
modification de la macro ventilFORMULE
ajout d'une formule (SUP)
suppression de la mfc couleur rouge dans la feuille EHPAD ("archive")

cordialement
galougalou
 

Fichiers joints

Neileru4

XLDnaute Occasionnel
Bonjour a tous
Bonjour galou galou

J'ai effectuer une macro qui me permet une fois un fichier excel terminer d'enregistrer et faire un envoie par mail pour partager celui ci



VB:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim ol As Object, monmail As Object

DisplayAlerts = False

Set ol = CreateObject("outlook.application")

Set monmail = ol.CreateItem(olMailItem)

monmail.To = "prenom.nom@domaine.fr;prenom.nom@domaine.fr;prenom.nom@domaine.fr;prenom.nom@domaine.fr;prenom.nom@domaine.fr

monmail.Subject = "Modification du Dossier Partagé "

monmail.Body = "Alerte: Modifications sur le fichier "

monmail.Send

Set ol = Nothing

End Sub

Mon souci est que j'ai des utilisateurs qui utilise outlook version microsoft ( donc l'envoie se fait correctement)
et que j'en ai d'autre qui ont outlook version mail par internet sans microsoft (donc l'envoie ne se fait pas)
savez vous pourquoi ma macro ne fonctionne pas?
avait vous une solution?

merci a tous
 

GALOUGALOU

XLDnaute Impliqué
bonjour neileru bonjour le forum
personnellement, je ne ne sais pas.
on va laisser les membres du forum vous trouver une solution.
cordialement
galougalou
 

Neileru4

XLDnaute Occasionnel
merci galou galou pour la réponse
j'ai déjà ouvert sur un nouveau post comme cela traite un peu sur un autre sujet
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas