VBA trouver si une cellule existe déja dans la colonne

Résolu/Fermé
Jp - 10 mars 2015 à 15:30
 Jp - 10 mars 2015 à 16:04
Bonjour,

j'ai une colonne où sont répertoriés des noms de villes. et dans la colonne d'à coté, une date associé.
Je cherche à appliquer une formule à cette date mais si le nom de la ville apparait 2 fois dans la colonne, la formule sera différente.
En gros je voudrais un code permettant pour i=9 à la fin de la colonne, vérifier si cells(i, E).value existe déja dans les celulles (9, E) à (i-1, E)

merci d'avance

1 réponse

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
10 mars 2015 à 15:47
Bonjour

un petit exemple

Public Sub SiExiste()
Dim li As Long, lifin As Long, plage As Range, valeur
lifin = Range("E" & Rows.Count).End(xlUp).Row
For li = 9 To lifin
  valeur = Range("E" & li).Value
  Set plage = Range("E8:E" & li - 1)
  If Application.WorksheetFunction.CountIf(plage, valeur) >= 1 Then
    MsgBox valeur & " ligne " & li & " déjà présente dasn la plage " & plage.Address
  End If
Next li
End Sub


cdlmnt
3
merci
0