Formule VBA ; Suppression des données
Bonjour,
j'ai deux formules VBA dans mon fichier qui fonctionnent sans soucis :
Seulement lorsque que je les active elles effacent les données à partir de la ligne 1 ce qui efface automatiquement le titre de ma colonne, j'aimerai donc qu'elles prennent effet à partir de la ligne 2 mais je n'y arrive pas
Pouvez-vous m'éclairer s'il vous plait ?
Voici les macros en questions :
MACRO 1 :
Sub INCREMENTATION_NC()
Dim i As Integer, j As Integer
Range("AC" & Rows.Count).ClearContents
With Sheets("BASE DE DONNEES")
For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
For j = 2 To Range("A" & Rows.Count).End(xlUp).Row
If .Range("BM" & i) & .Range("BN" & i) & .Range("BO" & i) = Range("A" & j) & Range("B" & j) & Range("C" & j) Then
If Range("AC" & j) = "" Then
Range("AC" & j) = .Range("A" & i)
Else
Range("AC" & j) = Range("AC" & j) & " / " & .Range("A" & i)
End If
End If
Next j
Next i
End With
End Sub
MACRO 2 :
Sub INCREMENTATION()
'
' INCREMENTATION Macro
'
'
Columns("AC:AC").Select
Selection.ClearContents
Range("AC1").Select
End Sub
Merci par avance
Bonjour,
Il faut délimiter la longueur du tableau de données(par exemple par rapport à la colonne A)
DerLig = Range("A" & Rows.Count).End(xlUp).Row
If DerLig > 1 Then Range("AC2:AC" & DerLig).ClearContentsCdlt
Merci beaucoup !