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