Forums XLPages

Tous les messages (Mth)

« 1 2 3 4 5 6 ... 36 »
Re: Lancement MDF Xlcalendar
#21
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 24-09-2015 19h43

Bonjour Aurélie,

 

Ce lien devrait pouvoir t'aider: http://www.mdf-xlpages.com/modules/publisher/item.php?itemid=5

 

Bien à toi,

 

mth

Hors Ligne
Rapport   Haut 

Re: Actualisation groupe TCD
#22
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 07-09-2015 22h27

Bonjour Myriam,

 

Une piste à tout hasard, il est possible que dans ton champ date tu aies des données texte au milieu des dates, si certaines données ne sont pas de "vraies" dates alors le groupement ne peut pas se recalculer.

Pourrais-tu vérifier ce point ?

 

Bien à toi,

 

mth

Hors Ligne
Rapport   Haut 

Re: Recherche de valeur dans une colonne
#23
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 05-09-2015 16h30

Bonjour ThierryB et bienvenue parmi nous,

 

Ta question n'est pas très explicite, sans doute devrais-tu ouvrir ton propre fil et déposer un petit fichier exemple de ce que tu cherches à faire, tu auras certainement plus de réponses.

 

A bientôt,

 

mth

Hors Ligne
Rapport   Haut 

Re: Insérer des lignes dans un tableau
#24
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 10-06-2015 00h01

Bonsoir Florian, bonsoir à tous,

 

J'ai modifié le code pour travailler colonne 3, cf ci-dessous

 

Option Explicit
Sub Insertion()

'Déclaration des variables
Dim lig As Long, i As Long

With ActiveSheet 'Travaille sur l'onglet actif

 'Calcule la dernière cellule remplie de la colonne C
 'à adapter, par exemple pour la colonne D remplacer le 3 par 4:
 lig = .Cells(Rows.Count, 3).End(xlUp).Row
 
 If lig > 1 Then   'S'il y a au moins deux lignes:
  
  'boucle de la dernière ligne à la ligne 3 (s'il y a un intitulé de colonne ligne 1)
  'en remontant d'un pas de 1
  For i = lig To 3 Step -1
   
   'Teste si la cellule est différente de la cellule au dessus
   'pour travailler sur la colonne D remplacer égalemet ici 3 par 4
   If .Cells(i, 3) <> .Cells(i - 1, 3) Then
    .Cells(i, 3).EntireRow.Insert 'insérer une ligne
   End If 'Fin du test si cellules différentes
  
  Next i 'passage à la ligne précédente pour la boucle (For ...)
 
 End If ' Fin du premier If si ligne >1

End With 'fermeture du WITH

'appelle la macro de mise en forme
Call Coloriage

End Sub

 

