Bonsoir a tous,
Dans un tableau possédant plusieurs colonnes je renseigne des éléments via un userform qui se trouve declenché en activant une cellule dans le tableau.
Apres avoir renseigné le userform les données de celui ci sont mis en forme dans la cellule active qui est redimensionnée pour que l'ensemble des données tiennes dans la cellule.
Le problème c'est que je ne veux pas que le redimensionnement se fasse sur une ligne ou une cellule a déjà était redimensionner lors du précédente saisie pour éviter de me retrouver avec un cumule de redimensionnement inutile.
Etant débutant je n'arrive pas a générer le code qui me permettrais de contrôler si la hauteur de ligne est superieur a une certaine valeur.
J'ai essayer de construire mon code de cette manière.
With ActiveCell ' sur la cellule active
If ActiveCell.RowHeight > 15 Then
ActiveCell.FormulaR1C1 = TextJourneedu & " " & TextHeurededebut & "-" & TextHeuredefin & Chr(10) & TextCommentaire
Else
.RowHeight = .RowHeight * 3
ActiveCell.FormulaR1C1 = "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & ""
ActiveCell.FormulaR1C1 = TextJourneedu & " " & TextHeurededebut & "-" & TextHeuredefin & Chr(10) & TextCommentaire
End If
End Sub
mais visiblement je mis prend très mal