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

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

Newsletters