selection cellules

[philippe]

bonjour

Dans une base de données, je sélectionne en B par la macro ci-dessous (après tri) toutes les cellules contenant la même valeur. Je souhaiterai étendre cette sélection aux cellules voisines des colonnes C et D
Et là je bloque ! alors si quelqu'un peut m'aider ca serait génial

merci par avance
Philippe

Sub cherchevaleur()
Dim x As xlQueryType
x = InputBox('ma valeur')
With Range(IIf([B1] = x, [B1], [B:B].Find(x, [B1])), 'B65536')
Range(.Item(1), .ColumnDifferences(.Item(1))(0)).Select
End With
End Sub

 

[Hervé]

Bonjour philippe

essayes comme ceci : Range(.Item(1), .ColumnDifferences(.Item(1))(0, 3)).Select

salut

 

[Philippe]

super c'est juste ce que je voulais
merci pour ta réactivité
philippe