Trié avec cellule fusionnée

[myjidu35]

Bonjour à tous,

Je viens vers vous car j'aurais besoin d'aide.

En effet je souhaiterais réaliser un tri de dates par rapport au fichier joint.
Le problème est que j'ai fusionner les cellules des dates ce qui fait que quand je choisis une date, seul la premiere cellule des cellules fusionné apparaît.

Auriez vous un moyen d'effectuer un tri en gardant ce type de présentation?

Merci

 

[mapomme]

Re : Trié avec cellule fusionnée

(re)

(...) Sur la cellule I8 on remarque que j'ai la cellule avec deux lignes, seulement la taille de la cellule ne s’adapte pas automatiquement (...)

L'adaptation de la hauteur semble se faire pour un affichage à 100% or vous êtes à un zoom de 85% (je n'avais jamais fait attention à cela 😕)

 

[titooooo]

Re : Trié avec cellule fusionnée

Bonjour

comme l'exemple dans la précédente feuille j'aimerais pouvoir en choisissant le centre et l'activité il m'affiche directement les lignes en question

@mapomme merci d'avance

 

[mapomme]

Re : Trié avec cellule fusionnée

(re)

(...) je voudrais pouvoir imprimer la semaine sélectionnée sur un format A4, cependant je n'arrive pas à l'adapter correctement. (...)

Voir le code suivant dans le module de la feuille "Travaux de la semaine":

Sub Apercu()
Dim xrg As Range

With Sheets("Travaux de la semaine")
  Set xrg = .Range("A" & Rows.Count).End(xlUp)
  Set xrg = Range("D1:J" & xrg.Row)
  
  .PageSetup.PrintArea = xrg.Address
  Application.PrintCommunication = False
  With .PageSetup
      .CenterHorizontally = True
      .CenterVertically = False
      .Orientation = xlPortrait
      .FitToPagesWide = 1
      .FitToPagesTall = 1
  End With
  Application.PrintCommunication = True
  .PrintPreview
End With
End Sub

 

[myjidu35]

Re : Trié avec cellule fusionnée

En ce qui concerne le code ci dessous j'ai ce défaut qui apparait sous excel 2007:
Propriété ou méthode non gérée par cet objet.


En ce qui concerne l'ajustement auto des cellule j'ai pas tout compris 🙂

Merci d'avance

(re)


Voir le code suivant dans le module de la feuille "Travaux de la semaine":

Sub Apercu()
Dim xrg As Range

With Sheets("Travaux de la semaine")
  Set xrg = .Range("A" & Rows.Count).End(xlUp)
  Set xrg = Range("D1:J" & xrg.Row)
  
  .PageSetup.PrintArea = xrg.Address
  Application.PrintCommunication = False
  With .PageSetup
      .CenterHorizontally = True
      .CenterVertically = False
      .Orientation = xlPortrait
      .FitToPagesWide = 1
      .FitToPagesTall = 1
  End With
  Application.PrintCommunication = True
  .PrintPreview
End With
End Sub

 

[mapomme]

Re : Trié avec cellule fusionnée

[Bonjour myjidu35,

En ce qui concerne le code ci dessous j'ai ce défaut qui apparait sous excel 2007:
Propriété ou méthode non gérée par cet objet.

Effacer les lignes comprenant: "Application.PrintCommunication" (instruction valable seulement à/c excel 2010)

En ce qui concerne l'ajustement auto des cellule j'ai pas tout compris

Moi non plus 😕 .

 

[myjidu35]

Re : Trié avec cellule fusionnée

Ca fonctionne...

En ce qui concerne la mise en forme auto des cellules, c'est une question récurrente sur le net, je vais regarder ca de plus près...


Je travail aussi sur un autre fichier.
Il y a plusieurs manip que je n'arrive pas à réaliser dans ce fichier.
Pour expliquer en gros c'est un planning par semaine que je souhaiterais ensuite faire glisser avec une incrémentation automatique de la semaine (en C5) et de la date (ligne5)
Je voudrais aussi pouvoir voir l'année apparaître en colonne A et la semaine en colonne B.


Encore merci et dsl pour toutes ces questions.

Merci

 

[myjidu35]

Re : Trié avec cellule fusionnée

Problèmes résolus...

Merci pour tout