IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Insert des commentaires avec les colonnes masquées [XL-2013]


Sujet :

Macros et VBA Excel

  1. #1
    Membre très actif Avatar de tony76
    Homme Profil pro
    Développeur pour le plaisir....
    Inscrit en
    Avril 2014
    Messages
    131
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Développeur pour le plaisir....

    Informations forums :
    Inscription : Avril 2014
    Messages : 131
    Par défaut Insert des commentaires avec les colonnes masquées
    Bonjour à tous le titre n'est pas très parlent mais pas facile à décrire en quelque mots

    voici mon problème j'ai 2 onglets dans chacun un tableau avec des données

    dans l'onglet 2 dans la colonne H j'insère des commentaire selon des infos du 1er onglet tout marche très bien

    sauf quand je masque des colonnes (de J à AG) il m'insère les commentaires uniquement ceux qui contienne une ou plusieurs lettre (ici en jaune)

    Voici les commentaires dans la colonne H colonne non masquée (tous les com. sont dans la colonne H jaune et orange)
    Nom : Commentaire.PNG
Affichages : 115
Taille : 7,7 Ko

    Est ici une fois les colonnes masquée il ne reste plus que les commentaires de ceux qui contienne une ou plusieurs lettre
    et qui sont colorer dans mon exemple (jaune)
    Nom : commentaire-2.PNG
