Recherche si valeur et copier

Bonjour à tous,

J'essaie d'adapter différents codes trouvés sur le net et le forum pour mon besoin mais malheureusement je n'y arrive pas....

Je viens donc vers vous pour avoir un peu d'aide.

Les données :

J'ai différents fichiers Excel où dans la colonne "AH" j'ai des numéros sur chaque ligne à partir de la 6ème (qui peuvent varier de 1 à 20 et donc sur 1 à 20 lignes maximum). Ces nombres sont triés de façon aléatoire dans la colonne AH.

Ensuite dans la cellule "XA65" j'ai aussi des chiffres qui varient de 1 à 20.

Ce que je souhaiterai :

C'est un script VBA qui permet de récupérer le nombre dans la cellule "XA65" puis ensuite d'aller chercher la ligne qui correspond à ce même nombre dans la colonne "AH". Puis une fois que la ligne est déterminée, aller copier les valeurs des cellules de la colonne "F, K,N,Q,R,S" de la ligne concernée, puis de les coller à partir de AD65 (donc AD65, AE65, AF,65,AG65 etc....)

Exemple :

Si pour :

AH10 = 4
XA = 4
Le script détermine que c'est la ligne numéro 10 où se situe le nombre 4 et cela va copier les valeurs de F10, K10, N10, Q10, R10, S10

Merci beaucoup par avance.

Bonjour,

Essayez ceci:

Sub Recopie()
    Dim Valeur As Long, Pos As Long
    Application.ScreenUpdating = False
    Valeur = Range("XA65").Value
    Pos = Application.Match(Valeur, Range("AH6:AH25"), 0) + 5
    Range("AD65").Value = Range("F" & Pos).Value
    Range("AE65").Value = Range("K" & Pos).Value
    Range("AF65").Value = Range("N" & Pos).Value
    Range("AG65").Value = Range("Q" & Pos).Value
    Range("AH65").Value = Range("R" & Pos).Value
    Range("AI65").Value = Range("S" & Pos).Value
End Sub

Cdlt

Bonsoir,

Super, cela marche parfaitement !!

Excellente soirée