Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Taille de celulle

Taille de celulle

23 réponses
Avatar
Sunburn
Bonjour,
je voudrais savoir s'il est possible d'avoir une celulle ou une sélection de
celulles fusionnées, qui puissent avoir une taille qui s'adapte en fonction
du texte saisi.

En effet, j'ai besoin d'avoir des zones de saisie de commentaires, qui
soient facilement extensible pour ne pas obliger l'utilisateur landa à
insérer des lignes.
L'idéal serait une ligne de saisie (colonnes A à H par exemple), ligne 22,
mais dont la hauteur s'adapte en fonction du texte saisie (sur 12 si 1 ligne
par exemple, mais 20 ou 24 pour 2 lignes, etc...)

J'espère être explicite, ce n'est pas facile.

merci
YANN
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Sunburn
Bonjour,
je te remercie.
Sur ton fichier, ça fonctionne très bien.
sur le mien, ça ne fonctionne pas, donc je vais encore chercher pour savoir
pourquoi ça bug.
Je te remercie.
dans le pire des cas, je pourrais peut-être t'envoyer mon fichier ?

Merci encore.
YANN

"Daniel.C" a écrit :

Exact. J'ai effectué une petite (deux) correction(s) :
http://cjoint.com/?jBax2SCuPk

Daniel
"Sunburn" a écrit dans le message de
news:
> Salut
> je vpois que ça fonctionne sur ton exemple.
> Je viens de reprendre exactement ton code macro, il plante là dans le
> module :
> ---
> Loop While Cel.Address <> ResAdr
> -----
> moi ma cellule où il y a le "=xxx" est sur une autre feuille.
> Je te joins ton modèle, j'ai juste mis le "=xxx" sur la feuille 5...
> Et il en manque un bout..
> http://cjoint.com/data/jAqv3BWdJh.htm
> Dis-moi si y'a un truc ke je fais mal ?
> Merci YANN
>
>
> "Daniel.C" a écrit :
>
>> Tout se fait automatiquement, tu n'as pas à exécuter la macro Recalcul :
>> http://cjoint.com/?jAp46LTEL4
>>
>>
>> Daniel
>> "Sunburn" a écrit dans le message de
>> news:
>> > Ben, je veux bien, car chez moi, je viens juste de faire le test, et
>> > avec
>> > "Recalcul", et ben les hauteurs de ligne ne s'ajustent plus du tout,
>> > sur
>> > toutes mes cellules fusionnées.....
>> > y'a eu une modif entre le code du début et celui-là, c'est pt_t à cause
>> > de
>> > ça :
>> > ---
>> > Set c = Range(.Cells(.Rows.Count, .Columns.Count).Address).Offset(1,
>> > 1)
>> > ----
>> > je te remet ce que j'ai en ce moment en VBA:
>> > **thisworkbook:
>> > ---
>> > 'hauteur des lignes automatique
>> > Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As
>> > Range)
>> > Dim c As Range, Largeur As Double, Hauteur As Single
>> > If Target.WrapText = False Or Target.Count > 1 Then Exit Sub
>> > For I = 1 To Target.MergeArea.Columns.Count
>> > Largeur = Largeur + Target.ColumnWidth
>> > Next I
>> > Application.EnableEvents = False
>> > With ActiveSheet.UsedRange
>> > Set c = Range(.Cells(.Rows.Count, .Columns.Count).Address).Offset(1,
>> > 1)
>> > c.ColumnWidth = Largeur
>> > c.WrapText = True
>> > c.Value = Target.Value
>> > Target.EntireRow.RowHeight = c.Height
>> > c.Clear
>> > End With
>> > 'Recalcul
>> > Application.EnableEvents = True
>> > End Sub
>> > ------
>> > **module1
>> > ---
>> > 'Recalcul des cellules pages GA01
>> > Sub Recalcul()
>> > Dim c As Range, Largeur As Double, Hauteur As Single
>> > Dim Cel As Range, sh As Worksheet, ResAdr As String
>> > For Each sh In Sheets
>> > With Application.FindFormat
>> > .WrapText = True
>> > .MergeCells = True
>> > End With
>> > Set Cel = sh.Cells.Find("*", SearchFormat:=True)
>> > If Not Cel Is Nothing Then
>> > ResAdr = Cel.Address
>> > Do
>> > Var = Cel.Address
>> > r = sh.Name
>> > If Cel.HasFormula = True Then
>> > For I = 1 To Cel.MergeArea.Columns.Count
>> > Largeur = Largeur + Cel.ColumnWidth
>> > Next I
>> > With ActiveSheet.UsedRange
>> > Set c = Range(.Cells(.Rows.Count,
>> > .Columns.Count).Address).Offset(1)
>> > Var = c.Address
>> > c.ColumnWidth = Largeur
>> > c.WrapText = True
>> > c.Value = Cel.Value
>> > Cel.EntireRow.RowHeight = c.Height
>> > c.Clear
>> > End With
>> > End If
>> > Set Cel = sh.Cells.Find("*", after:Îl,
>> > SearchFormat:=True)
>> > Set Cel = Cells.FindNext(Cel)
>> > Loop While Cel.Address <> ResAdr
>> > End If
>> > Next sh
>> > End Sub
>> > ------
>> >
>> >
>> > "Daniel.C" a écrit :
>> >
>> >> En fait, ce que j'ai voulu faire, et ça fonctionne chez moi, c'est
>> >> que,
>> >> quand tu modifies une quelconque cellule ayant la propriété "renvoi à
>> >> la
>> >> ligne automatique", la hauteur de la ligne s'ajuste, comme hier, et la
>> >> macro
>> >> "recalcul" se déclenche, en recherchant toutes les cellules fusionnées
>> >> et
>> >> ayant un renvoi automatique et une formule, et ajustant la hauteur de
>> >> ces
>> >> cellules. Je t'envoie un classeur exemple si tu le désire.
>> >>
>> >> Cordialement.
>> >> Daniel
>> >>
>>
>>
>>





