[VBA] comparaison entre 2 lignes successives

comparaison entre 2 lignes successives [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 16-06-2011 à 16:28:13    

Bonjour,  
 
 
dans une selection, je souhaite réaliser une comparaison entre 2 lignes consecutives et en fonction du résultat effectuer une action, puis répeter l'opération dans l'ensemble de la selection.
 
j'ai essayé de faire un code qui évidemment ne fonctionne pas (comme d'hab  :o )
 
 
 
Merci d'avance pour votre aide
 
 
Kesdo

Code :
  1. Dim Currentcell As Range
  2. Dim Rg As Range
  3. Dim x As Variant
  4. Set Rg = Range(Cells(1, 4), Cells(1, 4).End(xlDown))
  6. For Each Currentcell In Rg
  7. x = Currentcell - Currentcell.Offset(1, 0)
  8. Select Case x
  9. Case Is = 1
  10. Currentcell.Interior.Color = vbRed
  11. End Select
  13. Next


Message édité par kesdo93220 le 16-06-2011 à 16:33:29
Reply

Marsh Posté le 16-06-2011 à 16:28:13   

Reply

Marsh Posté le 16-06-2011 à 22:19:17    

Bonjour,
 
Chez moi ca fonctionne  [:transparency] même si j'aurais mis "case 1" au lieu de "case is = 1"  .Qu'est ce qui ne fonctionne pas ? [:transparency]  
 
Sinon:

Citation :

Dim i As Long
 
For i = 1 To (Cells(1, 4).End(xlDown).Row - 1)
    If Cells(i, 4).Value - Cells(i + 1, 4).Value = 1 Then Cells(i, 4).Interior.Color = vbRed
Next i
   

Reply

Marsh Posté le 17-06-2011 à 09:57:46    

voici l'erreur que j'ai  
 
"Erreur 13, Incompatibilité de type"
 
 
avec surlignage au niveau de cette ligne :  

Code :
  1. x = Currentcell - Currentcell.Offset(1, 0)


Message édité par kesdo93220 le 17-06-2011 à 10:00:33
Reply

Marsh Posté le 17-06-2011 à 09:59:46    

Ps : cela me met la même erreur sur ton code au niveau de  
 

Code :
  1. If Cells(i, 4).Value - Cells(i + 1, 4).Value = 1 Then


Message édité par kesdo93220 le 17-06-2011 à 09:59:58
Reply

Sujets relatifs:

Leave a Replay

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