1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2007 Code VBA insérer un commentaire sous condition

Discussion dans 'Forum Excel' démarrée par Elisa47, 4 Décembre 2018.

  1. Elisa47

    Elisa47 XLDnaute Nouveau

    Inscrit depuis le :
    26 Novembre 2018
    Messages :
    10
    "J'aime" reçus :
    0
    Bonjour le forum,

    J'ai un fichier Excel qui comprend 2 onglets : "coupon réponse 1Q2019" et "Feuille2".
    Dans l'onglet "coupon réponse 1Q2019" les utilisateurs remplissent les cellules des colonnes C, D, E et F en fonction de leur choix. S'ils veulent participer à une sortie et faire 18 trous, ils inscrivent 1 dans la colonne "18 Trous" (colonne E), s'ils veulent faire 9 trous, ils inscrivent 1 dans la colonne "9 Trous" (colonne F), s'ils veulent participer au repas, ils notent 1 dans la colonne "Repas" (colonne G), et s'ils veulent une golfette, ils notent 1 dans la colonne "Golfette" (colonne H).
    Les valeurs des cellules des colonnes E, F et G sont reportées dans l'onglet "Feuille2".
    Pour faciliter l'exploitation de ce fichier qui est envoyé à tous les adhérents, je souhaiterai que lorsqu'un adhérent demande une golfette pour faire 18 trous ou 9 trous, à une sortie, une macro, insère un commentaire dans la cellule correspondante de la Feuille2.
    Voir le fichier joint.
    Merci d'avance pour votre aide.
     

    Pièces jointes:

  2. Chargement...

    Discussions similaires - Code VBA insérer Forum Date
    XL 2013 Insérer code VBA à la création d'une feuille Forum Excel 3 Mars 2017
    code vba ActiveWorkbook.CheckCompatibility = False à insérer Forum Excel 25 Janvier 2015
    Code VBA, insérer automatiquement une image dans cellules fusionnées Forum Excel 12 Janvier 2015
    Insérer une forme via un code VBA Forum Excel 16 Juin 2013
    Inserer une formule dans une cellule grace à un code vba Forum Excel 16 Février 2012

  3. CHALET53

    CHALET53 XLDnaute Barbatruc

    Inscrit depuis le :
    26 Juillet 2006
    Messages :
    3358
    "J'aime" reçus :
    114
    Habite à:
    Verchaix
    Utilise:
    Excel 2007 (PC)
    Un essai
    Lancer la macro avec le bouton Lance
    a+
     

    Pièces jointes:

  4. Elisa47

    Elisa47 XLDnaute Nouveau

    Inscrit depuis le :
    26 Novembre 2018
    Messages :
    10
    "J'aime" reçus :
    0
    Bonjour CHALET53,

    Merci pour ton aide.
    Petite précision le commentaire doit être ajouté aux cellules 18T ou 9T, uniquement si une golfette est demandée, c'est à dire s'il y a un "1" dans la colonne "Golfette" de l'onglet "coupon réponse 1Q2019".
    Pour simplifier j'ai reporté cette information dans l'onglet "Feuille2", à la ligne 5, avec un "1" sous "18T" ou "9T" si une golfette est demandée.
    J'ai collé dans ton code dans le classeur, mais je ne sais pas le modifier, pour que le commentaire soit inséré à la ligne 4 eu lieu de la ligne 5.
    Pourrais-tu le corriger STP ?
    Merci
     

    Pièces jointes:

  5. CHALET53

    CHALET53 XLDnaute Barbatruc

    Inscrit depuis le :
    26 Juillet 2006
    Messages :
    3358
    "J'aime" reçus :
    114
    Habite à:
    Verchaix
    Utilise:
    Excel 2007 (PC)
    Je ne suis pas sûr de comprendre ce que tu veux faire
    Mettre sur la ligne 4 le commentaire :eek:k
    Je suppose qu'il peut y avoir un autre individu sur la ligne 5 : s'il y a un "1" dans la colonne 18T pour cet individu, il faut mettre le commentaire sur cette ligne également, je suppose
    ..et ainsi de suite
     
  6. Elisa47

    Elisa47 XLDnaute Nouveau

    Inscrit depuis le :
    26 Novembre 2018
    Messages :
    10
    "J'aime" reçus :
    0
    Re-bonjour CHALET53,

    Non ce fichier ne sert qu'à une seule personne et donc seules les lignes 4 et 5 de l'onglet "Feuille2" m'intéressent. Chaque membre de l'association reçoit un fichier identique à celui-ci et indique ces souhaits en mettant un "1" dans les sorties de l'onglet "coupon réponse 1Q2019".
    Les données des cellules (D4:BN5) sont ensuite copiées et collées dans un fichier général avec tous les membres de l'association et le calendrier des sorties.
    Et pour savoir si un joueur veut une golfette pour une sortie, on insère un commentaire dans la cellule qui contient un "1" dans la colonne "18T" ou "9T" de la sortie concernée.

    Encore merci pour ton aide.
     
  7. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    25805
    "J'aime" reçus :
    2196
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Bonjour Elisa47, CHALET53,

    Avec le fichier du post #1 :
    Code (Text):
    Sub CommentaireGolfette()
    Dim c As Range, c1 As Range, c2 As Range
    Application.ScreenUpdating = False
    On Error Resume Next 'si aucune SpecialCell
    Rows(4).ClearComments 'RAZ
    For Each c In Feuil1.[H:H].SpecialCells(xlCellTypeConstants, 1)
        Set c1 = Cells(2, Application.Match(c(1, -5), Rows(2), 0))
        Set c2 = Nothing
        If c1(3, 0) <> 0 Then
            Set c2 = c1(3, 0)
        ElseIf c1(3, 1) <> 0 Then
            Set c2 = c1(3, 1)
        End If
        With c2.AddComment
            .Text "Golfette partagée"
            .Shape.TextFrame.AutoSize = True
            .Shape.Top = c2(2).Top
            .Visible = True
        End With
    Next
    End Sub
    A+
     

    Pièces jointes:

    arthour973 aime votre message.
  8. Elisa47

    Elisa47 XLDnaute Nouveau

    Inscrit depuis le :
    26 Novembre 2018
    Messages :
    10
    "J'aime" reçus :
    0
    Bonjour job75, CHALET53,

    Merci beaucoup pour votre aide.

    Très bonne journée.
     

Partager cette page