bonjour le forum ,
J'ai besoin de votre aide ,pour un pgm VBA que je suis en train de faire .

Explication du fichier et du besoin :
J'ai une collection de données (ligne et colonne aléatoire), dans la plage de données commençant de G3 a X et Y, j'ai besoin de trouver le mot "Recomptage" dans cette plage (Jusque la je pense que c'est bon)
Une fois ce mot trouvé je voudrais récupérer les données contenues dans la ligne du mot trouve en col Ax a Gx et la valeur du titre , et les coller sur un autre onglet
Ce que j'ai essayer de faire :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
Dim PlageTravail As Range, cell As Range
 
Set ws = Sheets("CTRL comptage 1")
NumLign = Range("G" & Rows.Count).End(xlUp).Row + 1 'n° de la première ligne vide de la colonne A
NumCol = Cells(3, Columns.Count).End(xlToLeft).Column 'n° de la dernière colonne non vide de la ligne 1
 
Set PlageTravail = ws.Range(ws.Cells(3, 7), ws.Cells(NumLign, NumCol))
For Each cell In PlageTravail
    If cell.Value = "Recomptage" Then
        MsgBox cell.Value
        cell.Select
    End If
Next cell
 
End Sub
Exemple concret :
Imaginons que je trouve le mot en cellule AK8 , je veux récupérer les valeur de A8 a G8 et AK3 .
Et copier ces valeur dans un autre onglet ou incrémenter une array .
Merci pour votre aide précieuse .