XL 2013 Ajustement automatique hauteur de ligne

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Moussetictac

XLDnaute Nouveau
Bonjour,

J'aimerais savoir si c'est possible d'ajuster automatiquement la hauteur d'une cellule fusionnée dans un document Excel, avec une macro dont je n'ai malheureusement pas la maîtrise ?

En exemple, je téléverse un fichier.

Je remercie déjà très sincèrement la personne qui pourra me donner une réponse … clé en mains.

Avec mes salutations les meilleures et à tout bientôt, j'espère 🙂

Moussetictac
 

Pièces jointes

Bonjour Linda42, le forum,

Cette macro dans Module4 est plus simple et plus rapide :
VB:
Sub EffacementDesDonnéesFormulaire()
If MsgBox("Attention, après validation de votre choix, les données saisies seront définitivement supprimées." & Chr(10) & _
    "Souhaitez-vous vraiment effacer les données?", vbYesNo, "WARNING") = vbNo Then Exit Sub
Dim c As Range
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
For Each c In [L23:L66]
    If Not c.Locked Then c = "" 'efface les cellules déverrouillées
Next
Application.EnableEvents = True 'réactive les évènements
[B71] = ""
[B73] = ""
Cochez False
End Sub
Les Application.EnableEvents évitent que la Workbook_SheetChange se déclenche sur la colonne L.

Par contre elle se déclenche sur B71 et B73.

A+
 
Bonjour Linda42, le forum,

Cette macro dans Module4 est plus simple et plus rapide :
VB:
Sub EffacementDesDonnéesFormulaire()
If MsgBox("Attention, après validation de votre choix, les données saisies seront définitivement supprimées." & Chr(10) & _
    "Souhaitez-vous vraiment effacer les données?", vbYesNo, "WARNING") = vbNo Then Exit Sub
Dim c As Range
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
For Each c In [L23:L66]
    If Not c.Locked Then c = "" 'efface les cellules déverrouillées
Next
Application.EnableEvents = True 'réactive les évènements
[B71] = ""
[B73] = ""
Cochez False
End Sub
Les Application.EnableEvents évitent que la Workbook_SheetChange se déclenche sur la colonne L.

Par contre elle se déclenche sur B71 et B73.

A+
Super ça règle effectivement le problème pour la feuille formulaire de saisie. Mais je rencontre le même bug pour la fiche stratégie. Je présume que c'est mon code qui est trop compiqué d'autant que ce formulaire inclus des formules de recherche dans d'autre feuilles (et du coup, je rencontre un autre problème, à savoir que dans ces formules, si le texte est long, la ligne ne s'ajuste pas à la taille du texte). Si j'ai besoin de d'ajuster la taille des cellule au texte, c'est qu'une fois saisie, ces formulaire feront l'objet d'un export pdf à transmettre au service de saisis.

Merci encore pour votre aide
Linda
 

Pièces jointes

Oui il faut revoir votre code :

- en VBA il faut éviter les Select (c'est ce que j'ai fait au post #31)

- ne traitez qu'une cellule à chaque fois, par exemple Range("I10"). et non pas Range("I10:T10").

- pour entrer un simple texte pas besoin de FormulaR1C1.

Si vous n'y arrivez pas créez votre propre discussion, vous avez assez squatté ce fil.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
13
Affichages
2 K
Réponses
3
Affichages
930
Réponses
0
Affichages
493
Réponses
2
Affichages
1 K
  • Résolu(e)
Microsoft 365 Calendrier
Réponses
7
Affichages
2 K
Retour