Bonsoir
Je souhaite que les éléments d'une cellule aille dans une autre, mais que la
taille de la cellule s'adapte au contenu de celle-ci
J'essaye cela mais sans succès
Merci beaucoup
Didier
Sheets("Fiche").Range("B19") = ActiveCell.Offset(0, 15).Value
If Sheets("Fiche").Range("B19").RowHeight > 24 Then
Sheets("Fiche").Range("B19").EntireRow.AutoFit
Else
Sheets("Fiche").Range("B19").RowHeight = 24
End If
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
LSteph
Bonsoir Didier,
Pourquoi pas l'autofit simplement, je ne saisis pas le but des conditions.
a+
lSteph
"Didier Novarin" a écrit dans le message de news: %
Bonsoir Je souhaite que les éléments d'une cellule aille dans une autre, mais que la taille de la cellule s'adapte au contenu de celle-ci J'essaye cela mais sans succès Merci beaucoup Didier
Sheets("Fiche").Range("B19") = ActiveCell.Offset(0, 15).Value If Sheets("Fiche").Range("B19").RowHeight > 24 Then Sheets("Fiche").Range("B19").EntireRow.AutoFit Else Sheets("Fiche").Range("B19").RowHeight = 24 End If
Bonsoir Didier,
Pourquoi pas l'autofit simplement,
je ne saisis pas le but des conditions.
a+
lSteph
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: %23QedmpczFHA.1616@TK2MSFTNGP10.phx.gbl...
Bonsoir
Je souhaite que les éléments d'une cellule aille dans une autre, mais que
la taille de la cellule s'adapte au contenu de celle-ci
J'essaye cela mais sans succès
Merci beaucoup
Didier
Sheets("Fiche").Range("B19") = ActiveCell.Offset(0, 15).Value
If Sheets("Fiche").Range("B19").RowHeight > 24 Then
Sheets("Fiche").Range("B19").EntireRow.AutoFit
Else
Sheets("Fiche").Range("B19").RowHeight = 24
End If
Pourquoi pas l'autofit simplement, je ne saisis pas le but des conditions.
a+
lSteph
"Didier Novarin" a écrit dans le message de news: %
Bonsoir Je souhaite que les éléments d'une cellule aille dans une autre, mais que la taille de la cellule s'adapte au contenu de celle-ci J'essaye cela mais sans succès Merci beaucoup Didier
Sheets("Fiche").Range("B19") = ActiveCell.Offset(0, 15).Value If Sheets("Fiche").Range("B19").RowHeight > 24 Then Sheets("Fiche").Range("B19").EntireRow.AutoFit Else Sheets("Fiche").Range("B19").RowHeight = 24 End If
Didier Novarin
Bonsoir Lsteph Je laisse tomber les conditions ;-) je voudrais faire quelque chose de ce genre afin que la cellule s'adapte au contenu Didier
Pourquoi pas l'autofit simplement, je ne saisis pas le but des conditions.
a+
lSteph
"Didier Novarin" a écrit dans le message de news: %
Bonsoir Je souhaite que les éléments d'une cellule aille dans une autre, mais que la taille de la cellule s'adapte au contenu de celle-ci J'essaye cela mais sans succès Merci beaucoup Didier
Sheets("Fiche").Range("B19") = ActiveCell.Offset(0, 15).Value If Sheets("Fiche").Range("B19").RowHeight > 24 Then Sheets("Fiche").Range("B19").EntireRow.AutoFit Else Sheets("Fiche").Range("B19").RowHeight = 24 End If
Bonsoir Lsteph
Je laisse tomber les conditions ;-)
je voudrais faire quelque chose de ce genre
afin que la cellule s'adapte au contenu
Didier
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23vRdx1czFHA.1028@TK2MSFTNGP12.phx.gbl...
Bonsoir Didier,
Pourquoi pas l'autofit simplement,
je ne saisis pas le but des conditions.
a+
lSteph
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: %23QedmpczFHA.1616@TK2MSFTNGP10.phx.gbl...
Bonsoir
Je souhaite que les éléments d'une cellule aille dans une autre, mais que
la taille de la cellule s'adapte au contenu de celle-ci
J'essaye cela mais sans succès
Merci beaucoup
Didier
Sheets("Fiche").Range("B19") = ActiveCell.Offset(0, 15).Value
If Sheets("Fiche").Range("B19").RowHeight > 24 Then
Sheets("Fiche").Range("B19").EntireRow.AutoFit
Else
Sheets("Fiche").Range("B19").RowHeight = 24
End If
Pourquoi pas l'autofit simplement, je ne saisis pas le but des conditions.
a+
lSteph
"Didier Novarin" a écrit dans le message de news: %
Bonsoir Je souhaite que les éléments d'une cellule aille dans une autre, mais que la taille de la cellule s'adapte au contenu de celle-ci J'essaye cela mais sans succès Merci beaucoup Didier
Sheets("Fiche").Range("B19") = ActiveCell.Offset(0, 15).Value If Sheets("Fiche").Range("B19").RowHeight > 24 Then Sheets("Fiche").Range("B19").EntireRow.AutoFit Else Sheets("Fiche").Range("B19").RowHeight = 24 End If
LSteph
Tu mets cela dans quoi et .. Qu'est-ce qui ne marche pas?
De mon côté qd je fais
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Range("B19") = Target
Pourquoi pas l'autofit simplement, je ne saisis pas le but des conditions.
a+
lSteph
"Didier Novarin" a écrit dans le message de news: %
Bonsoir Je souhaite que les éléments d'une cellule aille dans une autre, mais que la taille de la cellule s'adapte au contenu de celle-ci J'essaye cela mais sans succès Merci beaucoup Didier
Sheets("Fiche").Range("B19") = ActiveCell.Offset(0, 15).Value If Sheets("Fiche").Range("B19").RowHeight > 24 Then Sheets("Fiche").Range("B19").EntireRow.AutoFit Else Sheets("Fiche").Range("B19").RowHeight = 24 End If
Tu mets cela dans quoi et ..
Qu'est-ce qui ne marche pas?
De mon côté qd je fais
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Range("B19") = Target
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23vRdx1czFHA.1028@TK2MSFTNGP12.phx.gbl...
Bonsoir Didier,
Pourquoi pas l'autofit simplement,
je ne saisis pas le but des conditions.
a+
lSteph
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: %23QedmpczFHA.1616@TK2MSFTNGP10.phx.gbl...
Bonsoir
Je souhaite que les éléments d'une cellule aille dans une autre, mais
que la taille de la cellule s'adapte au contenu de celle-ci
J'essaye cela mais sans succès
Merci beaucoup
Didier
Sheets("Fiche").Range("B19") = ActiveCell.Offset(0, 15).Value
If Sheets("Fiche").Range("B19").RowHeight > 24 Then
Sheets("Fiche").Range("B19").EntireRow.AutoFit
Else
Sheets("Fiche").Range("B19").RowHeight = 24
End If
Pourquoi pas l'autofit simplement, je ne saisis pas le but des conditions.
a+
lSteph
"Didier Novarin" a écrit dans le message de news: %
Bonsoir Je souhaite que les éléments d'une cellule aille dans une autre, mais que la taille de la cellule s'adapte au contenu de celle-ci J'essaye cela mais sans succès Merci beaucoup Didier
Sheets("Fiche").Range("B19") = ActiveCell.Offset(0, 15).Value If Sheets("Fiche").Range("B19").RowHeight > 24 Then Sheets("Fiche").Range("B19").EntireRow.AutoFit Else Sheets("Fiche").Range("B19").RowHeight = 24 End If
Didier Novarin
C'est impeccable Lsteph Je te remercie beaucoup Bonne soirée Didier
"LSteph" a écrit dans le message de news:
Tu mets cela dans quoi et .. Qu'est-ce qui ne marche pas?
De mon côté qd je fais
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Range("B19") = Target
Pourquoi pas l'autofit simplement, je ne saisis pas le but des conditions.
a+
lSteph
"Didier Novarin" a écrit dans le message de news: %
Bonsoir Je souhaite que les éléments d'une cellule aille dans une autre, mais que la taille de la cellule s'adapte au contenu de celle-ci J'essaye cela mais sans succès Merci beaucoup Didier
Sheets("Fiche").Range("B19") = ActiveCell.Offset(0, 15).Value If Sheets("Fiche").Range("B19").RowHeight > 24 Then Sheets("Fiche").Range("B19").EntireRow.AutoFit Else Sheets("Fiche").Range("B19").RowHeight = 24 End If
C'est impeccable Lsteph
Je te remercie beaucoup
Bonne soirée
Didier
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OhhFtkdzFHA.3124@TK2MSFTNGP12.phx.gbl...
Tu mets cela dans quoi et ..
Qu'est-ce qui ne marche pas?
De mon côté qd je fais
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Range("B19") = Target
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23vRdx1czFHA.1028@TK2MSFTNGP12.phx.gbl...
Bonsoir Didier,
Pourquoi pas l'autofit simplement,
je ne saisis pas le but des conditions.
a+
lSteph
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: %23QedmpczFHA.1616@TK2MSFTNGP10.phx.gbl...
Bonsoir
Je souhaite que les éléments d'une cellule aille dans une autre, mais
que la taille de la cellule s'adapte au contenu de celle-ci
J'essaye cela mais sans succès
Merci beaucoup
Didier
Sheets("Fiche").Range("B19") = ActiveCell.Offset(0, 15).Value
If Sheets("Fiche").Range("B19").RowHeight > 24 Then
Sheets("Fiche").Range("B19").EntireRow.AutoFit
Else
Sheets("Fiche").Range("B19").RowHeight = 24
End If
Pourquoi pas l'autofit simplement, je ne saisis pas le but des conditions.
a+
lSteph
"Didier Novarin" a écrit dans le message de news: %
Bonsoir Je souhaite que les éléments d'une cellule aille dans une autre, mais que la taille de la cellule s'adapte au contenu de celle-ci J'essaye cela mais sans succès Merci beaucoup Didier
Sheets("Fiche").Range("B19") = ActiveCell.Offset(0, 15).Value If Sheets("Fiche").Range("B19").RowHeight > 24 Then Sheets("Fiche").Range("B19").EntireRow.AutoFit Else Sheets("Fiche").Range("B19").RowHeight = 24 End If
