Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Supression colonne entiere selon valeur

F

Fab

Guest
Bonjour,

Voilà j'ai la macro suivante qui me permet de supprimer une ligne entière lorsqu'un "0" est trouvé dans la colonne "F:F" par exemple.

Public Sub supprim()
For Each cel In Range("F:F")
If cel.Value = 0 Then
cel.EntireRow.Delete
End If
Next
End Sub

Je souhaiterai pouvoir faire l'inverse à savoir: rechercher sur toute une ligne (ligne 14 par exemple) et si je trouve un "0" je supprime la colonne correspondante en entier. J'ai fait des essais sur ma table mais ca plante... ca doit pas être très dur mais je dois faire une erreur sur la recherche dans la ligne je pense.

Qqun peut m'aider ?

Merci bcp
 
M

Myta

Guest
salut Fab

Public Sub Supprimer_Colonne()
Dim Cellule as Range
For Each Cellule In Range("14:14")
If Cellule.Value = "0" Then
Cellule.EntireColumn.Delete
End If
Next Cellule
End Sub

Mytå
 

Discussions similaires

Réponses
2
Affichages
286
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…