P
Philippe
Guest
Bonjour
Dans la colonne B de la feuille1, j'ai une valeur (x) qui peut se trouver à différents endroits (ex: B3, B4, B10 à B15, etc...)
Mon but, est de pouvoir les sélectionner, ainsi que les les cellules adjacentes des colonnes C et E, puis de les copier en A1 de la feuille 2.
J'avais commencé le code qui me permettait d'effectuer la sélection à partir d'une inputbox. Le seul pb est que je dois partir de B1 et que dans mon cas, la première valeur cherchée peut se trouver en B2 ou B3, etc... et qu'enfin il peut y avoir des lignes vides entre chacune des valeurs.
Si quelqu'un a une solution à mon pb, il sera le bienvenu
Macro
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, 3)).Select
End With
End Sub
Dans la colonne B de la feuille1, j'ai une valeur (x) qui peut se trouver à différents endroits (ex: B3, B4, B10 à B15, etc...)
Mon but, est de pouvoir les sélectionner, ainsi que les les cellules adjacentes des colonnes C et E, puis de les copier en A1 de la feuille 2.
J'avais commencé le code qui me permettait d'effectuer la sélection à partir d'une inputbox. Le seul pb est que je dois partir de B1 et que dans mon cas, la première valeur cherchée peut se trouver en B2 ou B3, etc... et qu'enfin il peut y avoir des lignes vides entre chacune des valeurs.
Si quelqu'un a une solution à mon pb, il sera le bienvenu
Macro
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, 3)).Select
End With
End Sub