Discussion :

[David62510]

Bonjour à tous,

Je me mets aux Macro pour le boulot et c'est un peu compliqué. J'ai réussi une première macro qui consiste à enregistrer le fichier sous le nom xxx, mais maintenant je bloque pour ma seconde macro et je n'ai pas trouvé les informations nécessaires sur les différents forums. Je m'en remets donc à vous

Voici un exemple de ma problématique:
Sur une feuille j'ai 5 "zones d'impression" à la suite qui sont exactement identiques en terme de format:

Zone 1 = jour1: lignes 2 à 11 (cellule de critère= d5)
Zone 2 = jour2: lignes 12 à 21 (cellule de critère= d15)
Zone 3 = jour3: lignes 22 à 31 (cellule de critère= d25)
Zone 4 = jour4: lignes 32 à 41 (cellule de critère= d35)
Zone 5 = jour5: lignes 42 à 51 (cellule de critère= d45)

Je voudrais pouvoir vérifier si, si une cellule bien définie de chacune de ces zones est vide, alors il faut supprimer toutes les lignes de la zone (ou autrement dit, les 3 lignes au dessus + les 6 lignes au dessous + la ligne de la cellule en question).
Si elle n'est pas vide, ne rien faire.

Si j'ai bien compris il est préférable de commencer par la fin du tableau et peut-être d'inclure un système de boucle avec un pas de 10 lignes. Mais comment faire ensuite...

Je vous joins le fichier d'exemple. En jaune c'est la cellule qui dans laquelle il faut regarde si vide ou non.
Par exemple, si
jour1: d5=100
jour2: d15=101
jour3: d25=98
jour4: d35=""
jour5: d45=""
Je voudrais donc qu'il ne reste que les tableau jour1, jour2 et jour3.

J'espère que quelqu'un sera en mesure de m'aider :

David.

PS: je n'ai pas réussi à joindre fichier

[Nico Chg]

Bonjour,

Peut être qu'a la place d'un gros classeur Excel tout lourd, une simple image suffirait ?

Sinon, je met l'exemple d'un code rapide pour t'aider à avancer un peu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Ws as worksheet
Dim I as single
Dim Row as single
 
Set Ws = Worksheets("MaFeuille")
 
Row = 5
 
With Ws
   If .Cells(Row, 4).value = "" then
      For I = 10 to 1 step -1
         .rows(Row + I).delete
      Next I
   End if
End with

Il faut adapter ce code pour faire 5 zone, et peut être optimiser un peu après !

[David62510]

Je n'avais pas pensé à l'image...

La voici:

Je commence à regarde ton code.