Re: Lancement MDF Xlcalendar | ||
---|---|---|
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 |
|
|
Re: Actualisation groupe TCD | ||
---|---|---|
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 |
|
|
Re: Recherche de valeur dans une colonne | ||
---|---|---|
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 |
|
|
Re: Insérer des lignes dans un tableau | ||
---|---|---|
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
|
|
|
Re: Insérer des lignes dans un tableau | ||
---|---|---|
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 |
|
|
Re: valeur d'une cellule en fonction d'une autre | ||
---|---|---|
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
|
|
|
Re: Afficher des lignes "vides" dans un TCD | ||
---|---|---|
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:
Exemple affichage enregistrement vide sur TCD.xlsx [ Taille: 17.65 Ko - Téléchargements: 443 ] |
|
|
Re: somme des valeurs en lettre sur les colonne | ||
---|---|---|
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 |
|
|
Re: Formule couleur-Date Excel | ||
---|---|---|
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 |
|
|
Re: Formule couleur-Date Excel | ||
---|---|---|
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 |
|
|