Pour la question suivante il y a plusieurs pistes, une très simple par exemple consiste à écrire une formule dans une nouvelle colonne, une fois que la macro est terminée, formule qui teste la valeur de la cellule par rapport à celle du dessus et affiche un résultat (ici des points d'exclamation) selon le résultat du test.

En PJ cellule E1 et copiée vers le bas:

=SI(ET(D2<>0;D2

 

Autre piste: la mise en forme conditionnelle. Sélectionner les cellules devant appliquer la mise en forme puis voir menu Accueil/Mise en forme conditionnelle/Gérer les règles.

Puis pour modifier une règle: la sélectionner et modifier

Ou pour créer une nouvelle règle: cliquer sur "Nouvelle règle" puis "Utiliser une formule etc." et écrire la formule.

Par exemple formule pour la condition 1:

=ET($D2<>0;$D2>$D1)

On peut aussi intégrer la mise en forme conditionnelle dans une macro, par exemple:

 

 

Option Explicit

Sub Coloriage()
'Déclaration des variables
Dim lig As Long, i As Long

With ActiveSheet 'Travaille sur l'onglet actif

 'Calcule la dernière cellule remplie de la colonne C
 'à adapter, par exemple pour la colonne D remplacer le 3 par 4:
 lig = .Cells(Rows.Count, 3).End(xlUp).Row
 
 If lig > 1 Then   'S'il y a au moins deux lignes:
 
     'travaille sur la plage de cellules colonne D
     With .Range("D2:D" & lig)
     
        'efface les Mises en formes conditionnelles présentes
        .FormatConditions.Delete
        'Ajoute une formule de mise en forme conditionnelle condition 1
        'la valeur est supérieure à celle du dessus
        .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=ET($D2<>0;$D2>$D1)"
        
            'Détermine la couleur verte(à adapter selon des goûts)
            With .FormatConditions(1).Interior
                .PatternColorIndex = xlAutomatic
                .Color = 60113
                .TintAndShade = 0
            End With

        'Ajoute une formule de mise en forme conditionnelle condition 1
        'la valeur est inférieure à celle du dessus
        .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=ET($D2<>0;$D2<$D1)"
                        
            'Détermine la couleur rouge(à adapter selon des goûts)
            With .FormatConditions(2).Interior
                .PatternColorIndex = xlAutomatic
                .Color = 4261375
                .TintAndShade = 0
            End With
        End With
    End If
End With
End Sub

 

C'est ce que j'ai fait dans le fichier joint.

Vois si cela peut t'aider,

Bonne soirée,

 

mth

 

Pièce jointe:
xlsm Copie de Florian.xlsm   [ Taille: 23.53 Ko - Téléchargements: 406 ]
Hors Ligne
Rapport   Haut 

Re: Insérer des lignes dans un tableau
#25
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 09-06-2015 00h36

Bonsoir Florian, bonsoir à tous,

 

Peut-être avec une macro, un essai dans le fichier joint, avec ce code (cliquer sur le bouton Go dans l'onglet):

Option Explicit
Sub Insertion()

'Déclaration des variables
Dim lig As Long, i As Long

With ActiveSheet 'Travaille sur l'onglet actif

 'Calcule la dernière cellule remplie de la colonne A
 'à adapter, par exemple pour la colonne D remplacer le 1 par 4:
 lig = .Cells(Rows.Count, 1).End(xlUp).Row
 
 If lig > 1 Then   'S'il y a au moins deux lignes:
  
  'boucle de la dernière ligne à la ligne 3 (s'il y a un intitulé de colonne ligne 1)
  'en remontant d'un pas de 1
  For i = lig To 3 Step -1
   
   'Teste si la cellule est différente de la cellule au dessus
   If .Cells(i, 1) <> .Cells(i - 1, 1) Then
    .Cells(i, 1).EntireRow.Insert 'insérer une ligne
   End If 'Fin du test si cellules différentes
  
  Next i 'passage à la ligne précédente pour la boucle (For ...)
 
 End If ' Fin du premier If si ligne >1

End With 'fermeture du WITH

End Sub

Très bonne soirée,

 

mth

Pièce jointe:
xlsm Florian.xlsm   [ Taille: 20.56 Ko - Téléchargements: 420 ]
Hors Ligne
Rapport   Haut 

Re: valeur d'une cellule en fonction d'une autre
#26
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 05-06-2015 00h53

Bonsoir pitchoune, bonsoir à tous,

 

Une simple formule à l'aide de RECHERCHEV() pourrait sans doute faire l'affaire ? voir dans l'aide Excel la fonction RECHERCHEV() qui est bien documentée, exemple dans le fichier joint

 

Très bonne soirée,

 

mth

 

Pièce jointe:
xlsx exemple.xlsx   [ Taille: 11.38 Ko - Téléchargements: 845 ]
Hors Ligne
Rapport   Haut 

Re: Afficher des lignes "vides" dans un TCD
#27
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 05-06-2015 00h42

Bonjour Protostomien, bonjour le forum,

 

A priori si l'on filtre on ne peut pas conserver l'affichage, c'est l'un ou l'autre. Si j'ai bien interprété le plus simple est peut-être de mettre une formule dans le tableau, comme ci-joint par exemple.

 

Très bonne soirée,

 

mth

Pièce jointe:
xlsx Exemple affichage enregistrement vide sur TCD.xlsx   [ Taille: 17.65 Ko - Téléchargements: 443 ]
Hors Ligne
Rapport   Haut 

Re: somme des valeurs en lettre sur les colonne
#28
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 22-12-2014 19h39

Bonjour tojoandry, bienvenue parmi nous,

 

Tu connais bien ton fichier mais pas nous, et pour quelqu'un qui n'a pas les données sous les yeux la question me semble-t-il n'est pas si limpide, tu souhaites compter le nombre de lettres au dessus de quoi? et faire la somme de quoi ?

 

A tout hasard, si tu souhaites compter le nombre de cellules remplies de A1 à A4 qui ne soient pas égales à "Repos", cette formule pourrait peut-être y répondre:

=NB.SI(A1:A4;"<>"&"Repos")

Si cela ne correspond pas à ta question, pourras-tu donner plus de détail pour que l'on puisse t'aider au mieux?

 

Bien à toi,

 

mth

Hors Ligne
Rapport   Haut 

Re: Formule couleur-Date Excel
#29
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 12-11-2014 14h12

Bonjour Exso, bonjour le forum,

 

Contente que tu aies pu résoudre ton problème.

Pour la suite il vaudra mieux créer un nouveau fil quand tu auras un peu avancé sur ton tableau.

La gestion des périodes d'essai peut s'avérer un peu compliquée, en fonction de la catégorie de personnel, des jours fériés, des délais mini et maxi, etc ... nous ne sommes pas experts en DRH donc ne pouvons faire ce travail à ta place, en revanche bien évidemment si tu bloques sur une formule, nous ferons notre possible pour répondre à tes questions.

Bon courage pour ton tableau et à une pochaine fois,

 

mth

Hors Ligne
Rapport   Haut 

Re: Formule couleur-Date Excel
#30
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 10-11-2014 23h40

Bonsoir Exso, bonsoir ericcool,

 

Il y a un décalage entre la formule du format conditionnel et la plage à laquelle elle s'applique.

 

La formule conditionnelle est:

=ET($D2<>"";$D2<AUJOURDHUI())

Actuellement elle s'applique à la plage : =$D$3:$D$65

Il faudrait remplacer en =$D$2:$D$65

 

(Attention: en modifiant la plage, il est possible qu'Excel modifie la formule conditionnelle, il faut donc bien vérifier qu'elle reste sur la ligne D2)

 

Même principe pour les autres conditions, dans le fichier joint j'ai juste modifié la dernière condition (pour le vert) en:

=ET(ESTNUM($D2);$D2>AUJOURDHUI()+15)

ceci afin d'aviter d'avoir du vert sur les cellules texte.

 

Vois si cela peut t'aider,

 

Très bonne soirée,

 

mth

Pièce jointe:
xlsx pour forum.xlsx   [ Taille: 15.33 Ko - Téléchargements: 543 ]
Hors Ligne
Rapport   Haut 

« 1 2 3 4 5 6 ... 36 »