code a modifier pour plusieurs colonnes sur 1 feuille

[grisan29]

bonjour a vous tous

dans ce code qui vas bien comment le modifier ,

Private Sub UserForm_activate()
Dim cell As Variant
   Dim i As Integer
    Set Sh = Sheets("plomberie") 'nouvelle feuille("base articles")
    Me.lstArticle.Clear
    For Each cell In Sh.Range(Sh.[D2], Sh.[D65536].End(xlUp))

        With Me.lstArticle   '← lstArticle est le nom d'une listbox
        If cell.Value = Me.lstDescription.Text Then    '←lstDescription est le nom d'une autre  listbox
            .AddItem Sh.Cells(cell.Row, 1)
            i = .ListCount - 1
            Me.lstArticle.List(i, 1) = Sh.Cells(cell.Row, 2)
            Me.lstArticle.List(i, 2) = Sh.Cells(cell.Row, 3)
            Me.lstArticle.List(i, 3) = Sh.Cells(cell.Row, 4)
            Me.lstArticle.List(i, 4) = Sh.Cells(cell.Row, 7)
            
        Else
        End If
     End With
    Next cell
End sub

pour qu'il puisse prendre ses infos sur 1 seule feuille qui a ses données agencées comme ceci

12 colonnes de A à L puis 1 colonne vide puis 12 colonnes de N à Y puis 1 colonnes vide et ce 7 fois car j'avais 7 feuilles+1 de prestations
soit step 12 to 12 ou13 si on compte la colonne vide de séparation

donc j'ai 1 feuille pour mes prestations qui n'a pas le meme nombre de colonne mais seulement 6
elle peut etre mis a la suite dans la feuille "base articles" si ce n'est pas possible autrement de dissocier les prestations des articles

si cela vous vas comme explication😕

Pascal

 

[grisan29]

Re : code a modifier pour plusieurs colonnes sur 1 feuille

bonjor a vous tous
je me suis planter de code dans le post précédent donc voici le bon

Private Sub lstDescription_Change() 'listbox description
    
    If Me.OptionButton4.Value = "Vrai" Then Set Sh = Sheets("prestation")
    If Me.OptionButton5.Value = "Vrai" Then Set Sh = Sheets("plomberie")
    If Me.OptionButton6.Value = "Vrai" Then Set Sh = Sheets("électricité")
    If Me.OptionButton7.Value = "Vrai" Then Set Sh = Sheets("carrelage")
    If Me.OptionButton8.Value = "Vrai" Then Set Sh = Sheets("SDB")
    If Me.OptionButton9.Value = "Vrai" Then Set Sh = Sheets("parquet")
    If Me.OptionButton10.Value = "Vrai" Then Set Sh = Sheets("divers")
    If Me.OptionButton11.Value = "Vrai" Then Set Sh = Sheets("plâtrerie")
    Me.lstArticle.Clear
    Set rg = Sh.Range(Sh.[D2], Sh.[D65536].End(xlUp))
    For Each Cell In rg
       With Me.lstArticle
        If Cell.Value = Me.lstDescription.Text Then
           .AddItem Sh.Cells(Cell.Row, 1)
           i = .ListCount - 1
           .List(i, 1) = Sh.Cells(Cell.Row, 3)
            .List(i, 2) = Sh.Cells(Cell.Row, 9)
            .List(i, 3) = Sh.Cells(Cell.Row, 6)
            .List(i, 4) = Sh.Cells(Cell.Row, 7)
            
            
        Else
        End If
    End With
    Next Cell
End Sub

désolé pour l'erreur😡

Pascal

 

[CHALET53]

Re : code a modifier pour plusieurs colonnes sur 1 feuille

Bonjour,

Avec un fichier, ce serait plus facile de comprendre le problème

A+

 

[grisan29]

Re : code a modifier pour plusieurs colonnes sur 1 feuille

bonjour chalet 53 et le forum

merci de ta réponse mais je n'avais pas encore préparer de fichier
donc voici

Pascal

 

[CHALET53]

Re : code a modifier pour plusieurs colonnes sur 1 feuille

Re,

Tu veux dire que les feuilles prestations, plomberies, et ainsi de suite seraient réunies en une seule et qu'en fonction du choix (optionbutton), il faut gérer la colonne à partir de laquelle tu vas chercher les infos à installer dans ta listbox.

Est-ce bien cela ?

A suivre

 

[grisan29]

Re : code a modifier pour plusieurs colonnes sur 1 feuille

bonsoir chalet
j'ai pas penser mais j'aurais du te préparer un fichier pret avec1 feuille pas a toi de faire le boulot

je reviens

Pascal

 

[grisan29]

Re : code a modifier pour plusieurs colonnes sur 1 feuille

Bonsoir CHALET53
donc de retour avec un fichier épurer de toutes les feuilles d'articles qui ont été réunis dans une seule, il n'y a que la feuille prestation que j'ai laissé car elle a moins de colonne mais est agencée comme les autres
les optionbutton bug car il ne trouve plus leur feuille

ce que tu a dit dans ta réponse est juste

Merci par avance

Pascal

 

[CHALET53]

Re : code a modifier pour plusieurs colonnes sur 1 feuille

Bonjour

A vérifier

a+

 

[grisan29]

Re : code a modifier pour plusieurs colonnes sur 1 feuille

bonjour CHALET53
merci de ta réponse mais les optionbutton ramene tous un peu de lignes de la feuille prestations

cordialement

Pascal

 

[CHALET53]

Re : code a modifier pour plusieurs colonnes sur 1 feuille

Re,

Quelques modifications
Il est difficile d'appréhender les conséquences d'une modification sur les autres programmes

a+

 

[grisan29]

Re : code a modifier pour plusieurs colonnes sur 1 feuille(résolu)

bonjour chalet53😎 et le forum

merci beaucoup pour cette solution qui a l'air parfaite😎 je vais voir ce week end mais pour l'instant c'est clos

bon week end a tous

Pascal

 

[grisan29]

Re : code a modifier pour plusieurs colonnes sur 1 feuille

bonjour CHALET53
merci beaucoup pour ta solution qui va tres bien mais comme sur le bon fichier il y a option explicit en haut de chaque feuille
comme pour le code du debut de post ou j'avais du rajouté

Dim cell As Variant
Dim i As Integer

pareil pour l'intégration mais col est quoi comme variable, je l'ai mis en variant comme A,j,f,rg et cell

merci par avance

Pascal