Mixage de code

bonjour a vous tous

dans ce post https://forum.excel-pratique.com/excel/code-a-modifier-suite-a-reduction-nombre-de-feuilles-t42092.html Banzai64 a été parfait dans ce qui était demandé, mais maintenant j'ai voulu adapter tout sauf la listview sur un autre fichier et il plante a cause des ini liste et je ne sais pas comment associé les 2 ini liste

celui ci

Private Sub IniListe()

  Bc = Val(Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1))
  Ldl = Ws.Cells(Rows.Count, Bc).End(xlUp).Row

  LigneEnCours = 0
  For I = 1 To 12
    Me("TextBox" & I) = ""
  Next I

  With ListView1
    .ListItems.Clear
    For L1 = 2 To Ldl
      .ListItems.Add , , Format(Ws.Cells(L1, Bc).Value, "00#")
      For I = 1 To .ColumnHeaders.Count - 1
        If Ws.Cells(L1, Bc + I).Value <> "" Then
          .ListItems(.ListItems.Count).ListSubItems.Add , , Ws.Cells(L1, Bc + I).Value
        Else
          .ListItems(.ListItems.Count).ListSubItems.Add , , "?"
        End If
      Next I
    Next L1
  End With
End Sub

c'est celui du classeur que Banzai64 a déjà modifié

et celui ci de l'autre fichier

Private Sub IniListe(S As String, Colonne As Integer)
 Dim Li As Long

  With ListView1
    '.ListItems.Clear
    For Ll = 2 To Ldl
      If LCase(wsArticles.Cells(Ll, Bc + Colonne)) Like LCase(S) & "*" Then
      If LCase(Left(wsArticles.Cells(Ll, Bc), Len(TextBox6))) Like LCase(TextBox6) & "*" Then
        .ListItems.Add , , Format(wsArticles.Cells(Ll, Bc - 2).Value, "00#")
        For Bn = 1 To .ColumnHeaders.Count - 1
          If wsArticles.Cells(Ll, Bc + Bn - 2).Value <> "" Then
            .ListItems(.ListItems.Count).ListSubItems.Add , , wsArticles.Cells(Ll, Bc + Bn - 2).Value
          Else
            .ListItems(.ListItems.Count).ListSubItems.Add , , "?"
          End If
          End If
        Next
      End If
    Next
  End With
End Sub

les codes sont quasi similaire est ce la cause que je ne peux les mixer

Pascal

Bonsoir

grisan29 a écrit :

je ne peux les mixer

En clair tu veux faire quoi ?

Tu ne peux avoir 2 macros ayant le même non (l'interpréteur ne va pas savoir quoi faire)

Si tu veux garder les 2 macros, renommes en une (les appels à cette macro aussi)

bonsoir Banzai64

je crois qu'il est temps que j'ailles au cirque du liondord tellement la journée a été harassante, afin d'avoir les idées remises a leurs places car j'aurai du penser a renommer un appel a un code

Pascal

bonjour Banzai64

le 12 aout c'est peut être vrai que le cirque du liondort m'appelais, mais aujourdhui je vais te joindre le fichier qui a les 2 codes dont l'un est appelé par cette ligne

Private Sub IniListe()

et l'autre par celui ci

Private Sub IniList()

mais le conflit règne et je ne sais pas l'arrêter

voila le fichier qui a 2 inilist dont l'un avec le bouton "modifié" et l'autre avec la listview

si tous les boutons et codes pouvaient s'arranger entre eux ce serai bien, mais actuellement ce n'est pas le cas

Pascal

Bonsoir

Où est le problème, ce sont 2 macros différentes ?

Il n'y a pas interactions entre les 2

Juste un petit truc à faire : mettre en service la ligne mise en remarque dans la procédure "Private Sub IniListe(S As String, Colonne As Integer)"

Private Sub IniListe(S As String, Colonne As Integer)
 Dim Li As Long

  With ListView1
   .ListItems.Clear
    For Ll = 2 To Ldl
      If LCase(Ws.Cells(Ll, Bc + Colonne)) Like LCase(S) & "*" Then
      If LCase(Left(Ws.Cells(Ll, Bc), Len(TextBox6))) Like LCase(TextBox6) & "*" Then

Sinon si je n'ai rien compris

Détailles les actions à faire pour trouver le dysfonctionnement

bonsoir

si un article est sélectionné dans la listview , il se mets automatiquement dans les textbox de droite, et si je veux modifier l'article qui est dans ces textbox en appuyant sur le bouton "enregistrer les modifications" que le bug se déclenche

si je mets sans la cochée et ben la listview se vide des le 1 er clic

Pascal

Bonsoir

A l'avenir quand tu demandera une aide quelconque fournis toujours le même fichier, car le code d'un fichier sans certains contrôles ne fonctionnera plus de la même manière quand tu placeras ces contrôles

A vérifier

bonjour Banzai64

Merci pour tout

Pascal