Re : SI cellule colorée en feuille 1 ALORS copier valeur de la cellule en feuille 2
Bonjour Sousou,
C'est juste génial ta macro ! Exactement ce que je me triturai à faire !
Le top du top !
Comme je n'ai pas envie de finir bête, j'aimerai que tu me détailles un peu ce que tu as fait.
1. Détermination de la cellule qui a été modifiée --> ok
2. Dans la ligne suivante :
For Each i In ThisWorkbook.Names("Sociétés").RefersToRange
" ThisWorkbook.Names("Sociétés") " fait bien référence à ma plage "Société" ?
".RefersToRange" : correspond à la société qu'on pointe en particulier dans cette plage "Sociétés" ?
3. If i = Target And i.Interior.ColorIndex = 6 Then --> ok (Target représente bien dans ce cas le nom de la société ?)
4. Pour toutes les lignes du type : " Target.Offset(1, 0) = i.Parent.Cells(i.Row, 1)", là je suis perdue
Target.Offset(i, 0) : que signifie le ".offset" ? La paranthèse (i, 0) indique la position de quelle cellule ? Celles en dessous de D16 ?
i.Parent.Cells(i.Row, 1) : est-ce que le .Parent.Cells fait référence aux cellules adjacentes (càd sur la même ligne) de la feuille "Liste Contacts" ? Pour le (i.Row, 1), j'ai compris à quoi cela correspondait
(noms, prénoms, mail, type)
Autre question:
- lorsque tu fais ce genre manip, est ce que le format de la cellule copiée (cellule de la feuille Liste Contacts) reste le même dans la feuille Recherche ? (Comme je disais à l'initial, je souhaiterai envoyer un mail à partir de cette "fonction recherche par société", il faudrait donc que le format de la cellule soit conservé pour que je puisse directement envoyer le mail, via un mailto, depuis les cellules de l'onglet Recherche)
Merci pour tes conseils et ton aide
Bonne soirée !