S
SRBIJA
Guest
Bonjour,
En fait, j'ai un probleme avec cette macro. Je voudrais tout d'abord que la macro puisse supprimer toutes les données de la colonne A et C puis qu'elle passe à l'element suivant (en rouge)
Sub coderéf_dans_onglet_total()
ligne = 4
For n = 1 To Sheets.Count
If Sheets(n).Name = "armoire" Or Sheets(n).Name = "lit" Then
For m = 8 To Sheets(n).Range("A65536").End(xlUp).Row
Sheets("total").Cells(ligne, 1) = Sheets(n).Range("A" & m)
ligne = ligne + 1
Next m
End If
Next n
J'ai essayé avec :
Range("A:A,C:C").ClearContents
mais cela ne marche pas.
Merci d'avance pour votre aide.
En fait, j'ai un probleme avec cette macro. Je voudrais tout d'abord que la macro puisse supprimer toutes les données de la colonne A et C puis qu'elle passe à l'element suivant (en rouge)
Sub coderéf_dans_onglet_total()
ligne = 4
For n = 1 To Sheets.Count
If Sheets(n).Name = "armoire" Or Sheets(n).Name = "lit" Then
For m = 8 To Sheets(n).Range("A65536").End(xlUp).Row
Sheets("total").Cells(ligne, 1) = Sheets(n).Range("A" & m)
ligne = ligne + 1
Next m
End If
Next n
J'ai essayé avec :
Range("A:A,C:C").ClearContents
mais cela ne marche pas.
Merci d'avance pour votre aide.
Dernière modification par un modérateur: