Filtrer à partir d'une ListIndex Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'690
Appréciations reçues : 5
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 22 juillet 2015, 13:46

Bonjour

Remplace ta macro actuelle par celle-ci
Private Sub CBValidation_Click()
Dim NbLg As Long

 Dim Avant As String
  If Me.CBPreparer.ListIndex = 0 Then
    Avant = "Non"
  Else
    Avant = "Oui"
  End If
 
  With Sheets("BDD1")
    NbLg = .Range("CL" & Rows.Count).End(xlUp).Row
    .Range("A3").CurrentRegion.AutoFilter Field:=90, Criteria1:=Me.CBMagasin
    .Columns("CS").Replace What:=Avant, Replacement:=Me.CBPreparer, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    .Range("CV4:CV" & NbLg).Value = Application.Proper(Me.TBCommentaires)
    .AutoFilterMode = False
  End With
End Sub
s
soukaina
Membre habitué
Membre habitué
Messages : 100
Inscrit le : 23 mai 2014
Version d'Excel : excel2010

Message par soukaina » 23 juillet 2015, 13:42

Bonjour,

J'ai un autre souci je veux écrire une macro qui calcule que certaines colonnes dans des onglets précis .

J'ai essaye ce code mais ca marche pas
Sub calculate()
Activesheets.Range("CS4:CS"). Calculate
End sub
CDLT
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'690
Appréciations reçues : 5
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 23 juillet 2015, 13:49

Bonjour

ActiveSheet : ll ne faut pas de s à la fin
"CS4:CS" : Il manque la limite supérieure exemple "CS4:CS10"
Évite de donner un nom réservée au VBA à une procédure (risque d'erreur) : A la place de Calculate utilises Calcul
Ton code pourrait donner ça
Sub Calcul()
  ActiveSheet.Range("CS4:CS10").Calculate
End Sub
Ceci est valable lorsque tu es en calcul manuel, parce que les formules sont actualisées en temps réel
s
soukaina
Membre habitué
Membre habitué
Messages : 100
Inscrit le : 23 mai 2014
Version d'Excel : excel2010

Message par soukaina » 23 juillet 2015, 19:08

Merci ça marche super bien :)
s
soukaina
Membre habitué
Membre habitué
Messages : 100
Inscrit le : 23 mai 2014
Version d'Excel : excel2010

Message par soukaina » 26 août 2015, 09:29

Bonjour,

Je suis bloquée sur une autre macro.

Aujourd'hui j'ai 6 dépôts et je veux anticiper la rupture de ces dépôts 7 jours en avance. du coup j'ai crée un userform pour sélectionner le dépôt et chercher les articles au dessous de 7 jours de couverture.

Ensuite je choisis mon dépôt en ordre je le définis par exemple on a besoin de 200 pièces je veux qu'il commence à cherche sur le dépôt le plus proche Depot B s'il ne trouve pas cette quantité il passe au Depot D puis ensuite le Depot C .

Vers la fin je veux une liste des codes articles et la quantité à transférer., suite à cette sélection, je veux générer un numéro de transfert et la date du transfert.

Je n'arrive pas à joindre le fichier parce qu'il fait plus de 14400 ko.


Bien cordialement
V
VBABEGINNER
Membre dévoué
Membre dévoué
Messages : 728
Inscrit le : 5 novembre 2014
Version d'Excel : 2010

Message par VBABEGINNER » 26 août 2015, 09:50

Bonjour Soukaina,

Vu que tu as un nouveau problème, je te conseille de cloturer ce fil et d'ouvrir un nouveau.

Pour joindre les fichiers plus gros, tu peux toujours utiliser : http://www.cjoint.com/


Cordialement,
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message