XL 2019 Copie d'une ligne d'un tableau structuré à un autre - Aide

thespeedy20 · 27 Avril 2022

Bonjour le Forum,

J'utilisais un code de Dranreb (merci à lui) que j'ai trouverai sur ce forum...tout fonctionnait super bien et plus rien...

J'ai 1 feuille client, une autre A_client - 1 formulaire avec deux combobox

le but c 'est de pouvoir archiver un client et de pouvoir également de nouveau le récupérer dans le tableau

je joins mon fichier

Merci d'avance

OLi

Dranreb · 27 Avril 2022

Bonjour.
Il y a déjà un souci dans la Sub UserForm_Initialize:

VB:

Private Sub UserForm_Initialize()
   Dim T()
   Set Tabclient = Worksheets("Clients").ListObjects("Tableau1")
   Set TabArch = Worksheets("A_Clients").ListObjects("Tableau2")
   Select Case Tabclient.ListRows.Count
      Case 1: ReDim T(1 To 1, 1 To 1): T(1, 1) = Tabclient.ListColumns("Nom & Prénom").DataBodyRange.Value
      Case Is > 1: ComboBox1.List = Tabclient.ListColumns("Nom & Prénom").DataBodyRange.Value: End Select
   Select Case TabArch.ListRows.Count
      Case 1: ReDim T(1 To 1, 1 To 1): T(1, 1) = TabArch.ListColumns("Nom & Prénom").DataBodyRange.Value
      Case Is > 1: ComboBox2.List = TabArch.ListColumns("Nom & Prénom").DataBodyRange.Value: End Select...

Dranreb · 27 Avril 2022

Bonjour.
Il y a déjà un souci dans la Sub UserForm_Initialize:

VB:

Private Sub UserForm_Initialize()
   Dim T()
   Set Tabclient = Worksheets("Clients").ListObjects("Tableau1")
   Set TabArch = Worksheets("A_Clients").ListObjects("Tableau2")
   Select Case Tabclient.ListRows.Count
      Case 1: ReDim T(1 To 1, 1 To 1): T(1, 1) = Tabclient.ListColumns("Nom & Prénom").DataBodyRange.Value
      Case Is > 1: ComboBox1.List = Tabclient.ListColumns("Nom & Prénom").DataBodyRange.Value: End Select
   Select Case TabArch.ListRows.Count
      Case 1: ReDim T(1 To 1, 1 To 1): T(1, 1) = TabArch.ListColumns("Nom & Prénom").DataBodyRange.Value
      Case Is > 1: ComboBox2.List = TabArch.ListColumns("Nom & Prénom").DataBodyRange.Value: End Select
   End Sub

thespeedy20 · 27 Avril 2022

Bonjour Dranreb,

Merci pour ton aide

Mon userform apparait maintenant, je sais archiver mais quand je veux récupérer j'ai une erreur de compilation argument non facultatif sur le bouton récupération

VB:

LRwPlan2.Value = RngArch2.Range.Value

OLi

Dranreb · 27 Avril 2022

Vous ne pouver pas affecter par un Set Un Range à un ListRow

thespeedy20 · 27 Avril 2022

re,

je ne comprends pas pourquoi cela fonctionne dans un sens (archiver), et pas dans l autre(récupérer).

Que dois-je faire ?

Merci

OLi

Dranreb · 27 Avril 2022

Dans le sens Archive vous affecter un Value de Range à autre Value de Range, là ça va.
Dans l'autre sens vous faites n'importe quoi, notamment en intervertissant
RngArch2 et LRwPlan2
.

thespeedy20 · 27 Avril 2022

re,

Dranreb,

je tiens encore à te remercier pour ton aide, j ai modifié le code du bouton 2 comme ceci et cela fonctionne...

VB:

Private Sub CommandButton2_Click()
  
   Dim LRwPlan2 As ListRow, RngArch2 As Range
   If Not ComboBox2.MatchFound Then Exit Sub
   Set LRwPlan2 = TabArch.ListRows(ComboBox2.ListIndex + 1)
   Set RngArch2 = Tabclient.ListRows.Add.Range
    RngArch2.Value = LRwPlan2.Range.Value
  
   LRwPlan2.Delete
   MsgBox Prompt:="Ancien client(e) réintégré avec succès !", Buttons:=vbOKOnly, Title:="Réintégration d'un(e)client(e) réussi(e)"
   Unload Me
  
End Sub

Encore merci

OLi

XL 2019 Copie d'une ligne d'un tableau structuré à un autre - Aide

thespeedy20

XLDnaute Occasionnel

Pièces jointes

Dranreb

Dranreb

XLDnaute Barbatruc

thespeedy20

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

thespeedy20

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

thespeedy20

XLDnaute Occasionnel

Discussions similaires