Sélection infos sur USF. ''Secours!

[pepi]

Bonjour Forum (Semper Paratus)!

Je viens à votre aide.

J'ai une feuille appellée "RECAP_CA" dans laquelle je récupère par code VBA les infos de certaines cellules prédéfinies de chaque feuille projet existante dans la même classeur.

J'aimerais faire apparaître un USF qui me indique seulement les projets facturés par mes fournisseurs. Ce sont les projets pour lesquels dans la colonne N de la feuille RECAP_CA apparaît le mot "facturé". Les autres mots qui apparaissent -et qui sont à exclure- sont "Attente Devis", "Devis Reçu", "Commande", "Livré", "Payé" et"In_House".

J'avais sur un autre odinateur le code suivant qui maintenant ne marche plus... Pourquoi?
Maintenant le USF me donne toutes les infos et non pas seulement les facturés.



If C.Offset(0, 0) <> "" Then 'And C.Offset(0, 4) = "Facturé" Then '(ORIGiNAL)
'If C.Offset(0, 0) <> "Payé" Then '.Text = Facturé Then

With NouvListe

.AddItem C
.List(X, 0) = C.Offset(0, 12) 'C
.List(X, 1) = C 'C.Offset(0, 12)
.List(X, 2) = C.Offset(0, 8)
.List(X, 3) = Format(C.Offset(0, 11), "###0.00")
.List(X, 4) = C.Offset(0, 13)


X = X + 1




End With


End If

Next C


End Sub

Private Sub CommandButton1_Click()
Unload Me
Sheets("Bureau").Select

End Sub

Private Sub NouvListe_Click()

End Sub

Private Sub UserForm_Initialize()
initlistbox
End Sub


Avec votre esprit illuminé et indulgent vous allez sûrement comprendre..

D'avance merci

Pepi

 

[herve62]

Re : Sélection infos sur USF. ''Secours!

bonsoir Pepi

1) je pense qu'il te manque un "for" , puisqu'il y a un next C

2) fait un test de tes ADDITEM et élimine celui qui ne te va pas

un exemple de ma base


For i = 3 To Sheets.Count - 1
nom = Sheets(i).Name
If nom = "40XLC" Then GoTo suiv


Code_prod.AddItem Sheets(i).Name ' Liste les prod dans
' selection du produit
suiv:
Next i


ici je recherche les noms de mes onglets pour les mettre dans ma combobox et je ne veux pas voir "40XLC" donc je passe outre avec le "IF"
Je ne vois pas très bien à quoi correspond ton "C.offset" mais tu dois mieux connaitre et certainement adapter ma suggestion
Bon courage

Hervé