XL 2013 Besoin d'aide excel 2013

[mohammedbadil]

Bonjour,

J'ai besoin de votre aide, en se basant sur le pointage engins figurant sur la feuille matériel, je souhaite avoir comme résultat le pointage figurant sur la feuille recap sachant que je traite des centaines d'engins à la fin de chaque mois et la saisie manuelle prends beaucoup de temps et ralentit le travail.
Je vous prie de m'aider.

Cordialement.

 

[Dranreb]

Bonjour.
Ce code dans le module de la feuille "MATERIEL" semble être un bon point de départ :

Option Explicit

Private Sub Worksheet_Deactivate()
Dim TE(), LE&, TS(), LS&, CDéb&, Actif As Boolean, C&
TE = UsedRange.Value
ReDim TS(1 To 1000, 1 To 5)
For LE = 2 To UBound(TE, 1) - 1
   CDéb = 0: Actif = False
   For C = 4 To UBound(TE, 2) - 1
      If TE(LE, C) = 0 Then GoSub 1 Else If CDéb = 0 Then CDéb = C
      If TE(LE, C) = 1 Then Actif = True
      Next C
   GoSub 1: Next LE
ThisWorkbook.Worksheets("RECAP").[A10:E20].Value = TS
Exit Sub
1: If Actif Then
   LS = LS + 1: TS(LS, 1) = TE(LE, 2): TS(LS, 2) = TE(LE, 3)
   TS(LS, 3) = TE(1, CDéb): TS(LS, 4) = TE(1, C - 1): TS(LS, 5) = TE(LE, 1): Actif = False: End If
CDéb = 0
Return
End Sub

 

[mohammedbadil]

Bonjour dranreb,

Je vous remercie pour votre réponse.

Pouvez vous me montrer comment appliquer ce code VB à la feuille "MATERIEL".

Cordiales salutations.

 

[mohammedbadil]

Bonjour dranreb,

J'ai trouvé la démarche d'application d'un code vb à une feuille excel, je vais tester le résultat et je te tiendrai au courant.

Je vous remercie infiniment.

Cordialement.