Macros pour supprimer , insérer et masquer
Résolu
HASSANKOBAA
-
HASSANKOBAA -
HASSANKOBAA -
Bonjour,
Svp les amis j'ai besoin des macros pour insérer, supprimer ou masquer des lignes et colonnes
Merci d'avance :)
Svp les amis j'ai besoin des macros pour insérer, supprimer ou masquer des lignes et colonnes
Merci d'avance :)
A voir également:
- Comment supprimer une macro dans un classeur masqué
- Supprimer rond bleu whatsapp - Guide
- Comment supprimer une page sur word - Guide
- Comment appeler en masqué - Guide
- Comment supprimer une application préinstallée sur android - Guide
- Comment supprimer un compte gmail - Guide
4 réponses
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 ...
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
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
Sous forme de bouton ;
Merci pour ta réponse Mike-31