Bonjour,
J'ai un code qui me permet de supprimer des lignes dans un tableau de mise à jour avant de coller ce qui reste dans la base général Excel. Voir ci-dessous.
Ce code supprime uniquement la ligne si la colonne T est = 0 ou vide (mais parfois, il peut y avoir des données dans d'autres colonnes U, V, etc.). Je veux le modifier pour qu'il supprime la ligne uniquement si les colonnes T, U, V, W, X, Y, Z AA et AB remplissent les mêmes conditions, toutes ensembles. En clair, sir une seule cellule est remplie dans ces colonnes la ligne n'est pas supprimée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub FCMC1C2_SuppressionLigne()
'Suppression des lignes vides (toutes ensemble)
Dim i As Long
  Sheets("FCMC1C2_Data").Select
  Range("Ta_FCMC1C2_Data").Select
  Dim rPlageASupprimer As Range
For i = Selection.Cells(Selection.Cells.Count).Row _
To Selection.Cells(1).Row Step -1
   If Cells(i, "T").Value = 0 Or _
      IsEmpty(Cells(i, "T").Value) Then
      If rPlageASupprimer Is Nothing Then
     Set rPlageASupprimer = Rows(i).Resize(1, Range("Ta_FCMC1C2_Data").ListObject.DataBodyRange.Columns.Count)
      Else
     Set rPlageASupprimer = Union(rPlageASupprimer, Rows(i).Resize(1, Range("Ta_FCMC1C2_Data").ListObject.DataBodyRange.Columns.Count))
      End If
      End If
Next i
'rPlageASupprimer.Select
 
rPlageASupprimer.Delete
End Sub
C'est au dessus de mon niveau!
Merci d'avance!
GDM.