Discussion :

[oscar.cesar]

bonsoir
Probleme
j'ai une plage 1 de B6:U6 qui contient dans chaque cellule des nombres entier .
j'ai une plage 2 de B7:U7 qui contient .................................................
etc jusqu' A

plage 100 de B100:U100 qui contient dans chaque cellule des nombres entier .

par action sur un togglebutton1 , j'efface la colonne B6 à B100
par action sur un togglebutton2 , j'efface la colonne C6 à C100
etc jusqu'a togglebutton12, j'efface la colonne L6:L100

en sachant que tout les togglebutton ne sont pas tous actif. ex le togglebutton1, 3, 10 ,11 sont ".value=true"

le resultat, dans chaque plage , j'ai des cellules vide . Comme je realise une synthese sur l'ensemble plage(il me faut pas de cellule vide) . il me faut donc supprimer toutes les cellules vides dans chaque plage.

si qql à une idee ?

merci

[ouskel'n'or]

Comme je n'ai pas envie de ré-écrire le code, jète un oeil là, tu as un code qui permet "ou" de masquer "ou" de supprimer les lignes vides. Et tu as ça sur ce forum (une petite recherche de rien du tout)
A+

[oscar.cesar]

bonsoir
je precise une chose ce n'est pas des lignes vides mais des cellules vides.
ex 1- -15-11-12- -25 (le - , c'est pour la presentation)
dans l'exemple j'ai deux cellules vides
il me faut donc supprimer ces 2 cellules vides et decaler les autres cellules non vides de la ligne considerée pour avoir 1-15-11-12-25 (je precise quand meme:un nombre par cellule)
idem pour chaque ligne
cordialement

[oscar.cesar]

bonsoir
bon ok j'ai trouve , voila une partie du code , cela pourrait aider::::

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim cellule As Range
With ToggleButton1
If .Value = True Then
   .BackColor = RGB(0, 255, 0) 'vert
   For Each cellule In Sheets("feuil1").Range("B6:B100")
       If cellule.Value > 0 Then cellule.Delete xlToLeft 'supprime cellule en decalant vers la gauche
   Next cellule
 
 ElseIf .Value = False Then
 .BackColor = RGB(255, 255, 255) 'blanc
 End If
End With

bonsoir

[fred65200]

bonjour,

As tu besoin de ta condition. Ton ToggleButton sert à supprimer de toute façon



Par contre, tu risques d'avoir des erreurs car si tu supprimes les cellules A6:A100, C6:C100 passe en B6:B100. Comment vas tu coder le bouton qui doit effacer les données de ta colonne C?, qui contient maintenant celle de la D avant que tu supprimes les cellules de la colonne A

Il vaut mieux faire une boucle sur les ToggleButton, vérifier leur état (false ou true) et effacer une seule fois en partant de la dernière colonne (L).

Ajoute le code suivant au bouton qui ferme ton UserForm.

Code :

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

1
2
3
4
 
For i = 12 To 1 Step -1
If Controls("ToggleButton" & i).Value = True Then Sheets("feuil1").Range(Cells(6, i), Cells(100, i)).Delete
Next i

Je ne sais pas si je suis très clair, j'écris en même temps que je pense et nous sommes déjà lundi.

Cordialement
fred65200

[Couettecouette]

Bonjour,

Ayant eu le cas à faire, ma solution à été celle-ci (si toutefois l'idée est la même) : sélectionner toute les concernées, les nommer (par exemple "XXX") et ensuite faire une macro qui dit "supprimer les cellules dont la cellule est vide".

Je ne sais pas si je copie tout car ma macro est très longue mais voici l'idée :

Code :

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

1
2
3
4
5
6
    For Each Cellule In Range("XXX").Cells
        ' Colonne 1 = Colonne A
        If Cellule.Value = "" And Cellule.MergeCells = True And Cellule.Column = 1 Then
        Rows(Cellule.Row).Delete
        End If
    Next Cellule

Reste à changer "ligne" par "cellule", et "colonne" par "ligne" ...