valeur cherchée = valeur de la cellule au dessus

Question

Bonjour à tous, 


Je réalise actuellement une macro qui supprime les doublons avec une boucle

Je voulais  écrire dans mon programme comme valeur cherchée le texte suivant :

`Valeur cherchée = cellule au dessus de la cellule sélectionnée

valcherch = ActiveCell.End(xlUp).Row - 1


Cela n'a pas l'air de fonctionner.
Pourriez-vous m'expliquer mon erreur ?

merci d'avance
Valentine
Novice VBA :)

Yug · Answer

J'utilise une petite boucle pour mes doublons. Elle prend une cellule et la compare à toutes les autres jusqu'à trouver un doublon ou arriver au bout.

For j = ligne_start To ligne_fin - 1
    test = j + 1
    Do Until Cells(j, ta_colonne) = Cells(test, ta_colonne) Or test = ligne_fin
        test = test + 1
    Loop
   
    If test <> ligne_fin
          Cells(j, ta_colonne).EntireRow.Delete
    End If
    
Next j

Voilà j'espère que ça marchera pour toi =)

Valeur cherchée = valeur de la cellule au dessus

1 réponse

Discussions similaires

Newsletters