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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA] comparaison entre 2 lignes successives

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA] comparaison entre 2 lignes successives

n°2082786
kesdo93220
Posté le 16-06-2011 à 16:28:13  profilanswer
 

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))
  5. For Each Currentcell In Rg
  6. x = Currentcell - Currentcell.Offset(1, 0)
  7. Select Case x
  8. Case Is = 1
  9. Currentcell.Interior.Color = vbRed
  10. End Select
  11. Next


Message édité par kesdo93220 le 16-06-2011 à 16:33:29
mood
Publicité
Posté le 16-06-2011 à 16:28:13  profilanswer
 

n°2082848
tarteflamb​ee
Posté le 16-06-2011 à 22:19:17  profilanswer
 

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
   

n°2082869
kesdo93220
Posté le 17-06-2011 à 09:57:46  profilanswer
 

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
n°2082871
kesdo93220
Posté le 17-06-2011 à 09:59:46  profilanswer
 

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

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

  [VBA] comparaison entre 2 lignes successives

 

Sujets relatifs
VBA : Erreur de syntaxe dans un champs Word[Bash] Additioner des lignes sous conditions
problème (opérateur manquant) dans Requete SQL sous Excel VBACours de C "minimaliste en lignes, riche en résultats"
[Excel+VBA] autofilter avec "format as table"Boucle à faire dans macro VBA (Excel)
preg_match() sur plusieurs lignesProblème incompatibilité type Excel VBA (Help, Stagiaire en détresse!)
VBA EXCEL : copier coller des valeurs automatiquementmise à jour tables access en VBA
Plus de sujets relatifs à : [VBA] comparaison entre 2 lignes successives


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