anthoYS
XLDnaute Barbatruc
Bonjour,
Dans mon fichier voici le code déjà présent :
Je souhaite en fait que si seulement le double clic à lieu en B dans cet onglet, qu'il affiche en commentaire l'image qu'il trouvera associé à B et à A. Car en B il y a le prénom "Prénom" et en A le nom "NOM". Biensur, veillons à les séparer d'un espace, ainsi Prénom NOM (A&""&B). Ainsi il lira le fichier dans le répertoire correspondant à ce nom "Prénom NOM.jpg" par exemple...
Prévoir dans le code, que si le double clic à lieu en B, mais que dans le répertoire il n'y a aucune image correspondant à l'identité, qu'il ne fasse rien.
Voici le code à agréger et à modifier pour qu'il ne soit valide qu'en B (double clic aussi) :
Merci par avance.
Dans mon fichier voici le code déjà présent :
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True ' le Double click ne sert qu'a ça
If Not Application.Intersect(Target, [F:F]) Is Nothing Then 'ne concerne que la colonne F
Target.Value = IIf(Not Target.Value = "þ", "þ", "o") 'si la cellule est = þ au _
double click elle devient o au double click suivant elle redevient þ etc...
If Target.Value = "þ" Then 'si la cellule = þ
Range(Target.Offset(0, -1), Target.Offset(0, -5)).Interior.ColorIndex = 15
' colorie en gris la plage de cellules da A à C
Else ' sinon
Range(Target.Offset(0, -1), Target.Offset(0, -5)).Interior.ColorIndex = xlNone
' remet la couleur d'origine sur cette même plage
End If ' Fin de la 1ère condition
End If ' fin de la 2ème condition
If Target.Column = 1 Then
Cells(Target.Row, 1).Interior.ColorIndex = 6
Cells(Target.Row, 2).Interior.ColorIndex = 6
End If
If Target.Column = 4 Then
Cells(Target.Row, 4).Interior.ColorIndex = 5
End If
If Target.Column = 5 Then
Cells(Target.Row, 5).Interior.ColorIndex = 5
End If
End Sub
Je souhaite en fait que si seulement le double clic à lieu en B dans cet onglet, qu'il affiche en commentaire l'image qu'il trouvera associé à B et à A. Car en B il y a le prénom "Prénom" et en A le nom "NOM". Biensur, veillons à les séparer d'un espace, ainsi Prénom NOM (A&""&B). Ainsi il lira le fichier dans le répertoire correspondant à ce nom "Prénom NOM.jpg" par exemple...
Prévoir dans le code, que si le double clic à lieu en B, mais que dans le répertoire il n'y a aucune image correspondant à l'identité, qu'il ne fasse rien.
Voici le code à agréger et à modifier pour qu'il ne soit valide qu'en B (double clic aussi) :
Code:
repertoire = ThisWorkbook.Path & "\"
With Target
.ClearComments
.AddComment
.Comment.Text Text:=.Value
If Dir(repertoire & .Value & ".jpg") <> "" Then
.Comment.Shape.Fill.UserPicture repertoire & .Value & ".jpg"
.Comment.Shape.Height = 50
.Comment.Shape.Width = 50
.Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
End If
End With
Cancel = True
End Sub
Merci par avance.