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
VB:
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.
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.
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.