Reour à la ligne vba.. Résolu/Fermé

Question

Bonjour, 
Je souhaiterai rajouter une valeur, avec un retour à la ligne ,au contenu de chaque cellule d'une plage .
Le problème c'est que les valeurs rajoutées se "rajoutent " à la suite ...: logique vous me direz. 
Mais je voudrais que la valeur ajoutée remplace toujours celle d'avant sans modifier le contenu initial de la cellule .
Je vous joins un fichier pour plus de clarté .
https://www.cjoint.com/c/FLDpNTDONoy
Bien merci à vous
Configuration: Windows 7 / Firefox 38.0

eriiic · Answer

Bonjour,
Pas bien compris...
Mais je voudrais que la valeur ajoutée remplace toujours celle d'avant sans modifier le contenu initial de la cellule . 
Donc tu veux remplacer la dernière ligne d'une cellule ?
Et sans modifier le contenu initial ça je ne sais pas faire. Pas clair ton truc...
Si oui :
Sub Bouton1_Clic()
    Dim c As Range, txt As String, ch
    txt = Sheets("Feuil1").Range("D3").Value
    For Each c In Sheets("Feuil1").Range("$G$9:$U$9")
        ch = Split(c, vbLf)
        If UBound(ch) > 0 Then
            ch(UBound(ch)) = txt
            c.Value = Join(ch, vbLf)
        End If
    Next
End Sub
ne remplace que s'il y a au moins 2 lignes.
eric
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

julia Namor · Answer

Merci Eric
Désolée pour mes explications pas claires .
En fait :
Sheets("Feuil1").Range("D3").Value est une variable qu'il faut rajouter dans la cellule qui contient déjà une valeur . ( Bruit , cuir, jour .....etc) 
Il faudrait que à chaque fois que la variable Sheets("Feuil1").Range("D3").Valuechange , elle est rajoutée dans la cellule à la place de l’ancienne variable . 
Merci

julia Namor · Answer

Je te joins un fichier plus explicatif 
https://www.cjoint.com/c/FLDsp7L3M4y
merci

Reour à la ligne vba..

3 réponses

Discussions similaires

Newsletters