Probleme de + et de - dans Excel

Probleme de + et de - dans Excel - VB/VBA/VBS - Programmation

Marsh Posté le 01-09-2005 à 07:43:30    

Salut a tous,
J'aurrais besoin d'aide pour une macro sur excel...
Voici mon probleme, mon tableau contient une colonne ou il y a des + et des -, qui represente une
demande de connexion(+) et un fin de connexion(-)...
Seulement quelque fois des + ce suivent et la c'est le drame pour ma marco... :pt1cable:  
Sa ressemble a sa :  
 
+
-       Tant qu'il y a des + suivi de - , tout va bien mes calculs sont bon(calcul fais sur d'autres colonnes,  
+       mais dés qu'il y a deux + a la suite je voudrais que ma macro les remarques
-       et une fois le 1er + passé, qu'elle supprime les autres + qui suivent(supprimé la lignes du +),
+       jusqu'au - qui suis... :bounce:  
+        
+       Voila mon probleme et je ne sais pas comment dans une macro, je peux lui faire remarquer que
-       deux + ce suivent et ainsi lui dire de supprimé la ligne du + qui suis...
+
+
-
+
-
 
J'ai cherché pendant un bout de temps et rien a faire, j'ai pas trouvé... :pfff:  
Tout aide est la bienvenue,parce que la j'en ai marre  :kaola:  :ouch:  :??:  :pt1cable:  :fou:  
MERCI

Reply

Marsh Posté le 01-09-2005 à 07:43:30   

Reply

Marsh Posté le 01-09-2005 à 08:35:34    

pose un blindage en stoc kant ta derniere varaiable lue dans un temp, puis tu fais un test avec :bounce:

Reply

Marsh Posté le 01-09-2005 à 08:47:56    

J'essaye mais pas moyen il faut que tte mes ligne soient differentes dans cette colonne de connexion, un + est suivit d'un - et ainsi de suite...
J'arrive pas a trouver le code qui me permet de verifier sa dans une macro, comparer les lignes puis descendre tt au long du tableau...
En gros comment faire pour ecrire dans une macro :
   qui compare deux cases d'une meme colonne et de ligne differentes,puis supprime la ligne du bas (si elle est identique) et ainsi recommencer jusqu'a la derniere case de la colonne...


Message édité par wfs-tibal le 01-09-2005 à 08:51:39
Reply

Marsh Posté le 01-09-2005 à 09:51:33    

Un petit code, peut-être?...

Sub DeleteDouble()
  Dim rRange As Range
  Dim vCell As Variant
  Set rRange = Range([A1], [A1].End(xlDown))
  For Each vCell In rRange
    Do While vCell = vCell.Offset(1, 0)
      vCell.Offset(1, 0).EntireRow.Delete
    Loop
  Next vCell
End Sub


Edit --> Une précision: Tel quel, ce code ne marche que s'il n'y a pas de trou dans la colonne A.


Message édité par AlainTech le 01-09-2005 à 09:54:22
Reply

Marsh Posté le 01-09-2005 à 10:13:04    

Merci Beaucoup AlainTech !!  :)  
Bon j'ai mon probleme de colonne + et - qui est reglé c'est deja sa...
mais c'est pas fini, bon bah j'y retourne il me reste encore deux, trois truc a faire,
en plus je debute en vba ... :pt1cable:  
Merci encore , bien cool ce forum !!

Reply

Sujets relatifs:

Leave a Replay

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