Affichages : 103
Taille : 3,6 Ko


    le code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
     
    Option Explicit
     
    Private Sub CommentAjout()
     
    Sheets("Tableau2").Range("H6:H80").ClearComments
     
    Dim c As Range
    Dim i As Byte
    Dim Immat As String, Nsimat As String
    Dim Commentaire As String
     
     
        For i = 19 To 129
            Sheets("Tableau1").Activate
            If Sheets("Tableau1").Range("M" & i).Value = "X" And Sheets("Tableau1").Range("B" & i).Value = 1 Then
                Immat = Sheets("Tableau1").Range("I" & i).Value
                Commentaire = Sheets("Tableau1").Range("N" & i).Value
                Nsimat = Sheets("Tableau1").Range("J" & i).Value
     
                For Each c In Sheets("Tableau2").Range("J6:J80, N6:N80, R6:R80, V6:V80, Z6:Z80, AD6:AD80")
                    If c.text = Immat Then
                        With Sheets("Tableau2").Range("H" & c.Row)
                            If .Comment Is Nothing Then ' Le commentaire n'existe pas, on le crée
                                .AddComment
                                If Nsimat <> Immat Then
                                    .Comment.text text:=Immat & " N° SIMAT : " & Nsimat & Chr(10) & Commentaire
                                Else
                                    .Comment.text text:=Immat & ": " & Chr(10) & Commentaire
                                End If
                                    .Comment.Shape.TextFrame.AutoSize = True
                                     Exit For
                            Else 'Un commentaire existe déjà, on ajoute alors le nouveau à la fin de celui existant
                                If Nsimat <> Immat Then
                                    .Comment.text text:=.Comment.text & Chr(10) & Immat & " N° SIMAT : " & Nsimat & Chr(10) & Commentaire
                                Else
                                    .Comment.text text:=.Comment.text & Chr(10) & Immat & ": " & Chr(10) & Commentaire
                                End If
                                    .Comment.Shape.TextFrame.AutoSize = True
                                     Exit For
                            End If
                        End With
                    End If
                Next c
            End If
        Next i
    End Sub
    merci d'avance pour vos réponses

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Bonjour
    utilise la propriété Text et non la propriété Value des cellules dont le contenu doit alimenter un commentaire.

  3. #3
    Membre très actif Avatar de tony76
    Homme Profil pro
    Développeur pour le plaisir....
    Inscrit en
    Avril 2014
    Messages
    131
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Développeur pour le plaisir....

    Informations forums :
    Inscription : Avril 2014
    Messages : 131
    Par défaut
    merci pour cette réponse, mais cela ne marche toujours pas bizarre

  4. #4
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    mais cela ne marche toujours pas bizarre
    Que te dire ? Chez moi -->> "marche" très bien, que les cellules abondant le commentaire contiennent des lettres ou uniquement des chiffres ou pas (alors que ne "marche" pas en utilisant la propriété Value).

  5. #5
    Membre très actif Avatar de tony76
    Homme Profil pro
    Développeur pour le plaisir....
    Inscrit en
    Avril 2014
    Messages
    131
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Développeur pour le plaisir....

    Informations forums :
    Inscription : Avril 2014
    Messages : 131
    Par défaut
    Citation Envoyé par unparia Voir le message
    Que te dire ? Chez moi -->> "marche" très bien, que les cellules abondant le commentaire contiennent des lettres ou uniquement des chiffres ou pas (alors que ne "marche" pas en utilisant la propriété Value).
    Bon bah je voie pas trop ou cela peux venir tu à testé avec quelle version d'Excel 2013 ou autre ?

  6. #6
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Testé avec 2007. Je ne vois pas pourquoi la version 2013 réagirait différemment.
    Une autre fois : j'ai également (version 2007) un problème en utilisant la propriété value de la cellule devant abonder le commentaire et n'en ai pas en utilisant sa propriété text.
    Et ton code (le seul montré) utilise ... la propriété Value ...

  7. #7
    Membre très actif Avatar de tony76
    Homme Profil pro
    Développeur pour le plaisir....
    Inscrit en
    Avril 2014
    Messages
    131
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Développeur pour le plaisir....

    Informations forums :
    Inscription : Avril 2014
    Messages : 131
    Par défaut
    pour la version d'Excel je voie toute les piste

    pour ce qui est de mettre les value en text c'est fait.

  8. #8
    Membre très actif Avatar de tony76
    Homme Profil pro
    Développeur pour le plaisir....
    Inscrit en
    Avril 2014
    Messages
    131
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Développeur pour le plaisir....

    Informations forums :
    Inscription : Avril 2014
    Messages : 131
    Par défaut
    bonjour à tous, et désolé de ne pas avoir répondu avant j'ai eu une coupure internet

    merci de m'avoir aider.

    pour ce qui et de mettre les propriété de value en text cela na pas suffi, je m’explique
    en mettant un espion sur mes variable j'ai remarquer que mettre en text la variable c resté en numérique

    j'ai juste rajouté une condition (voir dernière ligne commenté) le reste na pas changer

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
    For i = 19 To 129
            Sheets("DTO OA CCL").Activate
            If Sheets("DTO OA CCL").Range("M" & i).text = "X" Or Sheets("DTO OA CCL").Range("M" & i).text = "x" And Sheets("DTO OA CCL").Range("B" & i).Value = 1 Then
     
                Immat = Sheets("DTO OA CCL").Range("I" & i).text
                Commentaire = Sheets("DTO OA CCL").Range("N" & i).text
                Nsimat = Sheets("DTO OA CCL").Range("J" & i).text
     
                For Each c In Sheets("DTI 25").Range("J6:J80, N6:N80, R6:R80, V6:V80, Z6:Z80, AD6:AD80")
                    If c.text = Immat Or c.Value = Immat Then 'ici j'ai ajouté ou c.value et sa marche impecable
    encore merci, maintenant si il y à une façon plus efficace je suis preneur
    le sujet et tout de même résolu

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 24/01/2014, 14h27
  2. [XL-2007] Selection avec répartition des valeurs sur les colonnes
    Par lili31 dans le forum Macros et VBA Excel
    Réponses: 20
    Dernier message: 20/04/2012, 10h16
  3. [MySQL] Insertion des données avec les caractères spéciaux
    Par rachou59650 dans le forum PHP & Base de données
    Réponses: 2
    Dernier message: 02/05/2008, 11h16
  4. Exporter des données avec les insert
    Par maximenet dans le forum MS SQL Server
    Réponses: 1
    Dernier message: 03/04/2006, 16h20

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo