VBA - Coller que la valeur des cellules copiées dans une boucle de recherche Fermé

Question

Bonjour, 

Je recherche comment faire pour que ma plage copiée, se colle uniquement avec la valeur à la fin de la recherche et non la mise en forme des cellules... ?

Je précise juste que le code fonctionne très bien :)

Merci d'avance et une belle journée !

Dim i As IntegerDim FL1 As Worksheet, NoCol As IntegerDim NoLig As Long, Var As Variant, cherche cherche = Worksheets("Saisies").Range("B2").Value    NoCol = 2 'lecture de la colonne BFor i = 4 To 22 'feuillesSet FL1 = Worksheets(Worksheets(i).Name)   For NoLig = 2 To 37 'colonne B        Var = FL1.Cells(NoLig, NoCol)        If Var = cherche Then        Worksheets("Saisies").Range("B2:V2").Copy _        Destination:=FL1.Cells(NoLig, 2)        End If    Next

ccm81 · Answer

Bonjour

Un exemple à adapter
Sub ok()
Sheets("Feuil1").Range("A2").Copy
Sheets("Feuil2").Select
Sheets("Feuil2").Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("Feuil1").Select
End Sub
Cdlmnt

VBA - Coller que la valeur des cellules copiées dans une boucle de recherche

1 réponse

Discussions similaires

Newsletters