XL 2013 Ajustement automatique hauteur de ligne

[Moussetictac]

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

 

[job75]

Bonjour Linda42, le forum,

Cette macro dans Module4 est plus simple et plus rapide :

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+

 

[Linda42]

Bonjour Linda42, le forum,

Cette macro dans Module4 est plus simple et plus rapide :

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

 

[job75]

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.