Alimenter variable avec condition

Question

Sur le tableau de la feuille1, je dois supprimer toutes les lignes dont la valeur en colonne H est &lt;&gt;1. Mais auparavant, je voudrai mettre dans une variable tous les noms (col C) dont la ligne va être supprimer. Cette dernière variable me servira à faire une boucle dans une autre procédure pour supprimer toutes les lignes et colonnes où figurent ces noms. En vous remerciant par avance...

Invité · Answer

Voilà une possibilité Sub SupLigne_MemNomSup() Dim Inc As Long, Dlig As Long, Lig As Long Dim TabNom() As String ' Avec la feuille nommée With Sheets("Feuil1") ' Dernière ligne du tableau Dlig = .Range("H" &amp; Rows.Count).End(xlUp).Row - 1 ' Pour chaque ligne For Lig = Dlig To 6 Step -1 If .Range("H" &amp; Lig).Value = 1 Then ReDim Preserve TabNom(Inc) TabNom(Inc) = .Range("C" &amp; Lig) Inc = Inc + 1 ' Supprimer la ligne ICI 'Rows(Lig).Delete End If Next Lig ' Petite procédure pour vérification ' A supprimer par la suite For Lig = 0 To UBound(TabNom) .Range("K" &amp; 6 + Lig).Value = TabNom(Lig) Next Lig End With End Sub A+...

Invité · Answer

Re,

Tu peux essayer avec ce code

Sub SupLigne_MemNomSup()
  Dim Col As Long, DCol As Long
  Dim DLig As Long, Lig As Long
  Dim Inc As Long, TabNom() As String
  ' Avec la feuille nommée
  With Sheets("Feuil1")
    ' Dernière ligne du tableau
    DLig = .Range("H" & Rows.Count).End(xlUp).Row - 1
    ' Pour chaque ligne
    For Lig = DLig To 6 Step -1
      If .Range("H" & Lig).Value <> 1 Then
        ReDim Preserve TabNom(Inc)
        TabNom(Inc) = .Range("C" & Lig)
        Inc = Inc + 1
      End If
    Next Lig
  End With
  ' SUPPRIMER les LIGNES de la FEUILLE 2
  ' Avec la feuille nommée
  With Sheets("Feuil1")
    ' Dernière ligne du tableau = Ligne TOTAL - 1
    DLig = .Range("C" & Rows.Count).End(xlUp).Row - 1
    ' Pour chaque ligne
    For Lig = DLig To 5 Step -1
      ' Est-ce qu'il y a un nom
      If .Range("C" & Lig).Value <> "" Then
        ' Est-ce que ce nom est contenu dans le tableau
        For Inc = 0 To UBound(TabNom)
          If .Range("C" & Lig).Value = TabNom(Inc) Then
            ' Supprimer la ligne ICI
            Rows(Lig).Delete
            Exit For
          End If
        Next Inc
      End If
    Next Lig
  End With
  ' SUPPRIMER les COLONNES de la FEUILLE 2
  ' Avec la feuille nommée
  With Sheets("Feuil1")
    ' Dernière Colonne du tableau
    DCol = .Cells(3, Columns.Count).End(xlToLeft).Column
    ' Pour chaque ligne
    For Col = DCol To 5 Step -1
      ' Est-ce qu'il y a un nom
      If .Cells(3, Col).Value <> "" Then
        ' Est-ce que ce nom est contenu dans le tableau
        For Inc = 0 To UBound(TabNom)
          If .Cells(3, Col).Value = TabNom(Inc) Then
            ' Supprimer la ligne ICI
            Columns(Col).Delete
            Exit For
          End If
        Next Inc
      End If
    Next Col
  End With
End Sub

Ceci dit, je ne vois trop bien pourquoi tu veux passer par un tableau des noms à supprimer !?

A+

Invité · Answer

Re, Pas beaucoup d'expérience, mais tu penses tout de suite à un tableau On peut au moment ou l'on va supprimer une ligne de la feuille 1 pour un nom donné, supprimer la ligne contenant ce nom et la colonne contenant ce nom dans la feuille 2 Ceci dit, on travaille avec un tableau donc en mémoire, c'est rapide Je peux te dire le résultat... A+...