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

- - Dernière réponse :  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
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
9168
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
20 octobre 2019
1651
2
Merci
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

Dire « Merci » 2

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 64734 internautes nous ont dit merci ce mois-ci