Renvoi à la ligne d'une cellule dèjà remplie. [RESOLU]

[Totodelsol]

Bonjour à tous.

Après plusieurs tentatives sans succès, je me retourne vers vous.

Je cherche à réaliser une macro pour effectuer un retour à la ligne dans une cellule si celle ci est déjà remplie.
Plus concrètement, mon programme remplie des cellules dans un tableau cible à partir d'autre cellules sources, mais lorsque qu'une valeur texte est déjà présente dans une cellule de mon tableau cible, il me l'écrase par ma nouvelle valeur, ce qui me convient pas.
Si la cellule est différente que vide, j'aimerai que la macro me conserve le texte, fasse un renvoi à la ligne puis écrit la nouvelle valeur, ainsi de suite tout en réalisant un autofit de la hauteur de ma cellule.

J'espère avoir été clair pour vous.
Merci d'avance.

Amicalement.

Tony

 

[nyko283]

Re : Renvoi à la ligne d'une cellule dèjà remplie.

Bonjour Tony,

Sub REMPLI()
Dim macell As Range
Set macell = ThisWorkbook.Sheets(1).Cells(1, 1)
If macell.Value <> "" Then
    macell.Value = macell.Value & Chr(10) & "montext"
Else
    macell.Value = "montext"
End If
End Sub

devrais correspondre a tes attentes.

Bon dimanche à tous

 

[Totodelsol]

Re : Renvoi à la ligne d'une cellule dèjà remplie.

Super ça fonctionne.

Merci beaucoup et bon dimanche à tous.