Bonjour tout le monde,

Je viens ici car, étant novice avec l'utilisation d'excel, je n'arrive pas à répondre à mon problème.

Le voici:
Dans un tableau (image ci-dessous), je référence des articles (colonne) et le délai d'expédition, en jours, de ces articles (ligne).
Les nombres figurant dans le tableau sont les quantités expédiées au jour X.

J'aimerais supprimer automatiquement en passant par VBA:
- un article (donc sa ligne) si il n'y a aucune expédition (lignes 12-22 en exemple))
- un délai (donc sa colonne) si aucune quantité n'est à noter ce jour (Colonnes F/K en exemple)

J'ai déjà ça pour supprimer les lignes, qu'une personne sur un autre forum m'a proposé, mais je n'arrive pas à l'adapter pour supprimer les colonnes..


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
 
For i = ActiveSheet.Range("a" & Rows.Count).End(xlUp).Row To 2 Step -1
 
If Application.WorksheetFunction.CountBlank(Range("a" & i & ":AS" & i)) = 43 Then
 
Rows(i).Delete
 
End If
 
Next
End Sub

Un grand merci à celui/celle qui pourra m'aider.


http://www.hostingpics.net/viewer.ph...pletableau.png

Cordialement,

Jon