Avatar
Daniel.C
Bonjour.
Pas de problème, mon adresse est
en ôtant les Z.
--
Cordialement.
Daniel
"Sunburn" a écrit dans le message de
news:
Bonjour,
je te remercie.
Sur ton fichier, ça fonctionne très bien.
sur le mien, ça ne fonctionne pas, donc je vais encore chercher pour
savoir
pourquoi ça bug.
Je te remercie.
dans le pire des cas, je pourrais peut-être t'envoyer mon fichier ?

Merci encore.
YANN

"Daniel.C" a écrit :

Exact. J'ai effectué une petite (deux) correction(s) :
http://cjoint.com/?jBax2SCuPk

Daniel
"Sunburn" a écrit dans le message de
news:
> Salut
> je vpois que ça fonctionne sur ton exemple.
> Je viens de reprendre exactement ton code macro, il plante là dans le
> module :
> ---
> Loop While Cel.Address <> ResAdr
> -----
> moi ma cellule où il y a le "=xxx" est sur une autre feuille.
> Je te joins ton modèle, j'ai juste mis le "=xxx" sur la feuille 5...
> Et il en manque un bout..
> http://cjoint.com/data/jAqv3BWdJh.htm
> Dis-moi si y'a un truc ke je fais mal ?
> Merci YANN
>
>
> "Daniel.C" a écrit :
>
>> Tout se fait automatiquement, tu n'as pas à exécuter la macro Recalcul
>> :
>> http://cjoint.com/?jAp46LTEL4
>>
>>
>> Daniel
>> "Sunburn" a écrit dans le message
>> de
>> news:
>> > Ben, je veux bien, car chez moi, je viens juste de faire le test, et
>> > avec
>> > "Recalcul", et ben les hauteurs de ligne ne s'ajustent plus du tout,
>> > sur
>> > toutes mes cellules fusionnées.....
>> > y'a eu une modif entre le code du début et celui-là, c'est pt_t à
>> > cause
>> > de
>> > ça :
>> > ---
>> > Set c = Range(.Cells(.Rows.Count,
>> > .Columns.Count).Address).Offset(1,
>> > 1)
>> > ----
>> > je te remet ce que j'ai en ce moment en VBA:
>> > **thisworkbook:
>> > ---
>> > 'hauteur des lignes automatique
>> > Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As
>> > Range)
>> > Dim c As Range, Largeur As Double, Hauteur As Single
>> > If Target.WrapText = False Or Target.Count > 1 Then Exit Sub
>> > For I = 1 To Target.MergeArea.Columns.Count
>> > Largeur = Largeur + Target.ColumnWidth
>> > Next I
>> > Application.EnableEvents = False
>> > With ActiveSheet.UsedRange
>> > Set c = Range(.Cells(.Rows.Count,
>> > .Columns.Count).Address).Offset(1,
>> > 1)
>> > c.ColumnWidth = Largeur
>> > c.WrapText = True
>> > c.Value = Target.Value
>> > Target.EntireRow.RowHeight = c.Height
>> > c.Clear
>> > End With
>> > 'Recalcul
>> > Application.EnableEvents = True
>> > End Sub
>> > ------
>> > **module1
>> > ---
>> > 'Recalcul des cellules pages GA01
>> > Sub Recalcul()
>> > Dim c As Range, Largeur As Double, Hauteur As Single
>> > Dim Cel As Range, sh As Worksheet, ResAdr As String
>> > For Each sh In Sheets
>> > With Application.FindFormat
>> > .WrapText = True
>> > .MergeCells = True
>> > End With
>> > Set Cel = sh.Cells.Find("*", SearchFormat:=True)
>> > If Not Cel Is Nothing Then
>> > ResAdr = Cel.Address
>> > Do
>> > Var = Cel.Address
>> > r = sh.Name
>> > If Cel.HasFormula = True Then
>> > For I = 1 To Cel.MergeArea.Columns.Count
>> > Largeur = Largeur + Cel.ColumnWidth
>> > Next I
>> > With ActiveSheet.UsedRange
>> > Set c = Range(.Cells(.Rows.Count,
>> > .Columns.Count).Address).Offset(1)
>> > Var = c.Address
>> > c.ColumnWidth = Largeur
>> > c.WrapText = True
>> > c.Value = Cel.Value
>> > Cel.EntireRow.RowHeight = c.Height
>> > c.Clear
>> > End With
>> > End If
>> > Set Cel = sh.Cells.Find("*", after:Îl,
>> > SearchFormat:=True)
>> > Set Cel = Cells.FindNext(Cel)
>> > Loop While Cel.Address <> ResAdr
>> > End If
>> > Next sh
>> > End Sub
>> > ------
>> >
>> >
>> > "Daniel.C" a écrit :
>> >
>> >> En fait, ce que j'ai voulu faire, et ça fonctionne chez moi, c'est
>> >> que,
>> >> quand tu modifies une quelconque cellule ayant la propriété "renvoi
>> >> à
>> >> la
>> >> ligne automatique", la hauteur de la ligne s'ajuste, comme hier, et
>> >> la
>> >> macro
>> >> "recalcul" se déclenche, en recherchant toutes les cellules
>> >> fusionnées
>> >> et
>> >> ayant un renvoi automatique et une formule, et ajustant la hauteur
>> >> de
>> >> ces
>> >> cellules. Je t'envoie un classeur exemple si tu le désire.
>> >>
>> >> Cordialement.
>> >> Daniel
>> >>
>>
>>
>>







