Macro actualisation d'un TCD perturbée par d'autres macro
Résolu/Fermé
romanza
romanza
- Messages postés
- 250
- Date d'inscription
- samedi 27 janvier 2007
- Statut
- Membre
- Dernière intervention
- 4 octobre 2021
romanza
- Messages postés
- 250
- Date d'inscription
- samedi 27 janvier 2007
- Statut
- Membre
- Dernière intervention
- 4 octobre 2021
A voir également:
- Macro actualisation d'un TCD perturbée par d'autres macro
- Macro actualiser tous les tcd ✓ - Forum - Excel
- Macro actualisation auto TCD ✓ - Forum - Excel
- Vba excel actualiser TCD ✓ - Forum - VB / VBA
- Actualisation de plusieurs TCD en même temps - Forum - Bureautique
- Actualiser/Modifier filtres TCD dans une feuille protégée ✓ - Forum - Excel
8 réponses
Patrice33740
4 mars 2021 à 16:08
- Messages postés
- 8549
- Date d'inscription
- dimanche 13 juin 2010
- Statut
- Membre
- Dernière intervention
- 7 mai 2022
4 mars 2021 à 16:08
Bonjour
Dans un module de feuille il ne doit y avoir qu'une seule macro Worksheet_Activate :
Il suffit d'ajouter ton code en début de la macro déjà existante :
Dans un module de feuille il ne doit y avoir qu'une seule macro Worksheet_Activate :
Private Sub Worksheet_Activate() '... End Sub
Il suffit d'ajouter ton code en début de la macro déjà existante :
Private Sub Worksheet_Activate() ThisWorkbook.RefreshAll '... End Sub
romanza
4 mars 2021 à 16:25
- Messages postés
- 250
- Date d'inscription
- samedi 27 janvier 2007
- Statut
- Membre
- Dernière intervention
- 4 octobre 2021
4 mars 2021 à 16:25
Bonjour Patrice,
Merci pour ton retour.
C'est bien ce que j'avais fait :
Private Sub Worksheet_Activate()
ThisWorkbook.RefreshAll
Range("A8:DZ12").Select
Range("A8:DZ12").EntireRow.AutoFit
Range("B3").Select
End Sub
Mais j'ai un arrêt à "ClearContents" de la macro suivante :
Sub FusionnerMois()
Application.ScreenUpdating = False
Dim r As Range
Dim c As Range
Dim d As Range
Set r = ActiveSheet.Range("K12:NL12")
With r.Offset(-1)
.unmerge
.ClearContents
.NumberFormat = "mmmm-yy"
.HorizontalAlignment = xlCenter
For Each c In r.Cells
If d Is Nothing Then
Set d = c.Offset(-1)
d.Value = c.Value
End If
If Month(c.Offset(0, 1).Value) <> Month(d.Value) Then
With ActiveSheet.Range(d, c.Offset(-1))
.merge
.Borders.Weight = xlThin
End With
Set d = Nothing
End If
Next c
End With
End Sub
Pascal
Merci pour ton retour.
C'est bien ce que j'avais fait :
Private Sub Worksheet_Activate()
ThisWorkbook.RefreshAll
Range("A8:DZ12").Select
Range("A8:DZ12").EntireRow.AutoFit
Range("B3").Select
End Sub
Mais j'ai un arrêt à "ClearContents" de la macro suivante :
Sub FusionnerMois()
Application.ScreenUpdating = False
Dim r As Range
Dim c As Range
Dim d As Range
Set r = ActiveSheet.Range("K12:NL12")
With r.Offset(-1)
.unmerge
.ClearContents
.NumberFormat = "mmmm-yy"
.HorizontalAlignment = xlCenter
For Each c In r.Cells
If d Is Nothing Then
Set d = c.Offset(-1)
d.Value = c.Value
End If
If Month(c.Offset(0, 1).Value) <> Month(d.Value) Then
With ActiveSheet.Range(d, c.Offset(-1))
.merge
.Borders.Weight = xlThin
End With
Set d = Nothing
End If
Next c
End With
End Sub
Pascal
Patrice33740
4 mars 2021 à 16:31
- Messages postés
- 8549
- Date d'inscription
- dimanche 13 juin 2010
- Statut
- Membre
- Dernière intervention
- 7 mai 2022
4 mars 2021 à 16:31
Ça n'a rien à voir avec l'actualisation du TCD
romanza
4 mars 2021 à 16:43
- Messages postés
- 250
- Date d'inscription
- samedi 27 janvier 2007
- Statut
- Membre
- Dernière intervention
- 4 octobre 2021
4 mars 2021 à 16:43
Le TCD de l'onglet "Chronologie des tâches" ne peut s'actualiser que si on clique d'abord sur l'onglet "Rétroplanning"
Si on clique droit sur le TCD et commande "Actualiser", ça bug.
Je souhaiterais qu'en allant sur l'onglet "Chronologie des tâches", le TCD qui s'y trouve s'actualise automatiquement
Si on clique droit sur le TCD et commande "Actualiser", ça bug.
Je souhaiterais qu'en allant sur l'onglet "Chronologie des tâches", le TCD qui s'y trouve s'actualise automatiquement
Patrice33740
4 mars 2021 à 17:37
- Messages postés
- 8549
- Date d'inscription
- dimanche 13 juin 2010
- Statut
- Membre
- Dernière intervention
- 7 mai 2022
4 mars 2021 à 17:37
fichier modifié : https://mon-partage.fr/f/vb7OvaJj/
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
romanza
4 mars 2021 à 18:49
- Messages postés
- 250
- Date d'inscription
- samedi 27 janvier 2007
- Statut
- Membre
- Dernière intervention
- 4 octobre 2021
4 mars 2021 à 18:49
Merci beaucoup Patrice, j'ai vu où ça clochait.
Puis-je te demander comme tu l'avais fait auparavant de mettre une fusion des mois correspondant aux dates de début du TCD de l'onglet "Chronologie des tâches" au niveau du bandeau jaune.
Puis-je te demander comme tu l'avais fait auparavant de mettre une fusion des mois correspondant aux dates de début du TCD de l'onglet "Chronologie des tâches" au niveau du bandeau jaune.
Patrice33740
4 mars 2021 à 22:07
- Messages postés
- 8549
- Date d'inscription
- dimanche 13 juin 2010
- Statut
- Membre
- Dernière intervention
- 7 mai 2022
4 mars 2021 à 22:07
Bonjour,
Avec les cellules fusionnées, c'est moins facile :
https://mon-partage.fr/f/70kfaQNC/
Avec les cellules fusionnées, c'est moins facile :
https://mon-partage.fr/f/70kfaQNC/
romanza
5 mars 2021 à 09:40
- Messages postés
- 250
- Date d'inscription
- samedi 27 janvier 2007
- Statut
- Membre
- Dernière intervention
- 4 octobre 2021
5 mars 2021 à 09:40
Bonjour Patrice,
Un grand MERCI!
La ballade en VBA c'est toi!
Peux-tu m'indiquer comment je mets résolu sur le forum.
Belle journée
Pascal
Un grand MERCI!
La ballade en VBA c'est toi!
Peux-tu m'indiquer comment je mets résolu sur le forum.
Belle journée
Pascal
romanza
5 mars 2021 à 10:04
- Messages postés
- 250
- Date d'inscription
- samedi 27 janvier 2007
- Statut
- Membre
- Dernière intervention
- 4 octobre 2021
5 mars 2021 à 10:04
C'est bon j'ai vu
A+
A+