Selection de zone en VBA selon recherche

bonjour a tous

un petit blocage pour une macro !!

je cherche a définir une zone de sélection situer 2 lignes en dessous d'une cellule qui est rechercher par une macro

je m'explique :

exemple:

la cellule G1 qui est le résultat d'une cellule recherché est sélectionné

je souhaite sélectioner la zone G3 a H25 pour copier les données sur un autre onglet.

je c'est pas si j'ai été clair mais sinon voila mon code.

Sub AFFICHAGE_CHIFFRE()

Dim H As String
Dim J As String

  'recherche de la date
        rep = Sheets("C.A BASE DONNEE").Range("AGT26").Value
        Sheets("C.A BASE DONNEE").Select
        Set R = Rows("1").Find(rep, LookIn:=xlValues)
        R.Select

  'selection de la plage

        H = R.Offset(2, 0).Select

        J = H.Offset(18, 1).Select

End Sub

merci de votre aide

Bonjour

A tester

Sub AFFICHAGE_CHIFFRE()
Dim Rep
Dim R As Range

  'recherche de la date
  Rep = Sheets("C.A BASE DONNEE").Range("AGT26").Value
  Sheets("C.A BASE DONNEE").Select
  Set R = Rows("1").Find(Rep, LookIn:=xlValues)
  If Not R Is Nothing Then
    R.Offset(2, 0).Resize(23, 2).Select
  Else
    MsgBox Rep & " non trouvé"
  End If
End Sub

Bonjour banzai64

merci pour ta réponse , je viens de tester et c'est pratiquement ce que je cherche , la seule chose c'est que je ne souhaite pas les deux premieres ligne d'entête de mon table , la sélection commence a partir de la ligne 3 jusque la ligne 21

merci pour ton aide

Bonjour

houdy a écrit :

et c'est pratiquement ce que je cherche

Tu as bien demandé de G3 à H25, dans ce cas on obtient AGV3 à AGW25 donc les lignes d'entêtes ne sont pas dans la sélection

Mais tu veux de la ligne 3 à 21

Modifies le code pour vérification et pour n'avoir la sélection jusqu'à la ligne 21

Sub AFFICHAGE_CHIFFRE()
Dim Rep
Dim R As Range

  'recherche de la date
 Rep = Sheets("C.A BASE DONNEE").Range("AGT26").Value
  Sheets("C.A BASE DONNEE").Select
  Set R = Rows("1").Find(Rep, LookIn:=xlValues)
  If Not R Is Nothing Then
    R.Offset(2, 0).Resize(19, 2).Select
    MsgBox "Coordonnées : " & Selection.Address(0, 0)
  Else
    MsgBox Rep & " non trouvé"
  End If
End Sub

arff c'est parfait , j'avait mal copier le code.

merci de ton aide et de ta rapidité !!!

a bientôt