Macros pour supprimer , insérer et masquer

Résolu
HASSANKOBAA -  
 HASSANKOBAA -
Bonjour,
Svp les amis j'ai besoin des macros pour insérer, supprimer ou masquer des lignes et colonnes
Merci d'avance :)

4 réponses

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Bonjour,

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

    un bouton
    une liste de validation etc ...
    0
    1. HASSANKOBAA
       
      Rebnjr;
      Sous forme de bouton ;
      Merci pour ta réponse Mike-31
      0
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
    1. HASSANKOBAA
       
      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
  3. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
    1. HASSANKOBAA
       
      Merci Mike :) , et pour supprimer??
      0
  4. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

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