XL 2019 Macro retour à la ligne dans une cellule

netparty

XLDnaute Occasionnel
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
 

soan

XLDnaute Barbatruc
Inactif
Bonjour @netparty,

désolé d'avoir été aussi sévère avec toi la dernière fois ; c'est car j'avais envie de faire
ton exo, mais avec des renseignements plus clairs, et un formulaire plus adéquat.

j'ai des très bonnes nouvelles pour toi ! :D

1) j'ai beaucoup modifié et raccourci mon post #29 ; je te laisse le relire. ;)

2) j'ai fait les modifs nécessaires pour ton UserForm "Formulaire_FT".

3) fais des tests ; si besoin, tu peux me demander une adaptation

4) pour le code de ton UserForm "FRM_Mat_IndA",
regarde la sub BP_import_Mat_FRM_indA_Click()

à te lire pour avoir ton avis. :)


soan
 

Pièces jointes

  • fichier4 - test.xlsm
    319.6 KB · Affichages: 17

Discussions similaires

Statistiques des forums

Discussions
314 653
Messages
2 111 591
Membres
111 208
dernier inscrit
estalavista