Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Rechercher une valeur et erreur si elle existe

2 réponses
Avatar
Deborah De La Dalle
Bonjour =E0 vous mes ami(e)s,

En VBA, comment faire pour rechercher une valeur entr=E9e=20
et afficher un message si cette valeur existe d=E9j=E0 dans=20
une colonne donn=E9e. La valeur est entr=E9e dans la m=EAme=20
colonne o=F9 devrait se faire la recherche.

Ce principe me permettrait d'emp=EAcher d'entrer une valeur=20
d=E9j=E0 existante.

P.S. j'utilise target provenant de Worksheet_change

Un million de merci!
Deb

2 réponses

Avatar
Pounet95
Bonsoir,
Sur ce forum, il ya quelques jours ( ... déjà !)
Alain Vallon répondait ceci :

"AV" a écrit dans le message de news:

Pour une saisie en colonne A
Dans le module de la feuille :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column <> 1 Then Exit Sub
If Application.CountIf([A:A], zz) > 1 Then _
MsgBox "La valeur " & zz & " est déjà présente en A:A"
End Sub

AV





--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Deborah De La Dalle" a écrit dans le
message de news: 1baf01c4f73a$41def0b0$
Bonjour à vous mes ami(e)s,

En VBA, comment faire pour rechercher une valeur entrée
et afficher un message si cette valeur existe déjà dans
une colonne donnée. La valeur est entrée dans la même
colonne où devrait se faire la recherche.

Ce principe me permettrait d'empêcher d'entrer une valeur
déjà existante.

P.S. j'utilise target provenant de Worksheet_change

Un million de merci!
Deb

Avatar
Michel41
Bonjour

Utiliser la fonction Find dans la colonne
de recopie des saisies
@+

"Deborah De La Dalle" a écrit dans le
message de news: 1baf01c4f73a$41def0b0$
Bonjour à vous mes ami(e)s,

En VBA, comment faire pour rechercher une valeur entrée
et afficher un message si cette valeur existe déjà dans
une colonne donnée. La valeur est entrée dans la même
colonne où devrait se faire la recherche.

Ce principe me permettrait d'empêcher d'entrer une valeur
déjà existante.

P.S. j'utilise target provenant de Worksheet_change

Un million de merci!
Deb