Discussion :

[tony76]

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)


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)



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

[unparia]

Bonjour
utilise la propriété Text et non la propriété Value des cellules dont le contenu doit alimenter un commentaire.

[tony76]

merci pour cette réponse, mais cela ne marche toujours pas bizarre

[unparia]

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).

[tony76]

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 ?

[unparia]

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 ...

[tony76]

pour la version d'Excel je voie toute les piste

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

[tony76]

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