[VBA] comparaison entre 2 lignes successives

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] comparaison entre 2 lignes successives

kesdo93220

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 )

Merci d'avance pour votre aide

Kesdo

Code :

Dim Currentcell As Range
Dim Rg As Range
Dim x As Variant
Set Rg = Range(Cells(1, 4), Cells(1, 4).End(xlDown))
For Each Currentcell In Rg
x = Currentcell - Currentcell.Offset(1, 0)
Select Case x
Case Is = 1
Currentcell.Interior.Color = vbRed
End Select
Next

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

Publicité

tarteflambee

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 ?

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

kesdo93220

voici l'erreur que j'ai

"Erreur 13, Incompatibilité de type"

avec surlignage au niveau de cette ligne :

Code :

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

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

kesdo93220

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

Code :

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

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

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 VBA	Cours 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 lignes	Problème incompatibilité type Excel VBA (Help, Stagiaire en détresse!)
VBA EXCEL : copier coller des valeurs automatiquement	mise à jour tables access en VBA
Plus de sujets relatifs à : [VBA] comparaison entre 2 lignes successives

Page générée en 0.032 secondes