VBA trouver si une cellule existe déja dans la colonne Résolu/Fermé

Question

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

ccm81 · Accepted Answer

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

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

1 réponse

Discussions similaires