Re : recopier les valeurs de plusieurs colonnes correspondant à un critère vers une a
Bonsoir le forum, le fil, Double Zéro, R@chid,
Dans ce code j’aurai voulu que vous puissiez m'expliquer à quoi correspond le "19" et le "v", car si je veux faire des modifications que je sache à quoi cela sert.
merci
Sub Extraire() 'exporte les information des véhicules de l'onglet MODOP à la feuille Pression
Dim i As Long
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
Sheets("Pression").Range("a7:c54") = ""
Sheets("MODOP").Activate
For i = Cells(Rows.Count, "v").End(xlUp).Row To 19 Step -1
If Range("v" & i).Value = Range("D7").Value Then Range("v" & i).Offset(, 1).Resize(, 3). _
Copy Destination:=Sheets("Pression").Range("a54").End(xlUp)(2)
Next
Sheets("Pression").Activate
With Range("a7:c54")
.Interior.Color = 6750156
.Font.Name = "arial"
.Font.Size = 10
.Font.Bold = False
.Font.Italic = False
.Borders.Value = 1
End With
Range("a55") = "Total site " & Range("a4") & " = " & Application.CountA([a7:a54])
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub
Merci beaucoup