grisan29
XLDnaute Accro
bonjour a tous et toutes
dans le cadre de modification d'un test de classeur de facturation j'ai une listview qui se remplie au fur et a mesure de ce que l'on y met, la seule chose est qu'elle se vide toujours dans la feuille"facture"a l'aide du bouton "valider" je pense que le contenu de la listview n'as rien a voir avec ce que je veux faire
en fait a l'initialisation de l'useform un label prends le nom qui est dans l'entête de la feuille
c'est très facile de donner au label soit "facture" soit "devis" sans référence a la feuille
la seule chose est comment faire que le bouton "valider" choisisse la feuille où vider la listview
je pense qu'il faut passer par if et end if voir if ....then voir with end with
plus facile dire qu'a faire au sujet du label
dans le cadre de modification d'un test de classeur de facturation j'ai une listview qui se remplie au fur et a mesure de ce que l'on y met, la seule chose est qu'elle se vide toujours dans la feuille"facture"a l'aide du bouton "valider" je pense que le contenu de la listview n'as rien a voir avec ce que je veux faire
en fait a l'initialisation de l'useform un label prends le nom qui est dans l'entête de la feuille
c'est très facile de donner au label soit "facture" soit "devis" sans référence a la feuille
la seule chose est comment faire que le bouton "valider" choisisse la feuille où vider la listview
Code:
Private Sub CBvalide_Click()
'vider la listview
Dim L As Long, C As Byte
Dim LargeurCol As Single, MaHauteur As Single, Lg_Origine As Single
Application.ScreenUpdating = False
With Sheets("Facture")
L = .Range("B65536").End(xlUp).Row
'.............suite
End With
Application.ScreenUpdating = True
End Sub
je pense qu'il faut passer par if et end if voir if ....then voir with end with
plus facile dire qu'a faire au sujet du label
Code:
If LBnomfeuil.Caption = Sheets("facture").Range("d1").Value Then
LBnomfeuil.Caption = Sheets("facture").Range("d1").Value
End If
If LBnomfeuil.Caption = Sheets("devis").Range("d1").Value Then
LBnomfeuil.Caption = Sheets("devis").Range("d1").Value
End If
Dernière édition: