Bonjour,
Voici mon souci, j'utilise Office 2010. J'ai disons un tableau de saisie sur un 1er onglet, et sur un second onglet, un autre tableau qui utilise beaucoup de formules à partir des données du tableau de saisie.
Dans une cellule de mon tableau de saisie, je saisie soit 1, soit 2 voir 3 lignes de textes (séparé par ALT + ENTRER pour passer à la ligne suivante). Pour cette cellule, la hauteur des lignes est ajustée automatiquement en fonction du nombre de lignes que je saisie.
J'ai donc paramétré pour cette cellule, le renvoi auto des lignes + ajustement présent dans Format/Alignement).
Dans mon second onglet, j'ai une cellule qui contient la formule ='ONGLET1!CELLULE, afin d'afficher exactement le même contenu que la cellule saisie sur le premier onglet. Le paramétrage est exactement le même que la cellule du 1er onglet soit renvoi auto des lignes + ajustement.
C'est là que le problème se pose, si je change le nombre de ligne de ma 1ère cellule, l’ajustement de la hauteur de ligne se fait bien pour cette cellule, mais pas pour celle qui contient la formule. Je suis obligé de sélectionner la cellule et de cliquer deux fois sur n'importe quel paramètre de l’alignement. (exemple : je désélectionne le renvoi auto et je le sélectionne à nouveau, là, l'ajustement se fait bien).
Je voudrais ne pas à avoir à faire cette manipulation (les formules sont elles bien recalculés automatiquement OPTION/FORMULES/MODE DE CALCUL/AUTO).
autrement en VBA tu peux paramétrer ton code de façon définitive, si par exemple il s'agit de ta feuille nommée Feuil2 et tes données qui conditionnent la hauteur de ligne est colonne A
il suffit de faire un clic droit sur l'onglet de cette feuille/Visualiser le code et coller ce code
Private Sub Worksheet_Activate() On Error Resume Next For Each cel In Range("A:A") 'conditionne une plage If cel <> "" Then Set m = cel.MergeArea m.UnMerge m.WrapText = True 'renvoie à la ligne m.HorizontalAlignment = xlCenterAcrossSelection m.Rows.AutoFit m.Merge m.HorizontalAlignment = xlGeneral 'facultatif bien sûr End If Next End Sub
il suffit simplement d'adapter l'index colonne que j'ai mis en gras Range("A:A")
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
pour traiter tous les cas de figure qui pourrait se présenter en tenant compte du post 2 du demandeur
et prévoir le retour ligne s'il n'a pas été programmé
mais effectivement Rows.AutoFit suffit
cordialement
Merci pour la rapidité :)
Je préfèrerais ne pas utilisé vba (j'ai quelques notions, c'est plutôt pour que les personnes qui utilise le fichier n'ai pas besoin de modifier le vba en cas de problème ou de modification du fichier). Du coup cela n'est pas possible? Je trouve le fonctionnement un peu bête puisque le recalcule de la formule est fait automatiquement, pourquoi pas l'ajustement?
Je suppose que cela va ajuster la hauteur de toute mes lignes or je n'en ai besoin uniquement pour certaine cellules.
J'ai garder ça :
Private Sub Worksheet_Activate()
On Error Resume Next
For Each cel In Range("B20:B50") 'conditionne une plage
If cel <> "" Then
Set m = cel.MergeArea
m.Rows.AutoFit
End If
Next
End Sub
C'est peut être un peu trop. Enfin, si je fais des manipulations sur l'onglet, copié ou autre. Je perd ma formule. Si c'est moi qui l'utilise, pas de problème. Mais cela ne me convient quand même pas trop. Merci à vous
c'est toi qui juge, je t'ai donné un code qui traite le retour ligne, s'il y a des cellules fusionnées et s'applique à une colonne afin de prendre en compte ton post 2
à toi de voir
- Messages postés
-
23375
- Date d'inscription
- mardi 11 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 30 juin 2020
6 221Pourquoi tu tiens compte des fusions ?
Private Sub Worksheet_Activate() Rows.AutoFit End Subne suffit pas ?
eric
- Messages postés
-
17133
- Date d'inscription
- dimanche 17 février 2008
- Statut
- Contributeur
- Dernière intervention
- 3 juillet 2020
4 114pour traiter tous les cas de figure qui pourrait se présenter en tenant compte du post 2 du demandeur
et prévoir le retour ligne s'il n'a pas été programmé
mais effectivement Rows.AutoFit suffit
cordialement