Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2526 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  dsl, encore un pb en vba....

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

dsl, encore un pb en vba....

n°770945
marcmaumon​t
Posté le 21-06-2004 à 10:33:37  profilanswer
 

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!

mood
Publicité
Posté le 21-06-2004 à 10:33:37  profilanswer
 

n°770989
marcmaumon​t
Posté le 21-06-2004 à 10:49:52  profilanswer
 

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!


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  dsl, encore un pb en vba....

 

Sujets relatifs
Plus de sujets relatifs à : dsl, encore un pb en vba....


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR