Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
je dois calculer le nombre de ticket pour chaque caissier, tout en sachant q'un même numéro de ticket peut se retrouver pour deux caissiers différrents.
Je joins un fichier pour plus de détail.
Merci
a = Application.Transpose([C2:C11]) 'tableau des articles
na = UBound(a)
'-------
test = False
For k = 1 To na
If tablo(j, 4) = a(k) Then test = True: Exit For
Next
If test Then
'-------
'---restitution---
Application.ScreenUpdating = False
[A14:G1013].ClearContents 'RAZ
If d1.Count Then
[A14:G14].Resize(d1.Count) = R
[A14:G14].Resize(d1.Count).Sort [A14], Header:=xlNo
End If
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD