Macros pour supprimer , insérer et masquer

Résolu/Fermé
HASSANKOBAA - Modifié par Lapourax le 17/04/2015 à 11:23
 HASSANKOBAA - 17 avril 2015 à 13:25
Bonjour,
Svp les amis j'ai besoin des macros pour insérer, supprimer ou masquer des lignes et colonnes
Merci d'avance :)

A voir également:

4 réponses

Mike-31 Messages postés 18351 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 12 décembre 2024 5 110
17 avril 2015 à 11:33
Bonjour,

Oui mais en fonction de quelle action et critère :

un bouton
une liste de validation etc ...
0
Rebnjr;
Sous forme de bouton ;
Merci pour ta réponse Mike-31
0
Mike-31 Messages postés 18351 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 12 décembre 2024 5 110
17 avril 2015 à 12:06
Re,

Oui mais sur quel critère et quelles lignes, faudra t il prévoir l'affichage des lignes après masquage et sur quel critère également
un exemple de code pour masquer les lignes de la ligne 2 à 50 vide ou contenant zéro

Option Explicit

Private Sub CommandButton1_Click()
Static Mode As Boolean
Dim lig As Variant
Mode = Not Mode
Application.ScreenUpdating = False
For lig = 2 To 50
If Feuil1.Cells(lig, 1) = 0 Then
Rows(lig).Hidden = Mode
End If
Next
Application.ScreenUpdating = True
End Sub
0
Il n'y a pas de critères , je veux insérer une ligne sous la ligne sélectionnée , supprimer ou masquer les lignes sélectionnées.
0
Mike-31 Messages postés 18351 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 12 décembre 2024 5 110
17 avril 2015 à 13:13
Re,

en VBA il faut être précis, Excel ne sait pas faire de l'a peu près

pour insérer une ligne sous la cellule active
Private Sub CommandButton2_Click()
ActiveCell(2, 1).EntireRow.Insert
End Sub

pour masquer les lignes dont une ou plusieurs cellules sont sélectionnées
Option Explicit
Private Sub CommandButton1_Click()
Selection.EntireRow.Hidden = True
End Sub
0
Merci Mike :) , et pour supprimer??
0
Mike-31 Messages postés 18351 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 12 décembre 2024 5 110
17 avril 2015 à 13:22
Re,

Private Sub CommandButton1_Click()
Selection.EntireRow.Delete
End Sub
0
Merci beaucoup
0