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

Signaler
-
 Jp -
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

Messages postés
9550
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
1 septembre 2020
1 896
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

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

CCM 60906 internautes nous ont dit merci ce mois-ci