Woua super ton truc.
Je savais pas comment synthétiser mes devis en ligne toute simple comme tu l'as fait.
Effectivement ca force à renommer tous les items du devis mais une fois que c'est fait ca fait gagner un temps monstre.
J'avais bidouillé ca pour info avec mes maigres connaissances, ca copiait l'integralité du devis mais avec la mise en page et les cellules vides donc pas optimisé du tout
Sub Macro2()
Dim cl As Range
With Worksheets("Dev_Sav").Cells
Set cl = .Find(Worksheets("Dev").Range("B3"), After:=.Range("A1"), LookIn:=xlValues)
If Not cl Is Nothing Then
Range(cl.Offset(10, 0), cl.Offset(0, 0)).EntireRow.Copy _
Destination:=Worksheets("Dev").Range("A3:C13")
End If
End With
End Sub
Du coup as tu une idée ou une piste pour arriver au résultat inverse et faire un "recall" d'un devis sauvegardé dans l'onglet "BaseDevis" dans "Dev", en faisant une recherche par nom et numero de devis ??
Le soucis c'est que si pour un meme client j'ai plusieurs numero de devis il va falloir creer une liste qui regroupe tous les choix dispo ...
J'avais penser a la fonction .Findall mais je maitrise pas encore tres bien ...
Merci bcp en tout cas pour le boulo accompli
Nico