Forums XLPages

Tous les messages (JCGL)

« 1 2 3 4 5 6 7 8 ... 31 »
Re: cacher des lignes automatiquement selon des critéres
#41
JCGL
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 01-03-2009 11h51
Bonjour à tous,
Salut Mth ,

Un essai avec un Bouton Bascule.
Il subsiste un souci avec les lignes 42 et suivantes qui n'ont pas la même structure que les autres
J'ai repris la formule de Mth en la rendant reproductible vers le bas

=SI(MOD(LIGNE();2)=0;Q23;SI(ESTERREUR(CNUM(SUBSTITUE((K22&J22&I22&H22&G22&F22&E22&D22&C22&B22&A22);" ";"")));0;"Manquant"))



Bises à Mimi ,
A+ à tous

Pièce jointe:
zip JC Tri sur Vides.zip   [ Taille: 56.02 Ko - Téléchargements: 863 ]

Cordialement
Hors Ligne
 Rapport   Haut 

Re: Calcul d'heure sur planning
#42
JCGL
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 23-02-2009 20h00
Bonjour à tous,

Ton fichier très allégé
Suppression des cellules fusionnées qui ne créent que des problèmes...
Les semaine sont reproductibles pour atteindre les 105 semaines (formules pour avoir 'PLANNING SEMAINE XX')
Le tableau 'Synthèse' devrait répondre à ton attente

A+ à tous

Pièce jointe:
zip JC Aller A Synthese Planning V3.zip   [ Taille: 20.31 Ko - Téléchargements: 598 ]

Cordialement
Hors Ligne
 Rapport   Haut 

Re: Macro Excell mode d'emploi ?
#43
JCGL
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 21-02-2009 13h00
Bonjour à tous,
Bonjour Mth ,


As-tu respecté le $ : =$B1="Banque"

A+ à tous


Pièce jointe:
zip Essai MeFC.zip   [ Taille: 13.95 Ko - Téléchargements: 490 ]
Edité par JCGL le 21/02/2009 13:39:15

Cordialement
Hors Ligne
 Rapport   Haut 

Re: Calcul d'heure sur planning
#44
JCGL
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 21-02-2009 09h16
Bonjour à tous,

Comme tu le fais remarquer, les cellules sont fusionnées d'où cette anomalie (je pense)
Essaye avec cette formule en B2 et à tirer à droite et vers le bas :

=SOMMEPROD(('Planning Quotidien'!$B$5:$B$4200=Synthèse!$A2)*('Planning Quotidien'!$C$5:$G$4200=Synthèse!B$1)*2*4)


A+ à tous

Cordialement
Hors Ligne
 Rapport   Haut 

Re: Calcul d'heure sur planning
#45
JCGL
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 20-02-2009 22h50
Bonjour à tous,

Je viens de vérifier et j'ai bien 4 heures pour la matinée et 4 heures pour la soirée...
Laisse au recalcul le temps d'opérer. Comme déjà dit, il est d'une vingtaine de secondes...

A+ à tous


Cordialement
Hors Ligne
 Rapport   Haut 

Re: Aide sur planning auto
#46
JCGL
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 18-02-2009 18h08
Bonjour à tous,

Peux-tu essayer avec :

Private Sub OK_Click()
If Me.Nom = "" Or Me.Voiture = "" Or Me.Lieu = "" Then Exit Sub 'si les 2 combo "Nom" et "Voiture" sont vides, on sort de la procédure,
                                                'tout en laissant l'usf visible
If Application.Weekday(Me.DTPicker1, 2) > 5 Or _
    Application.Weekday(Me.DTPicker2, 2) > 5 Then Exit Sub  'si on a choisi une date de week-end, idem
