Macro retour à la ligne dans une cellule

Bonjour à tous

Je cherche a modifier mon code mais je ne trouve pas la solution.

Via mon formulaire je choisi une référence de matériel et via ma macro il copie mon choix vers mon listing.

Jusque-là tout va bien , mais j’aimerai pouvoir choisir plusieurs fois une référence et l’insérer de nouveau dans la même cellule sans effacer le contenu existant.

Je voudrai que la macro vérifie si la cellule est non vide et si c’est le cas qu’elle fasse un retour à la ligne pour copier la nouvelle valeur choisie.

Ci-joint mon bout de code

Private Sub Frm_Materiel_copier_indiceA_Click()

'---------------------------------------------------------

'Copier matériels vers LISTING_FT

'Bouton Frm_Materiel_copier_indiceA

'---------------------------------------------------------

Dim LigneActive$

LigneActive = ActiveCell.Row

Cells(LigneActive, 10).Value = Me.textbox3.Value 'Description/commentaire

Cells(LigneActive, 11).Value = Me.textbox6.Value 'Marque

Cells(LigneActive, 12).Value = Me.TextBox5.Value 'référence

Cells(LigneActive, 13).Value = Me.textbox7.Value ' Fournisseur

End Sub

Merci d’avance et bonne journée à tous

bonjour

à répéter pour chaque cellule souhaitée

if Cells(LigneActive, 12).Value="" then sep="" else sep=vbcrlf
Cells(LigneActive, 12).Value = Cells(LigneActive, 12).Value & sep & Me.TextBox5.Value 'référence

Bonjour h2so4

Merci c'est nickel

Bonne journée

Re-bonjour à tous

Maintenant je voudrais faire la meme chose mais de formulaire à formulaire est-ce possible aussi.

Private Sub BP_import_Mat_FRM_indA_Click()
If Me.textbox3 <> "" Then
Formulaire_FT.textbox10 = Me.textbox3 'Description /designation
Formulaire_FT.TextBox11 = Me.textbox6 'Marque
Formulaire_FT.TextBox12 = Me.TextBox5 'reference
Formulaire_FT.TextBox13 = Me.textbox7 'fournisseur

Unload Me
'UserForm1.Show
End If
End Sub

Merci d'avance

re-bonjour,

applique le même principe.

Merci

Bonjour à tous

Je reviens sur le sujet,

Vos réponse mon était d'une grande aide, mais j'ai une autre question,

est-il possible si dans la première cellule il existe déjà une référence identique de ne pas la copier une deuxième fois.

Merci

Rechercher des sujets similaires à "macro retour ligne"