XL 2010 Appeler une macro dans une autre

[Fraise77]

Bonjour a tous,
Ceux sont débuts en VBA et j'ai besoin d'un p'tit coups de pouce !

Dans une userform, j'ai un bouton qui me permet de renvoyer une donnée dans un tableau excel (cela fonctionne avec mon code joint !) tel que

Private Sub CdeEnregNumDevis_Click()
Dim Ligne As Long

Sheets("TableDevis").Select
Range("D" & Range("D" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox19.Value

End Sub


J'ai une macro "ajoutLignedessous" qui fonctionne lorsque je lance la macro directement depuis ma feuille "TableDevis" qui permet d'inserer une ligne sous la dernière donnée

Sub AjoutLignDessous()
'
' AjoutLignDessous Macro
'
Selection.ListObject.ListRows.Add (41)
ActiveWindow.SmallScroll Down:=8
End Sub

j'ai les deux codes, mais je n'arrive pas a les imbriquer!

Merci par avance

 

[Phil69970]

Bonjour @Fraise77

Avec un fichier c'est plus facile pour te répondre .....

 

[Dranreb]

Bonsoir.

Private Sub CdeEnregNumDevis_Click()
   Intersect(Selection.ListObject.ListRows.Add.Range, Columns("D")).Value = TextBox19.Value
   End Sub

 

[Fraise77]

Bonsoir.

Private Sub CdeEnregNumDevis_Click()
   Intersect(Selection.ListObject.ListRows.Add.Range, Columns("D")).Value = TextBox19.Value
   End Sub

Bonsoir,
merci, mais cela ne fonctionne pas
pour info j ai excel 2007 sur le PC

Ci joint un fichier
avec en prime une question en plus en feuille 1 !

pour le prog, lancer le fichier et touche num devis ....
le problème vu est que le nouveau numéro ce met en bas du tableau aussi !!

grand merci pour votre aide

 

[Fraise77]

Bonjour @Fraise77

Avec un fichier c'est plus facile pour te répondre .....

Bonsoir,
merci, pour l aide,
pour info j ai excel 2007 sur le PC

Ci joint un fichier
avec en prime une question en plus en feuille 1 !

pour le prog, lancer le fichier et touche num devis ....
le problème vu est que le nouveau numéro ce met en bas du tableau aussi !!

grand merci pour votre aide

 

[Dranreb]

Bon j'ai pas vu où vous avez mis mon code, mais je sais que ça marche, à condition, bien évidemment que soit sélectionnée une cellule faisant partie d'un tableau Excel. Sinon il faut trouver comment définir autrement le ListObject …