Discussion :

[collinchris]

Bonjour à tous,

J'ai fait une macro qui calcule un total par colonne (de B à Q), avec un nombre de lignes qui varie. De ce fait mes totaux ne sont jamais dans la même cellule (ils sont dans la première ligne vide).

Ce que je voudrais, c'est supprimer la colonne complète si le total de cette même colonne est égal à 0....et là je sèche!

Est-ce que quelqu'un aurait une idée? Merci par avance,

[Jean-Philippe André]

salut,
la fonction Somme en VBA peut s'obtenir avec

Code :

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

Worksheetfunction.Sum

le paramètre à passer étant une plage de cellules.

Le test qui en découle est tout trouvé

[drakkar_agfa]

Bonjour,

Comment as-tu fais pour trouver la première cellule vide pour mettre les totaux?
Utilises la même méthode pour obtenir le dernière cellule remplie.
Si tu as des questions pour le faires, ajoutes ton code qui fais les totaux.

Si tu veux, il serait aussi possible de supprimer directement la colonne sans inscrire le totaux.
Si ton totaux est plus petit ou égal à 0 alors tu supprimes la colonne sinon tu l'inscris comme tu le fais présentement.

Reviens nous!

[collinchris]

Tout d'abord, je vous remercie pour vos réponses.

Mon souci, c'est que je débute et je fais plus du bricolage que du vba, du coup mon code n'est sans doute pas très orthodoxe. En plus, toutes mes colonnes ne seront par forcément remplies à chaque fois.

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
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub CommandButton2_Click()
Dim r As String
 
'N° de la première ligne vide colonne A
r = Feuil5.Range("A65536").End(xlUp).Row + 1
 
'Total en bas de colonne
Feuil5.Range("A" & r) = "Total"
Feuil5.Range("B" & r).Formula = "=Sum(B2:B" & r - 1 & ")"
Feuil5.Range("C" & r).Formula = "=Sum(C2:C" & r - 1 & ")"
Feuil5.Range("D" & r).Formula = "=Sum(D2:D" & r - 1 & ")"
Feuil5.Range("E" & r).Formula = "=Sum(E2:E" & r - 1 & ")"
Feuil5.Range("F" & r).Formula = "=Sum(F2:F" & r - 1 & ")"
Feuil5.Range("G" & r).Formula = "=Sum(G2:G" & r - 1 & ")"
Feuil5.Range("H" & r).Formula = "=Sum(H2:H" & r - 1 & ")"
Feuil5.Range("I" & r).Formula = "=Sum(I2:I" & r - 1 & ")"
Feuil5.Range("J" & r).Formula = "=Sum(J2:J" & r - 1 & ")"
Feuil5.Range("K" & r).Formula = "=Sum(K2:K" & r - 1 & ")"
Feuil5.Range("L" & r).Formula = "=Sum(L2:L" & r - 1 & ")"
Feuil5.Range("M" & r).Formula = "=Sum(M2:M" & r - 1 & ")"
Feuil5.Range("N" & r).Formula = "=Sum(N2:N" & r - 1 & ")"
Feuil5.Range("O" & r).Formula = "=Sum(O2:O" & r - 1 & ")"
Feuil5.Range("P" & r).Formula = "=Sum(P2:P" & r - 1 & ")"
Feuil5.Range("Q" & r).Formula = "=Sum(Q2:Q" & r - 1 & ")"
 
'suppression des colonnes avec un total égal à 0
 
End Sub

[laetitia]

bonjour tous. pour faire simple dans ton cas. je suppose les somme sur la meme ligne

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
Sub es()
Dim i As Long, j As Long
   Application.ScreenUpdating = False
    For i = Cells.Find("*", , , , , xlPrevious).Row To 1 Step -1
    For j = 17 To 1 Step -1
     If Cells(i, j) = 0 Then Cells(i, j).EntireColumn.Delete
     If j = 1 Then Exit Sub
   Next j: Next i
End Sub

par contre ton code demande a être simplifier ?? pas trop le temps de regarder

[collinchris]

Ca fonctionne, merci beaucoup.

En ce qui concerne mon code, dans la mesure où il fait ce que je lui demande de faire, c'est l'essentiel