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
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
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
Hello,
J'ai malheureusement un Excel en anglais mais je vais essayer de traduire:
Format cellule> Alignement> Ajuster texte (première case à cocher dans
contrôle texte)
J'espère que j'ai bien compris ce que tu voulais.
A+
"Sunburn" wrote:
> 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
Hello,
J'ai malheureusement un Excel en anglais mais je vais essayer de traduire:
Format cellule> Alignement> Ajuster texte (première case à cocher dans
contrôle texte)
J'espère que j'ai bien compris ce que tu voulais.
A+
"Sunburn" wrote:
> 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
Hello,
J'ai malheureusement un Excel en anglais mais je vais essayer de traduire:
Format cellule> Alignement> Ajuster texte (première case à cocher dans
contrôle texte)
J'espère que j'ai bien compris ce que tu voulais.
A+
"Sunburn" wrote:
> 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
Bonjour Sunburn,<br>
Tu coches la case "Renvoyer à la ligne automatiquement" dans
Format/Cellule et quand le texte dépasse Excel va automatiquement
augmenter la hauteur<br>
Sunburn a écrit :
<blockquote
cite="mid:"
type="cite">
<pre wrap="">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
</pre>
</blockquote>
</body>
</html>
Bonjour Sunburn,<br>
Tu coches la case "Renvoyer à la ligne automatiquement" dans
Format/Cellule et quand le texte dépasse Excel va automatiquement
augmenter la hauteur<br>
Sunburn a écrit :
<blockquote
cite="mid:709FB512-D5EA-4C5D-AD91-D954D409543D@microsoft.com"
type="cite">
<pre wrap="">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
</pre>
</blockquote>
</body>
</html>
Bonjour Sunburn,<br>
Tu coches la case "Renvoyer à la ligne automatiquement" dans
Format/Cellule et quand le texte dépasse Excel va automatiquement
augmenter la hauteur<br>
Sunburn a écrit :
<blockquote
cite="mid:"
type="cite">
<pre wrap="">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
</pre>
</blockquote>
</body>
</html>
Re,
pour compléter, ça marche avec une celulle (j'avais oublié le "Format /
lignes / ajustement automatique"), mais ça marche pas avec une ligne de
celulles fusionnées.
je m'explique : je fusionne 1 ligne, de la colonne A à H, et je veux que
ce
soit cette celulle fusionnée qui s'ajuste en hauteur.
Est ce possible, en VBA ou pas.
MERCI.
Yann
Re,
pour compléter, ça marche avec une celulle (j'avais oublié le "Format /
lignes / ajustement automatique"), mais ça marche pas avec une ligne de
celulles fusionnées.
je m'explique : je fusionne 1 ligne, de la colonne A à H, et je veux que
ce
soit cette celulle fusionnée qui s'ajuste en hauteur.
Est ce possible, en VBA ou pas.
MERCI.
Yann
Re,
pour compléter, ça marche avec une celulle (j'avais oublié le "Format /
lignes / ajustement automatique"), mais ça marche pas avec une ligne de
celulles fusionnées.
je m'explique : je fusionne 1 ligne, de la colonne A à H, et je veux que
ce
soit cette celulle fusionnée qui s'ajuste en hauteur.
Est ce possible, en VBA ou pas.
MERCI.
Yann
Mets le code suivant dans le module de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Largeur As Double, Hauteur As Single
If Target.Address <> "$A$22" Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Largeur = 10.71 * 8
Hauteur = 15
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
Rows(22).RowHeight = c.Height
End With
Application.EnableEvents = True
End Sub
Ca fonctionne si tu ne mêles pas pusieurs polices dans la plage A22:H22.
--
Cordialement.
Daniel
"Sunburn" a écrit dans le message de
news:
> Re,
> pour compléter, ça marche avec une celulle (j'avais oublié le "Format /
> lignes / ajustement automatique"), mais ça marche pas avec une ligne de
> celulles fusionnées.
> je m'explique : je fusionne 1 ligne, de la colonne A à H, et je veux que
> ce
> soit cette celulle fusionnée qui s'ajuste en hauteur.
>
> Est ce possible, en VBA ou pas.
> MERCI.
>
> Yann
Mets le code suivant dans le module de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Largeur As Double, Hauteur As Single
If Target.Address <> "$A$22" Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Largeur = 10.71 * 8
Hauteur = 15
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
Rows(22).RowHeight = c.Height
End With
Application.EnableEvents = True
End Sub
Ca fonctionne si tu ne mêles pas pusieurs polices dans la plage A22:H22.
--
Cordialement.
Daniel
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 202B9801-9C49-4319-8DC4-030D73748877@microsoft.com...
> Re,
> pour compléter, ça marche avec une celulle (j'avais oublié le "Format /
> lignes / ajustement automatique"), mais ça marche pas avec une ligne de
> celulles fusionnées.
> je m'explique : je fusionne 1 ligne, de la colonne A à H, et je veux que
> ce
> soit cette celulle fusionnée qui s'ajuste en hauteur.
>
> Est ce possible, en VBA ou pas.
> MERCI.
>
> Yann
Mets le code suivant dans le module de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Largeur As Double, Hauteur As Single
If Target.Address <> "$A$22" Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Largeur = 10.71 * 8
Hauteur = 15
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
Rows(22).RowHeight = c.Height
End With
Application.EnableEvents = True
End Sub
Ca fonctionne si tu ne mêles pas pusieurs polices dans la plage A22:H22.
--
Cordialement.
Daniel
"Sunburn" a écrit dans le message de
news:
> Re,
> pour compléter, ça marche avec une celulle (j'avais oublié le "Format /
> lignes / ajustement automatique"), mais ça marche pas avec une ligne de
> celulles fusionnées.
> je m'explique : je fusionne 1 ligne, de la colonne A à H, et je veux que
> ce
> soit cette celulle fusionnée qui s'ajuste en hauteur.
>
> Est ce possible, en VBA ou pas.
> MERCI.
>
> Yann
Mets le code suivant dans le module de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Largeur As Double, Hauteur As Single
If Target.Address <> "$A$22" Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Largeur = 10.71 * 8
Hauteur = 15
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
Rows(22).RowHeight = c.Height
End With
Application.EnableEvents = True
End Sub
Ca fonctionne si tu ne mêles pas pusieurs polices dans la plage A22:H22.
--
Cordialement.
Daniel
"Sunburn" a écrit dans le message de
news:
> Re,
> pour compléter, ça marche avec une celulle (j'avais oublié le "Format /
> lignes / ajustement automatique"), mais ça marche pas avec une ligne de
> celulles fusionnées.
> je m'explique : je fusionne 1 ligne, de la colonne A à H, et je veux que
> ce
> soit cette celulle fusionnée qui s'ajuste en hauteur.
>
> Est ce possible, en VBA ou pas.
> MERCI.
>
> Yann
Mets le code suivant dans le module de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Largeur As Double, Hauteur As Single
If Target.Address <> "$A$22" Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Largeur = 10.71 * 8
Hauteur = 15
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
Rows(22).RowHeight = c.Height
End With
Application.EnableEvents = True
End Sub
Ca fonctionne si tu ne mêles pas pusieurs polices dans la plage A22:H22.
--
Cordialement.
Daniel
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 202B9801-9C49-4319-8DC4-030D73748877@microsoft.com...
> Re,
> pour compléter, ça marche avec une celulle (j'avais oublié le "Format /
> lignes / ajustement automatique"), mais ça marche pas avec une ligne de
> celulles fusionnées.
> je m'explique : je fusionne 1 ligne, de la colonne A à H, et je veux que
> ce
> soit cette celulle fusionnée qui s'ajuste en hauteur.
>
> Est ce possible, en VBA ou pas.
> MERCI.
>
> Yann
Mets le code suivant dans le module de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Largeur As Double, Hauteur As Single
If Target.Address <> "$A$22" Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Largeur = 10.71 * 8
Hauteur = 15
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
Rows(22).RowHeight = c.Height
End With
Application.EnableEvents = True
End Sub
Ca fonctionne si tu ne mêles pas pusieurs polices dans la plage A22:H22.
--
Cordialement.
Daniel
"Sunburn" a écrit dans le message de
news:
> Re,
> pour compléter, ça marche avec une celulle (j'avais oublié le "Format /
> lignes / ajustement automatique"), mais ça marche pas avec une ligne de
> celulles fusionnées.
> je m'explique : je fusionne 1 ligne, de la colonne A à H, et je veux que
> ce
> soit cette celulle fusionnée qui s'ajuste en hauteur.
>
> Est ce possible, en VBA ou pas.
> MERCI.
>
> Yann
Impecable, ça focntionne.
Désolé pour la question d'avant, il suffit de saisir un truc dans la
celulle, nickel crome !!!!
Et, on peut lui demander vite pour que ça fonctionne pour une page
entière,
voir le classeur entier, seulement pour les celulles qui sont en "renvoyer
à
la ligne automatiquement", ça, ça serait la cerise sur le gateau.
MERCI..
....
Par contre, le 16/09, j'avais mis un post pour un problème d'impression.
Ta
réponse et celle d'un autre du forum m'aide, mais ne fonctionne pas, car
le
fait que NA soit saisi ou pas dans la celule A4,il imprime la feuille
quand
même.
Donc si tu as une autre idée pour moi, merci d'avance.
YANN
"Daniel.C" a écrit :Mets le code suivant dans le module de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Largeur As Double, Hauteur As Single
If Target.Address <> "$A$22" Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Largeur = 10.71 * 8
Hauteur = 15
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
Rows(22).RowHeight = c.Height
End With
Application.EnableEvents = True
End Sub
Ca fonctionne si tu ne mêles pas pusieurs polices dans la plage A22:H22.
--
Cordialement.
Daniel
"Sunburn" a écrit dans le message de
news:
> Re,
> pour compléter, ça marche avec une celulle (j'avais oublié le "Format /
> lignes / ajustement automatique"), mais ça marche pas avec une ligne de
> celulles fusionnées.
> je m'explique : je fusionne 1 ligne, de la colonne A à H, et je veux
> que
> ce
> soit cette celulle fusionnée qui s'ajuste en hauteur.
>
> Est ce possible, en VBA ou pas.
> MERCI.
>
> Yann
Impecable, ça focntionne.
Désolé pour la question d'avant, il suffit de saisir un truc dans la
celulle, nickel crome !!!!
Et, on peut lui demander vite pour que ça fonctionne pour une page
entière,
voir le classeur entier, seulement pour les celulles qui sont en "renvoyer
à
la ligne automatiquement", ça, ça serait la cerise sur le gateau.
MERCI..
....
Par contre, le 16/09, j'avais mis un post pour un problème d'impression.
Ta
réponse et celle d'un autre du forum m'aide, mais ne fonctionne pas, car
le
fait que NA soit saisi ou pas dans la celule A4,il imprime la feuille
quand
même.
Donc si tu as une autre idée pour moi, merci d'avance.
YANN
"Daniel.C" a écrit :
Mets le code suivant dans le module de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Largeur As Double, Hauteur As Single
If Target.Address <> "$A$22" Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Largeur = 10.71 * 8
Hauteur = 15
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
Rows(22).RowHeight = c.Height
End With
Application.EnableEvents = True
End Sub
Ca fonctionne si tu ne mêles pas pusieurs polices dans la plage A22:H22.
--
Cordialement.
Daniel
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 202B9801-9C49-4319-8DC4-030D73748877@microsoft.com...
> Re,
> pour compléter, ça marche avec une celulle (j'avais oublié le "Format /
> lignes / ajustement automatique"), mais ça marche pas avec une ligne de
> celulles fusionnées.
> je m'explique : je fusionne 1 ligne, de la colonne A à H, et je veux
> que
> ce
> soit cette celulle fusionnée qui s'ajuste en hauteur.
>
> Est ce possible, en VBA ou pas.
> MERCI.
>
> Yann
Impecable, ça focntionne.
Désolé pour la question d'avant, il suffit de saisir un truc dans la
celulle, nickel crome !!!!
Et, on peut lui demander vite pour que ça fonctionne pour une page
entière,
voir le classeur entier, seulement pour les celulles qui sont en "renvoyer
à
la ligne automatiquement", ça, ça serait la cerise sur le gateau.
MERCI..
....
Par contre, le 16/09, j'avais mis un post pour un problème d'impression.
Ta
réponse et celle d'un autre du forum m'aide, mais ne fonctionne pas, car
le
fait que NA soit saisi ou pas dans la celule A4,il imprime la feuille
quand
même.
Donc si tu as une autre idée pour moi, merci d'avance.
YANN
"Daniel.C" a écrit :Mets le code suivant dans le module de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Largeur As Double, Hauteur As Single
If Target.Address <> "$A$22" Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Largeur = 10.71 * 8
Hauteur = 15
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
Rows(22).RowHeight = c.Height
End With
Application.EnableEvents = True
End Sub
Ca fonctionne si tu ne mêles pas pusieurs polices dans la plage A22:H22.
--
Cordialement.
Daniel
"Sunburn" a écrit dans le message de
news:
> Re,
> pour compléter, ça marche avec une celulle (j'avais oublié le "Format /
> lignes / ajustement automatique"), mais ça marche pas avec une ligne de
> celulles fusionnées.
> je m'explique : je fusionne 1 ligne, de la colonne A à H, et je veux
> que
> ce
> soit cette celulle fusionnée qui s'ajuste en hauteur.
>
> Est ce possible, en VBA ou pas.
> MERCI.
>
> Yann
Dans "thisworkbook", mets :
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
Application.EnableEvents = True
End Sub
Cordialement.
Daniel
"Sunburn" a écrit dans le message de
news:
> Impecable, ça focntionne.
> Désolé pour la question d'avant, il suffit de saisir un truc dans la
> celulle, nickel crome !!!!
>
> Et, on peut lui demander vite pour que ça fonctionne pour une page
> entière,
> voir le classeur entier, seulement pour les celulles qui sont en "renvoyer
> à
> la ligne automatiquement", ça, ça serait la cerise sur le gateau.
>
> MERCI..
>
> ....
> Par contre, le 16/09, j'avais mis un post pour un problème d'impression.
> Ta
> réponse et celle d'un autre du forum m'aide, mais ne fonctionne pas, car
> le
> fait que NA soit saisi ou pas dans la celule A4,il imprime la feuille
> quand
> même.
> Donc si tu as une autre idée pour moi, merci d'avance.
> YANN
>
>
>
> "Daniel.C" a écrit :
>
>> Mets le code suivant dans le module de ta feuille :
>>
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> Dim c As Range, Largeur As Double, Hauteur As Single
>> If Target.Address <> "$A$22" Or Target.Count > 1 Then Exit Sub
>> Application.EnableEvents = False
>> Largeur = 10.71 * 8
>> Hauteur = 15
>> 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
>> Rows(22).RowHeight = c.Height
>> End With
>> Application.EnableEvents = True
>> End Sub
>>
>> Ca fonctionne si tu ne mêles pas pusieurs polices dans la plage A22:H22.
>> --
>> Cordialement.
>> Daniel
>> "Sunburn" a écrit dans le message de
>> news:
>> > Re,
>> > pour compléter, ça marche avec une celulle (j'avais oublié le "Format /
>> > lignes / ajustement automatique"), mais ça marche pas avec une ligne de
>> > celulles fusionnées.
>> > je m'explique : je fusionne 1 ligne, de la colonne A à H, et je veux
>> > que
>> > ce
>> > soit cette celulle fusionnée qui s'ajuste en hauteur.
>> >
>> > Est ce possible, en VBA ou pas.
>> > MERCI.
>> >
>> > Yann
>>
>>
>>
Dans "thisworkbook", mets :
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
Application.EnableEvents = True
End Sub
Cordialement.
Daniel
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 23D12604-9C58-4904-8EE1-F83FAC13C8D0@microsoft.com...
> Impecable, ça focntionne.
> Désolé pour la question d'avant, il suffit de saisir un truc dans la
> celulle, nickel crome !!!!
>
> Et, on peut lui demander vite pour que ça fonctionne pour une page
> entière,
> voir le classeur entier, seulement pour les celulles qui sont en "renvoyer
> à
> la ligne automatiquement", ça, ça serait la cerise sur le gateau.
>
> MERCI..
>
> ....
> Par contre, le 16/09, j'avais mis un post pour un problème d'impression.
> Ta
> réponse et celle d'un autre du forum m'aide, mais ne fonctionne pas, car
> le
> fait que NA soit saisi ou pas dans la celule A4,il imprime la feuille
> quand
> même.
> Donc si tu as une autre idée pour moi, merci d'avance.
> YANN
>
>
>
> "Daniel.C" a écrit :
>
>> Mets le code suivant dans le module de ta feuille :
>>
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> Dim c As Range, Largeur As Double, Hauteur As Single
>> If Target.Address <> "$A$22" Or Target.Count > 1 Then Exit Sub
>> Application.EnableEvents = False
>> Largeur = 10.71 * 8
>> Hauteur = 15
>> 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
>> Rows(22).RowHeight = c.Height
>> End With
>> Application.EnableEvents = True
>> End Sub
>>
>> Ca fonctionne si tu ne mêles pas pusieurs polices dans la plage A22:H22.
>> --
>> Cordialement.
>> Daniel
>> "Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
>> news: 202B9801-9C49-4319-8DC4-030D73748877@microsoft.com...
>> > Re,
>> > pour compléter, ça marche avec une celulle (j'avais oublié le "Format /
>> > lignes / ajustement automatique"), mais ça marche pas avec une ligne de
>> > celulles fusionnées.
>> > je m'explique : je fusionne 1 ligne, de la colonne A à H, et je veux
>> > que
>> > ce
>> > soit cette celulle fusionnée qui s'ajuste en hauteur.
>> >
>> > Est ce possible, en VBA ou pas.
>> > MERCI.
>> >
>> > Yann
>>
>>
>>
Dans "thisworkbook", mets :
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
Application.EnableEvents = True
End Sub
Cordialement.
Daniel
"Sunburn" a écrit dans le message de
news:
> Impecable, ça focntionne.
> Désolé pour la question d'avant, il suffit de saisir un truc dans la
> celulle, nickel crome !!!!
>
> Et, on peut lui demander vite pour que ça fonctionne pour une page
> entière,
> voir le classeur entier, seulement pour les celulles qui sont en "renvoyer
> à
> la ligne automatiquement", ça, ça serait la cerise sur le gateau.
>
> MERCI..
>
> ....
> Par contre, le 16/09, j'avais mis un post pour un problème d'impression.
> Ta
> réponse et celle d'un autre du forum m'aide, mais ne fonctionne pas, car
> le
> fait que NA soit saisi ou pas dans la celule A4,il imprime la feuille
> quand
> même.
> Donc si tu as une autre idée pour moi, merci d'avance.
> YANN
>
>
>
> "Daniel.C" a écrit :
>
>> Mets le code suivant dans le module de ta feuille :
>>
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> Dim c As Range, Largeur As Double, Hauteur As Single
>> If Target.Address <> "$A$22" Or Target.Count > 1 Then Exit Sub
>> Application.EnableEvents = False
>> Largeur = 10.71 * 8
>> Hauteur = 15
>> 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
>> Rows(22).RowHeight = c.Height
>> End With
>> Application.EnableEvents = True
>> End Sub
>>
>> Ca fonctionne si tu ne mêles pas pusieurs polices dans la plage A22:H22.
>> --
>> Cordialement.
>> Daniel
>> "Sunburn" a écrit dans le message de
>> news:
>> > Re,
>> > pour compléter, ça marche avec une celulle (j'avais oublié le "Format /
>> > lignes / ajustement automatique"), mais ça marche pas avec une ligne de
>> > celulles fusionnées.
>> > je m'explique : je fusionne 1 ligne, de la colonne A à H, et je veux
>> > que
>> > ce
>> > soit cette celulle fusionnée qui s'ajuste en hauteur.
>> >
>> > Est ce possible, en VBA ou pas.
>> > MERCI.
>> >
>> > Yann
>>
>>
>>