ascenseur ou chariot Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
w
wall
Membre fidèle
Membre fidèle
Messages : 178
Inscrit le : 10 décembre 2014
Version d'Excel : 2010

Message par wall » 11 novembre 2017, 11:01

Salut
Les textes de la feuille2 vont être modifiés comme les noms et notes de la feuille 1 selon les enregistrements
cdl
N
NCC 1701
Membre fidèle
Membre fidèle
Messages : 449
Appréciation reçue : 1
Inscrit le : 4 septembre 2016
Version d'Excel : 95..2013 PC FR

Message par NCC 1701 » 11 novembre 2017, 11:07

(..)

Alors théoriquement (pour la feuil2) si tu as pris toutes les photos des cellules concernées, et qu'elles sont placées sur la feuil1 il n'y aura aucun problème... tu peux modifier les textes de la feuil2 à volonté. ;;)
La seule condition c'est que les cellules de la feuil2 contenant les textes soient en "autofit" c'est à dire dimensionnée pour que l'ensemble du texte reste visible !
Cordialement
w
wall
Membre fidèle
Membre fidèle
Messages : 178
Inscrit le : 10 décembre 2014
Version d'Excel : 2010

Message par wall » 11 novembre 2017, 12:52

Bonjour,

Tout cela me marrait plus compliqué, je pensais que c'était une simple affaire.
Je pense que je vais réduire la taille de la police et au pire imprimer sur deux feuilles. A ce moment là, il faut installer une barre qui s'affichera automatiquement si le texte dépasse l'espace de la cellule

Si pas de solution, je passe à autre chose

Cordialement
chariotV6.xlsm
(22.12 Kio) Téléchargé 6 fois
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 4'019
Appréciations reçues : 306
Inscrit le : 26 janvier 2011
Version d'Excel : 2007/2019

Message par Theze » 11 novembre 2017, 13:32

Re,
Salut à tous j'ai fait les modifs mais je ne vois pas de différence. ???
Il te faut mettre le code dans le module de la feuille car c'est une procédure événementielle et quand tu postes un fichier, évites les protections de feuille ou classeur !
Je poste la version 3 (qui lui n'était pas protégé) avec les deux procédures événementielles et pour tester, tu cliques dans la cellule C17 et ensuite, tu fais aperçu avant impression pour voir le résutat

Oups,

Autant pour moi, je n'avais pas fais attention que tu avais mis le mdp :(
chariotV3.xlsm
(26.24 Kio) Téléchargé 12 fois
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
w
wall
Membre fidèle
Membre fidèle
Messages : 178
Inscrit le : 10 décembre 2014
Version d'Excel : 2010

Message par wall » 11 novembre 2017, 18:27

Bonsoir,
Je suis épaté Theze, c'est le résultat que je souhaitais. Seul inconvénient, il faut cliquer dessus pour que le test soit visible à l'impression. Mais c'est top.
Ma question : est ce qu'on peut faire pour les deux cellules?
Bravo, chapeau et merci encore à tous, surtout au shaman de danse avec le VBA Dhany
Cordialement
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 6'910
Appréciations reçues : 693
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 11 novembre 2017, 18:37

wall a écrit :Bravo, chapeau et merci encore à tous, surtout au shaman de danse avec le VBA Dhany
Le shaman de danse avec le VBA est ravi d'avoir pu t'aider ; et je félicite aussi Theze
pour la bonne médecine qu'il t'a apportée ; lui aussi être un grand sorcier VBA !!!
longue vie à ta squaw et à tous tes papooses ! Ugh ! dhany  :wink:
 
w
wall
Membre fidèle
Membre fidèle
Messages : 178
Inscrit le : 10 décembre 2014
Version d'Excel : 2010

Message par wall » 11 novembre 2017, 18:45

Merci beaucoup à bientôt pour une nouvelle aventure
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 4'019
Appréciations reçues : 306
Inscrit le : 26 janvier 2011
Version d'Excel : 2007/2019

Message par Theze » 12 novembre 2017, 08:50

Bonjour,
Seul inconvénient, il faut cliquer dessus pour que le test soit visible à l'impression. Mais c'est top
...
Ma question : est ce qu'on peut faire pour les deux cellules?
Dans ce cas, il suffit d'incorporer le code paramétrant les commentaires dans la procédure événementielle "BeforePrint()" du classeur :
Private Sub Workbook_BeforePrint(Cancel As Boolean)

    With Range("C3")
    
        If .Comment Is Nothing Then .AddComment
        
        .Comment.Text .Value
        .Comment.Visible = True
        .Comment.Shape.Height = 270 '<--- adapter la hauteur du commentaire
        .Comment.Shape.Width = Range("C3:E3").Width
        .Comment.Shape.Top = Range("C3:E3").Top
        .Comment.Shape.Left = Range("C3:E3").Left
        .Comment.Shape.DrawingObject.Interior.ColorIndex = 2
                
    End With
    
    With Range("C17")
    
        If .Comment Is Nothing Then .AddComment
        
        .Comment.Text .Value
        .Comment.Visible = True
        .Comment.Shape.Height = 350 '<--- adapter la hauteur du commentaire
        .Comment.Shape.Width = Range("C17:E17").Width
        .Comment.Shape.Top = Range("C17:E17").Top
        .Comment.Shape.Left = Range("C17:E17").Left
        .Comment.Shape.DrawingObject.Interior.ColorIndex = 2
                
    End With

    ActiveSheet.PageSetup.PrintComments = IIf(ActiveSheet.Name = "Feuil1", 16, -4142)
    
End Sub
Ce qui aura pour effet de rendre imprimable ces derniers (attention aux hauteurs pour que l'un ne cache pas l'autre) mais comme il n'existe pas de procédure "AfterPrint()", la procédure "SelectionChange()" peut être utilisée pour cacher le commentaire :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    With Range("C3")
                
        If Not .Comment Is Nothing Then
        
            .Comment.Shape.Left = Range("C3:E3").Left + Range("C3:E3").Width
            .Comment.Visible = False
            .Comment.Shape.DrawingObject.Interior.ColorIndex = 19
        
        End If
                
    End With
    
    With Range("C17")
                
        If Not .Comment Is Nothing Then
        
            .Comment.Shape.Left = Range("C17:E17").Left + Range("C17:E17").Width
            .Comment.Visible = False
            .Comment.Shape.DrawingObject.Interior.ColorIndex = 19
        
        End If
                
    End With
    
End Sub
Et merci pour tes remerciements ;;)
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
w
wall
Membre fidèle
Membre fidèle
Messages : 178
Inscrit le : 10 décembre 2014
Version d'Excel : 2010

Message par wall » 12 novembre 2017, 12:34

Bonjour à tous salut Theze,

désolé pour le retard, j'ai changé le code et je ne dois pas bien saisir la nuance. Un popup s'affiche au passage de la souris sur la C17 et pas sur la C3.

A l'impression les textes ne s'affichent pas. Je pense avoir mal rentré le code, à vérifier svp!
Merci encore
Cordialement
chariotV6.xlsm
(25.41 Kio) Téléchargé 3 fois
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 4'019
Appréciations reçues : 306
Inscrit le : 26 janvier 2011
Version d'Excel : 2007/2019

Message par Theze » 12 novembre 2017, 14:24

Sur un de tes classeurs Feuil1 est mal orthographié, vérifie le nom de la feuille
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message