XL 2016 coller dans la première cellule vide d'un tableau

[dad621]

bonjour le forum,
Désolé de vous déranger, avec quelque bout de code piquer sur le forum j'arrive par double clic sur une cellule en feuille 2 , à copier la cellule ,à créer une nouvelle ligne dans mon tableau en feuille 1, mais je bloque pour le collage dans la première cellule de cette nouvelle ligne.
merci pour votre aide.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True 'annule le mode édition lié au double-clic
Target.Copy 'copy la cellule en feuille 2
Sheets("DEVIS ").ListObjects(1).ListRows.Add 'ajout d'une ligne dans mon tableau en feuille devis
Sheets("DEVIS ").(tableau 10). 1 ere cellule de la nouvelle ligne      'ici je voudrai collé la valeur de la cellule copié



End Sub

 

[goube]

Bonjour,
Avec un bout de fichier test, la réponse sera plus appropriée.
Cordialement.

 

[vgendron]

Bonjour

un peu de lecture ici qui devrait te donner quelques éléments pour comprendre comment utiliser les tables

The VBA Guide To ListObject Excel Tables

For a data analyst, Excel Tables are a necessity! They are the most efficient way to organize your raw data and refer to data that contracts or expands on a regular basis. Likewise, Excel tables can be extremely useful in combination with VBA.

www.thespreadsheetguru.com

dans ton code.. pourquoi tu passes de "Listobjects(1) pour ajouter une ligne et ensuite, tu utilises "Tableau 10"

C'est la meme table??

 

[sylvanu]

Bonjour Dad, Vgendron, Goube,
A tester :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    [Tableau10].ListObject.ListRows.Add
    [Tableau10].Item([Tableau10].Rows.Count, 1) = Target
End Sub

 

[dad621]

merci beaucoup sylvanu , cela fonctionne .super boulot.

 

[AtTheOne]

EDIT 1 : ne pas oublier la civilité : Bonjour à toutes & à tous

Avec une petite précaution : double-clic sur une cellule "N° d'article" et pour un tableau vide (cas de la 1ère saisie)
EDIT 2 : Avec ou sans ligne d'entête

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  
     'Précaution  Target dans la 1ere colonne du tableau (double clic sur un N° d'article)
     If Target.Count > 1 or Intersect(Target, Me.[Tableau1[N° d''article]]) Is Nothing Then Exit Sub
     Cancel = True 'annule le mode édition lié au double-clic
  
     With Sheets("DEVIS").ListObjects(1)
          If .ShowHeaders Then Lgn1 = 2 Else Lgn1 = 1  'en fonction de l'affichage ou non de la ligne d'entête
          'Précaution si 1ère saisie ne pas ajouter de ligne
          If Not (.ListRows.Count = 1 And .Range.Cells(Lgn1, 1) = "") Then .ListRows.Add
          .ListRows(.ListRows.Count).Range.Cells(1).Value = Target.Value
     End With
  
End Sub

 

[dad621]

Merci AtTheOne , cela fonctionne aussi mais j'ai du remplacé With Sheets("DEVIS") With Feuil1

​

​

​