galopin01 a écrit :
bonjour,
Cliquer sur la photo pour la sélectionner :
Lire le nom et l'adresse de la source dans la barre de formule.
A+
La honte ! C'est la réponse que je cherchais et tu étais sous mes yeux !
Mille merci
jmd a écrit :
re
je ne comprends pas trop bien.
à quoi sert la (les) vue appareil photo ? ne vaut-il pas mieux mettre de simples = pour renvoyer un affichage d'une zone à une autre (ce que je fais depuis 5 ans dans mes fichiers) ?
En gros, est-ce qu'on se crée des problèmes d VBA alors qu'on pourrait travailler facilement en reprenant le problème à la base ?
le menu Accueil/Rechercher/Atteindre/Cellules/Objets sélectionne tous les objets.
Je te mets le code complet et tu verras l'intérêt
En pratique je vais sur la colonne E.... l'image (une liste sur 2 colonnes = code/libellé) apparaît, je saisi le code dans E et automatiquement le libellé s'inscrit dans la colonne F !
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [E5:E216]) Is Nothing Then
Shapes("image 13").Visible = True
Shapes("image 13").Top = Target.Top + 16
Else
Shapes("image 13").Visible = False
End If
If Not Intersect(Target, [H5:H216]) Is Nothing Then
Shapes("image 12").Visible = True
Shapes("image 12").Top = Target.Top + 16
Else
Shapes("image 12").Visible = False
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [E5:E216]) Is Nothing Then 'Code comptable
Target.Offset(0, 1) = WorksheetFunction.VLookup(Target, Range("E245:F269"), 2, 0) 'Liste comptable
Target.Offset(0, 2).Activate
End If
If Not Intersect(Target, [H5:H216]) Is Nothing Then 'Code bénéficiaires
Target.Offset(0, 1) = WorksheetFunction.VLookup(Target, Range("H245:J269"), 2, 0) 'Liste bénéficiaires
Target.Offset(0, 2).Activate
End If
End Sub