Convocation vehicules pour maintenace

bonjour,

J'ai une base de donnée pour de la maintenance de véhicules et j'aimerais pouvoir crée une liste de véhicules à convoquer par rapport a leurs échéances.

Dans le fichier joint je vous ai mis que trois onglets de maintenance sur les onze et dans convocation le résultat que je souhaiterais avoir si c'est possible.

Tout les onglets on la même structure de base.

En vous remerciant par avance de votre aide.

Salut,

le récap doit aller chercher les informations dans les 11 feuilles (3 dans ton exemple) ?

Et les fourchettes font allusion à quelle colonne ?

bonjour Doux Reveur,draegurg,

eventuellement avec VBA

Sub Convoc()
     Dim Rouge(1 To 1000, 1 To 5), Orange(1 To 1000, 1 To 5), iRouge, iOrange
     For Each sh In ThisWorkbook.Worksheets
          If StrComp(sh.Name, "Convocations", 1) <> 0 Then
               Set c = sh.Range("A1").CurrentRegion
               For i = 2 To c.Rows.Count
                    For j = 7 To c.Columns.Count
                         If c.Cells(i, j).Value <> "" Then
                              Select Case c.Cells(i, j).Value

                                   Case -20000 To 0
                                        iRouge = Application.Min(UBound(Rouge), iRouge + 1)     'pointer
                                        Rouge(iRouge, 1) = c.Cells(i, 1).Value     'CIE
                                        Rouge(iRouge, 2) = c.Cells(i, 2).Value     'Immat
                                        Rouge(iRouge, 3) = c.Cells(i, 3).Value     'Type
                                        Rouge(iRouge, 4) = c.Cells(1, j).MergeArea.Cells(1).Value     'raison
                                        Rouge(iRouge, 5) = c.Cells(i, j).Value     'km

                                   Case 0 To 60
                                        'la même chose
                              End Select
                         End If
                    Next
               Next
          End If
     Next

     With Sheets("Convocations")
          With .Range("A20")
               .Resize(1000, 5).ClearContents
               With .Resize(iRouge, 5)
                    .Value = Rouge
                    .HorizontalAlignment = xlCenter
                    .Sort key1:=.Range("A1"), key2:=.Range("D1"), key3:=.Range("B1"), Header:=xlNo     'eventuellement trier
               End With
          End With
     End With
End Sub

Bonjour BsAlv,

Merci c'est cool de ta part.

Est-il possible d'apporter 2 petites modifications?

La première c'est que ça ne doit prendre en compte que les véhicules dît "disponible" en colonne D.

La deuxieme choses c'est le resultat en D est ce possible d'avoir l'intitulé de l'opération et non pas l'atelier.

J'ai modifié l'en tête des tableaux

J'aurais aimé comprendre de quoi tu parles avec les fourchettes mentionnées dans ton 1er fichier, je ne vois aucun chiffre ressemblant à ces critères.

re et salut Doux Reveur,

Mon but était de le faire dans une macro, donc si vous n'êtes pas d'accord, il faut les séparer

@Doux Rêveur, j'avais vérifié les MFCs.

Bonjour Doux Rêveur,

Les fourchettes c'est des colonnes G à ... si tu regarde les chiffres dans le premier onglet sur le masstech 60000004 il y a un chiffre en rouge -22 et un chiffre en orange 19 .

Les chiffres passent en orange de 1 à 60 et en rouge de 0 à négatif

Ensuite la convocation ne doit traité que les véhicules en colonne D dit "disponible" puis les chiffres en orange et rouge ou chiffres positif entre 1 et 60 et négatif entre 0 et - 200000

dans le résultat il me faut la Cie , l'immatriculation, le type de véhicules et enfin la visite (ligne 3) pas la ligne 1 ou 2.

je t'ai mis un exemple des résultats souhaité dans convocation.

J'espère avoir un peu plus précis dans mon explication

BsAlv,

Merci pour ton travail, ç'est nickel.

je te souhaite un bon dimanche

Bonjour BsAlv,

est ce possible dans la mise en page de fusionner comme ceci ?

re,

comme ceci ?

bonjour,

non c'est pas tout a fait cela , je pense que c'est la fusion de A qui met le brin alors on va juste faire B,C et D et on devrait être bien.

je te remercie de ta patience et disponibilité

BsAlv,

J'ai mis la macro dans mon fichier originel et j'ai un bug a la 8 ème ligne quelque soit l'écriture.

If c.Cells(i, j).Value<>"" etc...

Tu as une idée? Est ce que la positions de la feuilles convocations peut avoir une incidence?

Dans mon fichier originel j'ai environ 580 feuilles.

Voici les premières:

Consignes

Dto

Convocations

Etat du parc

Potentiels

Gammes co

Masstech

Vtc

Gbc

Trm

PvP

Vab

Engins

Rq

Pm

Ge

Et tout le reste c'est les fiches des materiels

re,

comme ceci

et, ce sont seulement ces premières feuilles qu'il faut vérifier ?

BsAlv

De gamme co a Ge. Le reste pas besoin

re, nouvelle version

Bonjour BsAlv,

Désolé toujours un bug

Erreur d'exécution "9"

L'indice n'appartient pas à la sélection

A la ligne Set Sh=Worksheets(i00)

Je comprendrais si sa te prends la tête.

re,

une nouvelle version

Salut, je pensais avoir trouvé l'erreur.

disponible au lieu de Disponible mais non ça bloque toujours à If c.Cells etc...

J'ai refait un fichier qu'avec les onglets véhicules pour voir si ça venais de la et non idem.

Il faut que tu remettes la macro car de mon taf a ma boîte mail perso ça a été supprimé.