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

Carine35

XLDnaute Nouveau
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
 

Pièces jointes

  • Classeur1.xlsm
    36.1 KB · Affichages: 3

Discussions similaires

Statistiques des forums

Discussions
312 836
Messages
2 092 656
Membres
105 480
dernier inscrit
Galbius