Macros pour supprimer , insérer et masquer
Résolu/Fermé
A voir également:
- Comment supprimer une macro dans un classeur masqué
- Comment supprimer une page dans word - Guide
- Appel masqué - Guide
- Supprimer compte instagram - Guide
- Comment recuperer un message supprimé sur whatsapp - Guide
- Impossible de supprimer un fichier - Guide
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
17 avril 2015 à 11:33
Bonjour,
Oui mais en fonction de quelle action et critère :
un bouton
une liste de validation etc ...
Oui mais en fonction de quelle action et critère :
un bouton
une liste de validation etc ...
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
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
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
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
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
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
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
17 avril 2015 à 13:22
Re,
Private Sub CommandButton1_Click()
Selection.EntireRow.Delete
End Sub
Private Sub CommandButton1_Click()
Selection.EntireRow.Delete
End Sub
17 avril 2015 à 11:42
Sous forme de bouton ;
Merci pour ta réponse Mike-31