Avatar
Sunburn
voici le lien MU
http://www.megaupload.com/fr/?d=HA2CRBJP
merci si tu vois ce qui cloche.
YANN

"Daniel.C" a écrit :

Bonjour.
Pas de problème, mon adresse est
en ôtant les Z.
--
Cordialement.
Daniel
"Sunburn" a écrit dans le message de
news:
> Bonjour,
> je te remercie.
> Sur ton fichier, ça fonctionne très bien.
> sur le mien, ça ne fonctionne pas, donc je vais encore chercher pour
> savoir
> pourquoi ça bug.
> Je te remercie.
> dans le pire des cas, je pourrais peut-être t'envoyer mon fichier ?
>
> Merci encore.
> YANN
>
> "Daniel.C" a écrit :
>
>> Exact. J'ai effectué une petite (deux) correction(s) :
>> http://cjoint.com/?jBax2SCuPk
>>
>> Daniel
>> "Sunburn" a écrit dans le message de
>> news:
>> > Salut
>> > je vpois que ça fonctionne sur ton exemple.
>> > Je viens de reprendre exactement ton code macro, il plante là dans le
>> > module :
>> > ---
>> > Loop While Cel.Address <> ResAdr
>> > -----
>> > moi ma cellule où il y a le "=xxx" est sur une autre feuille.
>> > Je te joins ton modèle, j'ai juste mis le "=xxx" sur la feuille 5...
>> > Et il en manque un bout..
>> > http://cjoint.com/data/jAqv3BWdJh.htm
>> > Dis-moi si y'a un truc ke je fais mal ?
>> > Merci YANN
>> >
>> >
>> > "Daniel.C" a écrit :
>> >
>> >> Tout se fait automatiquement, tu n'as pas à exécuter la macro Recalcul
>> >> :
>> >> http://cjoint.com/?jAp46LTEL4
>> >>
>> >>
>> >> Daniel
>> >> "Sunburn" a écrit dans le message
>> >> de
>> >> news:
>> >> > Ben, je veux bien, car chez moi, je viens juste de faire le test, et
>> >> > avec
>> >> > "Recalcul", et ben les hauteurs de ligne ne s'ajustent plus du tout,
>> >> > sur
>> >> > toutes mes cellules fusionnées.....
>> >> > y'a eu une modif entre le code du début et celui-là, c'est pt_t à
>> >> > cause
>> >> > de
>> >> > ça :
>> >> > ---
>> >> > Set c = Range(.Cells(.Rows.Count,
>> >> > .Columns.Count).Address).Offset(1,
>> >> > 1)
>> >> > ----
>> >> > je te remet ce que j'ai en ce moment en VBA:
>> >> > **thisworkbook:
>> >> > ---
>> >> > 'hauteur des lignes automatique
>> >> > Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As
>> >> > Range)
>> >> > Dim c As Range, Largeur As Double, Hauteur As Single
>> >> > If Target.WrapText = False Or Target.Count > 1 Then Exit Sub
>> >> > For I = 1 To Target.MergeArea.Columns.Count
>> >> > Largeur = Largeur + Target.ColumnWidth
>> >> > Next I
>> >> > Application.EnableEvents = False
>> >> > With ActiveSheet.UsedRange
>> >> > Set c = Range(.Cells(.Rows.Count,
>> >> > .Columns.Count).Address).Offset(1,
>> >> > 1)
>> >> > c.ColumnWidth = Largeur
>> >> > c.WrapText = True
>> >> > c.Value = Target.Value
>> >> > Target.EntireRow.RowHeight = c.Height
>> >> > c.Clear
>> >> > End With
>> >> > 'Recalcul
>> >> > Application.EnableEvents = True
>> >> > End Sub
>> >> > ------
>> >> > **module1
>> >> > ---
>> >> > 'Recalcul des cellules pages GA01
>> >> > Sub Recalcul()
>> >> > Dim c As Range, Largeur As Double, Hauteur As Single
>> >> > Dim Cel As Range, sh As Worksheet, ResAdr As String
>> >> > For Each sh In Sheets
>> >> > With Application.FindFormat
>> >> > .WrapText = True
>> >> > .MergeCells = True
>> >> > End With
>> >> > Set Cel = sh.Cells.Find("*", SearchFormat:=True)
>> >> > If Not Cel Is Nothing Then
>> >> > ResAdr = Cel.Address
>> >> > Do
>> >> > Var = Cel.Address
>> >> > r = sh.Name
>> >> > If Cel.HasFormula = True Then
>> >> > For I = 1 To Cel.MergeArea.Columns.Count
>> >> > Largeur = Largeur + Cel.ColumnWidth
>> >> > Next I
>> >> > With ActiveSheet.UsedRange
>> >> > Set c = Range(.Cells(.Rows.Count,
>> >> > .Columns.Count).Address).Offset(1)
>> >> > Var = c.Address
>> >> > c.ColumnWidth = Largeur
>> >> > c.WrapText = True
>> >> > c.Value = Cel.Value
>> >> > Cel.EntireRow.RowHeight = c.Height
>> >> > c.Clear
>> >> > End With
>> >> > End If
>> >> > Set Cel = sh.Cells.Find("*", after:Îl,
>> >> > SearchFormat:=True)
>> >> > Set Cel = Cells.FindNext(Cel)
>> >> > Loop While Cel.Address <> ResAdr
>> >> > End If
>> >> > Next sh
>> >> > End Sub
>> >> > ------
>> >> >
>> >> >
>> >> > "Daniel.C" a écrit :
>> >> >
>> >> >> En fait, ce que j'ai voulu faire, et ça fonctionne chez moi, c'est
>> >> >> que,
>> >> >> quand tu modifies une quelconque cellule ayant la propriété "renvoi
>> >> >> à
>> >> >> la
>> >> >> ligne automatique", la hauteur de la ligne s'ajuste, comme hier, et
>> >> >> la
>> >> >> macro
>> >> >> "recalcul" se déclenche, en recherchant toutes les cellules
>> >> >> fusionnées
>> >> >> et
>> >> >> ayant un renvoi automatique et une formule, et ajustant la hauteur
>> >> >> de
>> >> >> ces
>> >> >> cellules. Je t'envoie un classeur exemple si tu le désire.
>> >> >>
>> >> >> Cordialement.
>> >> >> Daniel
>> >> >>
>> >>
>> >>
>> >>
>>
>>
>>





1 2 3