Contenu récent par Mate59

Dim plage As Range Dim cell As Range Dim compteur As Integer Set plage = ActiveSheet.Range("C6:Q6") compteur = 0 For Each cell In plage If Not cell.Comment Is Nothing Then If InStr(1, cell.Comment.Text, "absence", vbTextCompare) > 0 Then...

J'ai déjà essayé et c'est pas le texte à l'intérieur de la cellule que je voudrais cibler mais bien le texte dans la note accrochée à la cellule

Bonjour à tous, Après avoir fait plusieurs recherches, je viens vers vous car j'aimerai calculer le nombre de cellule contenant des notes et plus précisément des notes qui contiennent un mot spécifique. J'espère que cela est possible en passant par un simple calcul dans une cellule au même...

Merci pour votre aide! Tout fonctionne parfaitement :D

Si je met un autre objet avec les même codes mais une colonne cible différente à la suite dans les codes cela ne fonctionne pas pour le coup car le exit sub met fin à la procédure. Option Explicit Private Sub worksheet_activate() Dim i As Long 'Si la date est égale à celle du jour alors...

Merci cela fonctionne! :D

Bonjour à tous, Je viens vers vous après une journée de recherche sans trouver de solutions. En effet, j'ai déclaré une variable dans mon document mais elle ne fonctionne pas. J'ai essayé de redémarrer excel et le pc dans un second temps mais ça ne fonctionne pas. Je vous mets le fichier afin...

Regarde, il fonctionne à moins que tu me dises où il y a un problème

Chez moi tout fonctionne 😅

Bonjour à tous, J'ai réussi avec ce code à faire ce que je voulais. Je sais que certaines choses ne sont pas conseillé mais j'ai tout de même insisté. MERCI A TOUS POUR VOTRE AIDE! Option Explicit Dim TabMois(1 To 12, 1 To 3) 'on définit les dimmensions du tableau des Mois 12 (colonne 0 du...

En effet, les week-end fonctionnent, les cases ne sont pas remplies. Pour les jours fériés, ça ne fonctionnent pas et par exemple PERS01 prend son congés au 2/01 Matin jusqu'au 5/01 Après-midi et il y a 2 cases qui ne se remplissent pas, le 02/01 après-midi et le 05/01 Matin. Il reste donc à...

Voici le fichier si jamais vous souhaitez regarder

Bonjour, j'ai avancé et finalement avec ce code j'arrive à faire apparaître CP dans la case voulue mais pour clôturer la date de fin je n'arrive pas à faire entrer CP dans toutes les cases. For l = 12 To 743 For c = 4 To 28 'Si CBx1 égal prénom et CBx3 égal date et CBx4 égale am ou pm alors...

Ce qui te prends une semaine me prend 1 mois 🤣 Mais bien joué !

Merci je regarde de suite