XL 2013 (resolu)vider listview dans 2 feuilles????

[grisan29]

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

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

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

 

[jecherche]

Bonjour,

Une variante dans le fichier que j'ai déposé ... pour corriger le With
... With Sheets(Me.LBnomfeuil.Caption)


Jecherche

 

[grisan29]

bonsoir Jecherche
merci de tes réponses mais ce n'est pas tout a fait cela que je voulais mais EXACTEMENT cela
merci pour toutes les réponses que vous tous avez donnez
bon fin de dimanche a tous
ce qui clos ce post

 

[grisan29]

bonsoir a tous
un petit supplément en rapport
si le LBnomfeuil .caption =devis je voudrais qu'au autre label prenne comme caption Devis N°, j'ai essayer ceci sans succès

If Me.LBnomfeuil.Caption = "DEVIS" Then Me.Label32.Caption = " Devis N° :"
        If Me.LBnomfeuil.Caption = "FACTURE" Then Me.Label32.Caption = " Facture N° :"

les 2 labels sont sur le même userform

 

[jecherche]

Bonjour,

Si les feuilles sont nommées en minuscule, il faudrait rester en minuscule tout au long; ça simplifie le code.
En minuscule ou majuscule, l'important, c'est d'être uniforme.
Ceci dit, dans le userform "ouverture"

Private Sub CmB_devis_Click()
  With UFgestion
    .LBnomfeuil.Caption = "devis"
    .Label32.Caption = " Devis N° : "
    .Show
  End With
Unload Me
End Sub

Private Sub CmB_Facture_Click()
  With UFgestion
    .LBnomfeuil.Caption = "facture"
    .Label32.Caption = " Facture N° : "
    .Show
  End With
Unload Me
End Sub

Jecherche

 

[grisan29]

bonsoir je cherche
et ben tu as trouvé un grand merci de ton aide
maintenant ce sujet est clos

 

[Paf]

Re tous,

La messe est dite mais je ne comprend pas qu'avec les propositions fournies ça ne fonctionnait pas !!!

mais j'ai un bug avec

 With Sheets(LBnomfeuil.Caption)

car LBnomfeuil n'est pas une sheets mais un label

Ben oui mais non ! LBnomfeuil.Caption contient DEVIS ou FACTURE selon le choix précédent. Donc c'est comme si on avait With Sheets("DEVIS") ou With Sheets("FACTURE").

Ce qui est sûr c'est que :
With Sheets("LBnomfeuil.Caption") qu'on trouve dans le classeur du post #12, ne peut , évidemment pas marcher !!!
Il faut essayer de comprendre ce qu'on écrit !!!

A+

N.B. Pas sûr qu'on sente bien que je suis quelque peu agacé !!!! En plus on a perdu !!!

 

[grisan29]

bonjour Paf
je n'ai jamaisdit que ca ne fonctionnait pas mais que je n'arrivait pas avec, mais c'est par ce que je ne les associais pas correctement

 

[Si...]

Salut

Tu devrais maintenant savoir que plus il y a de variables, de boutons, de contrôles … plus il y a d’ennuis, de difficultés à les gérer.

Un dernier exemple adaptable très facilement dans d’autres contextes …

 

[grisan29]

bonsoir si.... et le forum
tu dits

Un dernier exemple adaptable très facilement dans d’autres contextes …

mais je n'arrive pas a l'adapter a mon fichier car lorsque la listview se vide ca ne vas pas sur les feuilles et je ne sais pas ou