Re : Aide : petite modification macro (débutant)
Une fois fait, il me demande de faire un deblogage:
(ligne 5 surlignée en jaune)
Private Sub CommandButton1_Click()
Dim Derlig As Long
' Report des données de la Feuil1 vers Feuil2
With Sheets("DataCapture").Name
Derlig = .Range("A100000").End(xlUp).Row
If Derlig < 2 Then Exit Sub ' Vérification qu'il y a au moins une ligne à reporter
.Range("A2:Q" & .Range("A100000").End(xlUp).Row).Copy
' Report dans la seconde feuille
With Sheets("DataBase").Name
.Range("A" & .Range("A100000").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
' Effacement des données de la première feuille
.Range("A2:Q" & .Range("D100000").End(xlUp).Row + 1).ClearContents
Range("D2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]=0,"" "",VLOOKUP(RC[-1],Feuil3.Name!R2C2:R40C3,2,FALSE))"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2
10"), Type:=xlFillDefault
Range("D2
10").Select
Désolé pour toutes ces questions, je n'ai jamais eu aucune formation sur tout celà