Discussion :

[Moun10be]

Bonjour,

mes collègues mon demandé s'il était possible.

1) Que chaque type de véhicule qui ce trouve dans la colonne C soit totaliser sur les cellules correspondantes

Ex: s'il y a inscrit 10 fois le nombre 7 dans les cellules de la colonne C alors le nombre 10 s'inscrit dans la cellule M26
s'il y a inscrit 8 fois le nombre 8 dans les cellules de la colonne C alors le nombre 8 s'inscrit dans la cellule M28
s'il y a inscrit 12 fois le nombre 30 dans les cellules de la colonne C alors le nombre 12 s'inscrit dans la cellule M30
s'il y a inscrit 5 fois le nombre 40 dans les cellules de la colonne C alors le nombre 5 s'inscrit dans la cellule M26

2) Que lorsque l'heure de fin est inferieure à 14h dans les cellules de la colonne F alors il me comptabilise le nombre et me l'inscrit dans la cellule M35

Merci d'avance.

[Philippe Tulliez]

Bonjour,
Il est possible de tout faire et 97% sans VBA.
Même pour indiquer type de véhicule 8 pour les trams T2000. Il suffit de passer par une table de conversion.

J'ai déjà écrit dans ma réponse (fil #3) qu'il vaudrait mieux convertir vos listes de données en tableaux structurés.
Si par la suite, vous voulez faire une fiche technique pour chaque modèle (nombre de places assises, longueur, poids du véhicule, vitesse maximale, bogies, etc. rien de plus simple, il suffit d'ajouter une nouvelle table structurée et de la reliée avec des fonctions de recherches INDEX, EQUIV, RECHERCHEV.

Je trouve plus simple de faire le maximum avec les fonctionnalités et fonctions natives d'excel que de développer en VBA.

[EDIT]
J'ajouterai qu'en quelques clics et à l'aide du tableau croisé dynamique, vous aurez le résultat attendu et une fois ce tableau construit, une simple actualisation vous donne le résultat si de nouvelles lignes sont ajoutées (à l'aide d'un tableau structuré)

[Moun10be]

Bonjour,
J'ai protégé la feuille avec cette ligne de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Open()
 
  With Sheets("Rentrée_Sortie")
        .Protect "test", UserInterfaceOnly:=True
    End With
 
End Sub

Par contre que dois-je rajouter dans le code VBA afin de pouvoir modifier les couleur de police et remplissage sans pour autant déprotéger la feuille.

Merci.