Insérer un commentaire

[natorp]

Bonjour à toutes et tous

J'ai un petit fichier pour compter les points du tarot, et j'aimerais ajouter un commentaire en fonction du preneur et de celui qui est appelé

Merci de regarder le fichier joint et pour l'aide que vous pourrez m'apporter

Cordialement, Gérard

 

[natorp]

Re : Insérer un commentaire

Un petit up',

Pas d'idée pour mon problème ?

Merci, Gérard

 

[job75]

Re : Insérer un commentaire

Bonjour Gérard,

Dans le code du bouton OK, bien sûr avant l'effacement de N2 et N3 :

Dim col As Variant
col = Application.Match([N2], [G2:K2], 0)
If IsNumeric(col) Then
  Cells(Lign, col + 6).ClearComments 'sécurité
  Cells(Lign, col + 6).AddComment "Preneur" & vbLf & [N6]
  Cells(Lign, col + 6).Comment.Shape.TextFrame.AutoSize = True
End If
col = Application.Match([N3], [G2:K2], 0)
If IsNumeric(col) Then
  Cells(Lign, col + 6).ClearComments 'sécurité
  Cells(Lign, col + 6).AddComment "Appelé"
  Cells(Lign, col + 6).Comment.Shape.TextFrame.AutoSize = True
End If

Permets-moi une petite remarque : depuis le temps tu devrais savoir qu'en VBA les Select sont généralement inutiles et donc à proscrire...

A+

 

[job75]

Re : Insérer un commentaire

Re,

Un chouia mieux à mon avis :

Dim col As Variant
Cells(Lign, "G").Resize(, 5).ClearComments 'sécurité
col = Application.Match([N2], [G2:K2], 0)
If IsNumeric(col) Then
  Cells(Lign, col + 6).AddComment "Preneur" & vbLf & [N6]
  Cells(Lign, col + 6).Comment.Shape.TextFrame.AutoSize = True
End If
col = Application.Match([N3], [G2:K2], 0)
If IsNumeric(col) Then
  Cells(Lign, col + 6).AddComment "Appelé"
  Cells(Lign, col + 6).Comment.Shape.TextFrame.AutoSize = True
End If

A+

 

[natorp]

Re : Insérer un commentaire

Merci Job

pour le code et les conseils....

ça marche super....

Bonne journée, Gérard