XL 2019 Copie de feuille à feuille

[Fipat]

Bonjour,

Je vous sollicite à nouveau car je cherche à copier coller de manière automatique la saisie selon un pré-sélection.
Dans ma feuille principale j'ai en B2 une liste, je recherche dans la feuille ou je veux coller la saisie le valeur de ma cellule B2.
Pour cela j'arrive bien à l’afficher

Resultat = Range("B2").Value
With Sheets("Feuil2").Range("A1:A32")
Set cellule = .Find(Resultat, LookIn:=xlValues)
    If Not cellule Is Nothing Then MsgBox cellule.Address(0, 0)

Je pensais utiliser cette recherche pour coller en, mais c'est là que ça bloque.

 Range("B1").Copy Feuil2.Range(cellule, 0, 1)

Merci pour votre aide.
Je débute en Vba.

 

[Phil69970]

Fipat, le forum

Je te propose cela :

Resultat = Range("B2").Value   ' <== A voir si cela te sert 

Dim Derlig As Long
With Sheets("Feuil2").Range("A1:A32")
    Derlig = .Range("A4").End(xlDown).Row + 1
     .Range("B1").Copy Destination:=.Range("A" & Derlig)
End With

Si ce n'est pas ce que tu souhaites un fichier avec données anonymes et explication serait bienvenu.

@Phil69970

 

[Fipat]

Bonjour,

Non effectivement
Range("B2").Value
Ne va pas ma servir juste un contrôle.
Merci pour votre réponse qui me permet d'avancer.

 

[Phil69970]

Fipat, le forum

Si la solution te satisfait passe la en résolu.

Pour clôturer une demande :
https://www.excel-downloads.com/threads/prefixe-resolu-et-marquer-comme-solution.20029836/

@Phil69970