If Me.DTPicker1 < [A6] + 6 And Me.DTPicker1 >= [A6] And Me.DTPicker2 <= [A6] + 6 Then 'si la date est bien dans l'onglet
    If Me.DTPicker1 > Me.DTPicker2 Then Exit Sub 'si le retour est antérieur au départ, on sort
    If Me.DTPicker1 = Me.DTPicker2 Then 'si les deux dates sont identiques
        If Val(Left(Me.Arrivée, Len(Me.Arrivée) - 3)) < Val(Left(Me.Départ, Len(Me.Départ) - 3)) Then Exit Sub
            'si l'heure de retour est antérieure à l'heure de départ, on sort
            'Left(Me.Arrivée, Len(Me.Arrivée) - 3) te donne le ou les chiffres anvant le h
            'Val le convertit en nombre
    End If
    Lig = Application.Match(Me.Voiture, Range("A1:A32"), 0) 'on recherche le numéro de ligne de la voiture sélectionnée
            'correspond à la fonction "EQUIV" d'une feuille
    Col = (Int(Me.DTPicker1 - [A6]) * 12) + 2 'comme tes journées tiennent sur 12 colonnes
        'on retrance la date en A6 à la date du DTP1, qu'on multiplie par 12
        'et on rajoute 2 car tes journées commencent en colonne C
    DerCol = (Int(Me.DTPicker2 - [A6]) * 12) + 2 'idem, pour le DTP2
    Prem_Heure = Me.Départ.ListIndex + Col 'on détermine la colonne de départ
                    'Me.Départ.ListIndex donne l'index sélectionné, auquel on rajoute Col
    Der_Heure = Me.Arrivée.ListIndex - 1 + DerCol 'idem, ici le -1, car si retour à09h00, ce créneau est toujours valable
    If Cells(Lig, Prem_Heure).MergeCells Or Cells(Lig, Der_Heure).MergeCells Then 'si les cellules trouvées sont fusionnées
        MsgBox "Créneau déjà utilisé" 'on prévient que le créneau est déjà pris
        Exit Sub 'on sort
    End If
    With Range(Cells(Lig, Prem_Heure), Cells(Lig, Der_Heure))
        .Merge 'fusion des cellules
        .Value = " Pour " & Me.Nom & " à " & Me.Lieu
       ' .Value = Me.Lieu 'on marque le nom et le lieu
        .Interior.ColorIndex = 33 'couleur Bleu
        .HorizontalAlignment = xlCenter 'on centre horizontalement
        .VerticalAlignment = xlCenter 'et verticalement
        .Font.Bold = True 'on met en gras
    End With
Else
    MsgBox "La date entrée ne correspond pas à cette semaine" 'si la date n'est pas dans l'onglet
    Exit Sub
End If
    Unload Me 'on décharge et on ferme l'usf
End Sub

A+ à tous 


Cordialement
Hors Ligne
 Rapport   Haut 

Re: Macro Excel mode d'emploi ?
#47
JCGL
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 18-02-2009 17h29
Bonjour à tous,

Dans la prcédure décrite par mDF, remplace la formule du point 4 par : =$B1="Banque"
Si 'Banque' est en colonne B, évidement

A+ à tous

Cordialement
Hors Ligne
 Rapport   Haut 

Re: Macro Excell mode d'emploi ?
#48
JCGL
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 16-02-2009 17h39
Bonjour à tous,
Bienvenue à Goolivier7,

Le VBE (Visual Basi Editor) est accesible par Alt +F11 ou un clique droit sur un onglet et Visualiser le code.
Le code est à coller ici :



Le code est valable pour toutes les feuilles du classeur

A+ à tous




Cordialement
Hors Ligne
 Rapport   Haut 

Re: Calcul d'heure sur planning
#49
JCGL
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 16-02-2009 00h16
Bonjour à tous,

Même combat mais avec la nouvelle demande de notre ami : ICI

Le temps de recalcul est assez long (20 secondes).
Mes compétences en VBA ne me permettent pas de coder efficacement.
Avis au aux amateurs...

A+ à tous



Cordialement
Hors Ligne
 Rapport   Haut 

Re: Calcul d'heure sur planning
#50
JCGL
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 15-02-2009 21h33
Bonjour à tous,

Le fichier zippé est trop lourd pour mDFXLpages.
Je le dépose sur un FTP

Utilisation de :
Liste de Validation
Code associé au bouton GO :
Option Explicit

Sub Aller_A()
Application.Goto Reference:=Worksheets("Planning Quotidien").Range("B" & (Range("J2").Value - 1) * 40 + 2), scroll:=True
End Sub

  


A+ à tous



Cordialement
Hors Ligne
 Rapport   Haut 

« 1 2 3 4 5 6 7 8 ... 31 »