modification formule vba

[marleauc]

Bonjour,
J'aimerais modifier cette formule qui filtre une combo
(actuelle) Me.Cmddebut.List = f.Range(f.Cells(2, 4), f.Cells(Lr, 4)).Value
(changement voulu) Me.Cmddebut.List = (Listrecu).Value

PS: Listerecu= tableaau
merci

 

[youky(BJ)]

Bonjour Marleauc,
Me.Cmddebut.List = Listrecu
Si c'est un tablo
Revoici le fichier ou j'ai mis tous les filtres depuis le message sur une autre discussion de ce jour
Bruno

 

[marleauc]

re-bonjour
Désolé justement je me questionnais si je mettais ma question dans le meme discussion
merci encore

 

[marleauc]

re salut
si je veux filtrer par utilisateur est cette formule

Me.TextBox51.Value = Me.TextBox51.Value

Private Sub TextBox51_Change()
Feuil1.Range("A1").AutoFilter Field:=2, Criteria1:=TextBox51.Text
If TextBox51.Value = -1 Then Feuil1.Range("A1").AutoFilter Field:=2
Actualisation
End Sub
pour terminer le filtre (textbox51) fonctionne , j'aimerais que lorsqu'on efface le textbox51 que la listview se reactive , car la l'actualisation ne se fait plus

 

[marleauc]

Ok si j'inscrit * dans le texbox le tout s'actualise mais sinon rien

 

[youky(BJ)]

Oups!!!
boulette de ma part à cause du copié collé
If TextBox51 ="" Then Feuil1.Range("A1").AutoFilter Field:=2
Le textbox51 n'est pas un combobox
Bruno

Edit:dans le fichier j'ai mis Public kit As Boolean en tête du code de l'userform
ceci pour effacer la date si on mets un mois ou vice versa

 

[marleauc]

re bonjour
Ok un gros merci encore de ta générosité
christian
la je dois m'attaquer au bouton supprimer (hi!hi!)

 

[marleauc]

re bonjour
voci mon code pour le bouton supprimer! il supprime la ligne du listeview mais pas dans la feuil3
Private Sub CommandButton3_Click()
Dim i As Long
If MsgBox("Vous allez supprimer l'enregistrement " & vbLf & "Confirmer !", vbYesNo, "action irréversible !") = 7 Then Exit Sub
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Selected Then
ListView1.ListItems.Remove i
[Feuil3].Rows(i).Delete
Exit Sub
End If
Next
End Sub

 

[youky(BJ)]

Bonjour
Pendant ton sommeil j'ai fait ce code .....hihi!!!
Je vois que les controls sont tous renommés perso je le fait pas car avec une boucle exemple
for k =1 to 10:me.controls("Textbox" & k)="":next 'cette ligne vide 10 textbox
et pour les remplir si les colonnes sont dans l'ordre des textbox
for k =1 to 10:me.controls("Textbox" & k)=cells(lig,k) :next
Bruno

Private Sub CommandButton3_Click()
If txtUsagers = "" Then Exit Sub 'pas de selection
If MsgBox(" Vous ?tes sur d'Annuler la ligne" & vbCr & "V?hicule N? " & _
CboVehicule.Text, vbYesNo + vbExclamation, "SUPRESSION") = vbNo Then Exit Sub
lig = ListView1.SelectedItem.Index + 1
ListView1.ListItems.Remove lig
Feuil1.Rows(lig).Delete
End Sub

 

[marleauc]

Re bonjour
Un gros bonjour et merci, par conséquent, la suppression de la ligne dans la feuille s'effectue , mais pas dans le listview
merci
cm

 

[youky(BJ)]

Yes,
Cette ligne à remplacer comme ceci.
ListView1.ListItems.Remove (lig - 1)
Bruno

 

[marleauc]

Bon matin Bruno
Un gros merci encore, tout fonctionne a merveille!
bonne journée
christian

 

[marleauc]

re-bonjour,
maintenant mon code bouton imprimer m'indique un erreur (1004) du contenu
Private Sub CommandButton7_Click()
' Imprimer
Dim I As Integer

'Application.ScreenUpdating = False 'Empéche la mise à jour de l'affichage écran durant la procédure pour gagner du temps
With Sheets("Imp")
.Range("Tablo").ClearContents
.ListObjects("Tablo").Resize .Range("A5:F5").Resize(Me.ListView1.ListItems.Count + 1)
For I = 1 To Me.ListView1.ListItems.Count
.Range("A" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(1).Text
.Range("B" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(2).Text
.Range("C" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(3).Text
.Range("D" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(4).Text
.Range("E" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(5).Text
.Range("F" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(6).Text
Next I



'.Columns("A:F").AutoFit 'Ajuste la largeur de chaque colonnes selon la largeur du contenu
Me.Hide
.PrintPreview
'.PrintOut 'Imprime la feuille
frmListView.Show
End With
End Sub

 

[youky(BJ)]

Re,
tu adapteras les N°des ListSubItems pour retomber juste
Bruno

Private Sub CommandButton7_Click()
' Imprimer
Dim I As Integer
  With Sheets("Imp")
  .[A6:F5000].ClearContents
  For I = 1 To Me.ListView1.ListItems.Count
  For k = 1 To 6
  .Cells(I + 5, k).Value = Me.ListView1.ListItems(I).ListSubItems(k).Text
  Next
  Next I
  Me.Hide
  .PrintPreview
  '.PrintOut  'Imprime la feuille
  frmListView.Show
  End With
End Sub

ou alors ceci correspond

Private Sub CommandButton7_Click()
' Imprimer
Dim I As Integer
  With Sheets("Imp")
    .[A6:F5000].ClearContents
    For I = 1 To Me.ListView1.ListItems.Count
      .Range("A" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(2).Text
      .Range("B" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(1).Text
      .Range("C" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(3).Text
      .Range("D" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(4).Text
      .Range("E" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(8).Text
      '.Range("F" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(9).Text
    Next I
    Me.Hide
    .PrintPreview
    '.PrintOut  'Imprime la feuille
    frmListView.Show
  End With
End Sub

 

[marleauc]

Re bonjour
merci ici cela fonctionne pas ...je vais essayer d'autre formule
cm