Macro suppression de colonne

[Remi]

Bonjour forum,

J'aimerais savoir s'il est possible de spécifier un range à supprimer. Je m'explique: j'aimerais pouvoir supprimer un nombre de lignes donné, par exemple 5. J'ai essayé à partir de la macro que Robert a faite mais ca ne marche pas, j'ai besoin de votre aide.

Voici ce que j'ai fait:

Sub Supprime()
Dim c As Long 'déclare la variable c
Dim i As Integer 'déclare la variable i
Dim v As Variant 'déclare la variable v
Dim v1 As Variant 'déclare la variable v1
Dim x As Integer 'déclare la variable x
Dim z As Integer 'déclare la variable z
Dim d As Integer 'déclare la variable d

d = Range("C2")
c = Range("C1") 'définit la variable c (ligne de travail)
If c > 65536 Or c < 0 Then Exit Sub 'évite le bug
z = 2 'définit la variable z (commence à la colonne 2)
For x = 1 To 256 'boucle sur 256 valeurs (il n'y a que 256 colonnes !)
v = Cells(c, z) 'définit la variable v (valeur de la cellule)
v1 = Cells(c + d, z)
If v = "" Then 'condition : si la cellule est vide
Range(v, v1).Select
Selection.delete Shift:=xlToLeft 'supprime la colonne z sur le nombre de lignes désiré
'Columns(z).delete Shift:=xlToLeft 'supprime la colonne z
z = z - 1 'pour éviter le saut d'une colonne
End If 'fin de la condition
z = z + 1 'passe à la colonne suivante
Next x 'prochaine valeur de la boucle
End Sub

Merci à l'avance pour votre aide.

Rémi

 

[léa]

Bonjour Rémi,

Je n'ai pas étudié ton code à fond mais en le lisant en diagonale je vois une erreur

If v = "" Then 'condition : si la cellule est vide
Range(v, v1).Select

si v="" Range(v,v1) est imposible

Léa