X Xavier59 XLDnaute Nouveau 9 Avril 2020 #1 Bonjour J'ai un petit problème, j'aimerais remplacer le RANGE("C12") par le range correspondant à ma une cellule que je selectionne. Le but étant que lorsque je selectionne la cellule et que je lance la macro ma RechercheFind vienne chercher le Range que j'ai selectipnné. Dim a As Range a = ActiveCell.Select Sheets("PILOTAGE").Range("N12:U12").ClearContents R = RechFind(Sheets("PILOTAGE").Range("C12").Value, ThisWorkbook.Name, Sheets("BASE2").Name, Range("D220000").Address, TB()) Merci beaucoup
Bonjour J'ai un petit problème, j'aimerais remplacer le RANGE("C12") par le range correspondant à ma une cellule que je selectionne. Le but étant que lorsque je selectionne la cellule et que je lance la macro ma RechercheFind vienne chercher le Range que j'ai selectipnné. Dim a As Range a = ActiveCell.Select Sheets("PILOTAGE").Range("N12:U12").ClearContents R = RechFind(Sheets("PILOTAGE").Range("C12").Value, ThisWorkbook.Name, Sheets("BASE2").Name, Range("D220000").Address, TB()) Merci beaucoup
sylvanu XLDnaute Barbatruc Supporter XLD 9 Avril 2020 #2 Bonsoir Xavier, Vous n'étiez pas loin. Remplacez a = ActiveCell.Select par a = ActiveCell.Value et Range("C12").Value par a. Vote positif 0 Vote négatif
Bonsoir Xavier, Vous n'étiez pas loin. Remplacez a = ActiveCell.Select par a = ActiveCell.Value et Range("C12").Value par a.