zebanx
XLDnaute Accro
Bonsoir à tous,
Je souhaiterai faire un clear contents sur un tableau :
- en choisissant les colonnes concernées par le clearcontents (variable "j")
- en effectuant une boucle sur la colonne "B" pour lancer le clearcontents.
Je n'arrive pas à définir ma boucle pour le faire travailler sur les colonnes 1,3, 4 et 9.
Le fichier est beaucoup plus explicite.
Mon code bug déjà sur la définition de la variable et j'aurais svp besoin de votre aide pour le modifier
(array ??).
Vous en remerciant par avance, bonne soirée
zebanx
------
Sub mef()
Dim i As Integer, derligne
Dim j As Integer
Dim n As Long
derligne = Range("B3").End(xlDown).Row
j = {1, 3, 4, 9} 'bug déjà ici
derligne = Range("B3").End(xlDown).Row
For n = 1 To UBound(j)
For i = derligne To 3 Step -1
If Cells(i, 2).Value = Cells(i - 1, 2).Value Then
Cells(i, n).ClearContents
End If
Next i
Next n
End Sub
Je souhaiterai faire un clear contents sur un tableau :
- en choisissant les colonnes concernées par le clearcontents (variable "j")
- en effectuant une boucle sur la colonne "B" pour lancer le clearcontents.
Je n'arrive pas à définir ma boucle pour le faire travailler sur les colonnes 1,3, 4 et 9.
Le fichier est beaucoup plus explicite.
Mon code bug déjà sur la définition de la variable et j'aurais svp besoin de votre aide pour le modifier
(array ??).
Vous en remerciant par avance, bonne soirée
zebanx
------
Sub mef()
Dim i As Integer, derligne
Dim j As Integer
Dim n As Long
derligne = Range("B3").End(xlDown).Row
j = {1, 3, 4, 9} 'bug déjà ici
derligne = Range("B3").End(xlDown).Row
For n = 1 To UBound(j)
For i = derligne To 3 Step -1
If Cells(i, 2).Value = Cells(i - 1, 2).Value Then
Cells(i, n).ClearContents
End If
Next i
Next n
End Sub
Pièces jointes
Dernière édition: