dsl, encore un pb en vba....

dsl, encore un pb en vba.... - VB/VBA/VBS - Programmation

Marsh Posté le 21-06-2004 à 10:33:37    

Salut tout le monde
 
G fait une petite fonction vba pour excel qui tout simplement supprime la ligne quand deux cellules (verticales) ont la mm valeur!
 

Code :
  1. Sub SupprLigne()
  2.     Set rngCurrentCell = Worksheets("Final" ).Range("D3:D4677" )
  3.     Do While Not IsEmpty(rngCurrentCell)
  4.         Set rngNextCell = rngCurrentCell.Offset(1, 0)
  5.         If rngNextCell.Value = rngCurrentCell.Value Then
  6.             rngCurrentCell.EntireRow.Delete
  7.         End If
  8.         Set rngCurrentCell = rngNextCell
  9.     Loop
  10. End Sub


 
Ca me semble bon mais ca me fait un "type mismatch"!!
 
Merci davance!

Reply

Marsh Posté le 21-06-2004 à 10:33:37   

Reply

Marsh Posté le 21-06-2004 à 10:49:52    

Code :
  1. Sub SupprLigne()
  2. Dim rngCurrentCell As Range
  3. Dim rngNextCell As Range
  4.     Set rngCurrentCell = Worksheets("Final" ).Range("D3" )
  5.     Do While Not IsEmpty(rngCurrentCell)
  6.         Set rngNextCell = rngCurrentCell.Offset(1, 0)
  7.         If rngNextCell.Value = rngCurrentCell.Value Then
  8.             rngCurrentCell.EntireRow.Delete
  9.         End If
  10.         Set rngCurrentCell = rngNextCell
  11.     Loop
  12. End Sub


 
G t bloke vendredi, mais apres le week end, mon cerveau est revenu et g trouve tout seul, comme un gd!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed