Discussion :

[Aeltith]

Bonjour

Sur une case d'une feuille Excel quand je fais bouton droit dessus il y à l'option pour "insérer un commentaire".

Est il possible de réaliser ça avec VBA dans un code ?

Si oui comment ça s'appelle le code ou la fonction qui le permet ?

Merci pour vos réponses.

[helios77]

voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
    Range("C2").Select
    Range("C2").AddComment
    Range("C2").Comment.Visible = False
    Range("C2").Comment.Text Text:="Ton commentaires"    
    Range("F4").Select

Evidemment, le commentairesse mettre sur la cellule C2... a toi de te débrouiler pour mettre le commentaire dans le cellule qui t'arrange

[zazaraignée]

Comme je dis toujours, pour quoi des Select quand on peut s'en passer ? surtout qu'ils ralentissent l'exécution du code...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Range("C2")
    .AddComment
    .Comment.Visible = False
    .Comment.Text Text:="Ton commentaires"
end With

[Aeltith]

ok merci !

Désolé pour les réponses tardives mais étant en week end sans internet, je n'ai pas pu répondre ni voir vos réponses.

De retour au bureau ce matin j'essaie ce que vous m'avez donné et je vous fais un retour rapide.

Merci encore

[ancel17]

Suis d'accord avec Zaza moi !

Les Select ça fout le brain...
Je m'en sert jamais, mais ça doit qd meme avoir une utilité à un moment donné !
Mais lequel...

[helios77]

Bonjour,

Avant de dire que le Selct est beaucoup plus lent que le With, il faut vérifier et non pas se fier ce que chacun peut dire ou penser

Je viens de faire un petit test car je voulais vérifier et savoir pour m'améliorer si le With était effectivement plus performant

Voici le code et les résultat... vous pouvez essayer si vous le vouler

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
 
Function methode(m As Integer,nbre as long) As String
Dim d1, d2 As Date
Dim i As Long
d1 = Now()
i = 1
While i <= nbre
    If m = 1 Then
        Range("C" & i).Select
        Range("C" & i).AddComment
        Range("C" & i).Comment.Visible = False
        Range("C" & i).Comment.Text Text:="Ton commentaires"
    End If
    If m = 2 Then
        With Range("D" & i)
            .AddComment
            .Comment.Visible = False
            .Comment.Text Text:="Ton commentaires"
        End With
    End If
    i = i + 1
Wend
 
d2 = Now()
methode = CStr(DateDiff("s", d1, d2))
 
End Function
 
 
Sub test()
    Dim str1, str2 As String
    Dim nbreLignes as long
   nbreLignes=5000
    str1 = methode(1,nbreLignes)
    str2 = methode(2,nbreLignes)
 
    MsgBox "Méthode 1 en " & str1 & " secondes" & Chr(13) & "Méthode 2 en " & str2 & " secondes"
End Sub

Voici les résultats :
Pour 100 lignes : m1 en 0 s contre 1 s pour la m2
Pour 2000 lignes : m1 en 7 s contre 11 s pour la m2
Pour 5000 lignes : m1 en 25 s contre 75 s pour la m2

Donc visiblement, les choses ne s'arrangent pas avec masse de données donc, je pense que le select est plus performant que le With (au moins dans ce genre de cas)

Juste pour vous informer que nos propres habitudes ne sont pas forcément les meilleures....