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

Nono_1602 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
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 Integer
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant, cherche
cherche = Worksheets("Saisies").Range("B2").Value
NoCol = 2 'lecture de la colonne B
For i = 4 To 22 'feuilles
Set 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

1 réponse

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
0