Re Super-Tonic (lol après 2 fois que je t'appelle Super-Sonic !!! )
(c'est la nostagie de notre bon vieux Concorde National !)
Pour ceci :
For i = Range("A65536").End(xlUp).Row + 1 To 2 Step -1
If Range("a" & i) = Range("a" & i - 1) Then
En bon François je dis :
For i = Range("A65536").End(xlUp).Row + 1 To 2 Step -1
"pour chaque ligne comprise entre la première ligne non vide de la plage "A" rencontrée en partant du bas..... et ce en remontant jusqu'à la ligne 2, ligne par ligne en moins...
If Range("a" & i) = Range("a" & i - 1) Then
Si la cellule "A de la ligne où je me trouve est égale à la ligne au dessus... En suite ...
C'est évidemment là que tu dois intervenir !!
Pour la compréhension et tant que j'y suis voici la suite de la traduction en bon François (c'est pour le Concorde !! lol)
MsgBox "Doublon Détecté et Détruit : " & Range("a" & i - 1).Value, vbCritical, "Thierry's Démo"
Donc je fais un message où je reprends bien la valeur de la ligne située au dessus...
Range("a" & i).ClearContents
Je vide le contenu de la cellule ou je me trouve...
End If
Fin de ma condition SI
Next
On passe à la ligne "i" suivante dans ma boucle
On Error Resume Next
çà c'est quand il n'y a pas eu de doublon (donc pas de cellule vide)
Sheets("Feuil1").Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Et la je vire la Ligne Entire pour chaque celllule qui serait vide dans la colonne 1 ("A")
Voilà pour l'explication de texte !!!
Par contre pour ton bout de code... Il semble que tu aies encore pas mal de boulot... (Mais moi aussi maintenant au bureau, je ne repasserai qu'en fin de journée là)
En tout cas
a = ufREFERENCE.tbPROCHAIN.Value
c'est pas bon !
Bon Aprèm
@+Thierry