Microsoft 365 Identifier une cellule dans une colonne en fonction d'un numéro identifier dans une autre cellule avec VBA

[Carine35]

Bonjour,

Je suis débutante en VBA, je cherche à faire la manip suivante :

• J'ai créé un formulaire qui me donne une ligne final de donnée avec un numéro d'incrémentation. (dans l'exemple, cela correspond à la cellule A14)
• Je cherche à coller cette ligne de donnée dans un autre onglet (ex ici: "feuill2").
• Mais je cherche à ce que le collage se fasse de manière automatique au niveau du numéro identifié dans la colonne A donc ici le numéro 10, la ligne doit se coller en A11.

Voici le code que j'ai essayé, mais qui ne fonctionne pas :

Sub test()
' Déclaration des variables
Dim numéro As Integer
Dim celluletrouvee As Range
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As Integer, AdressTrouvee As String

'Identifier le numéro d'anomalie
numéro = Worksheets("Formulaire").Range("A14").Value

'copier la ligne
Range("A14:G14").Select
Selection.Copy

'Ouverture de la feuille 2
Sheets("Feuil2").Select
Columns(1).Select

'Recherche de la ligne correspondant au numéro de l'anomalie
Set Valeur_Cherchee = numéro
Set PlageDeRecherche = ActiveSheet.Columns(1)
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, SearchOrder:=xlByColumns, SearchDirection:=xlNext, LookAt:=xlWhole)
If Trouve Then PlageDeRecherche.Cells.Select

'coller la ligne Bdd Anomalie
Selection.PasteSpecial Paste:=xlPasteValues

Merci d’avance pour votre aide

 

[Phil69970]

Bonjour @Carine35

Je te propose ce fichier
Tout se met à jour quand tu vas sur la feuille 2

*Merci de ton retour

@Phil69970

 

[Carine35]

Bonjour @Carine35

Je te propose ce fichier
Tout se met à jour quand tu vas sur la feuille 2

*Merci de ton retour

@Phil69970

Merci pour votre réponse, cela correspond tout à fait à ma demande, plus qu'à l'adapter à mes fichiers.