Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Dan,
Voici une façon de faire :
Lorsque tu entres dans le textbox, si ce dernier n'est pas vide, la petite procédure t'indiquera si dans la colonne A:A de la feuille "feuil1", la valeur saisie existe déjà dans cette plage de cellules.
Désirais-tu autre chose ?
'------------------- Private Sub TextBox1_Enter()
If Me.TextBox1 <> "" Then With Worksheets("Feuil1") If Application.CountIf(.Range("A:A"), Me.TextBox1) > 0 Then MsgBox "Cette valeur existe déjà" End If End With End If
End Sub '-------------------
Salutations!
"Dan" a écrit dans le message de news: Salut les pro.
Depuis que j'ai Excel j'ai pu filtré dès que ça a été possible...
Mais là je souhaiterai effectué une condition du style
Si Click Chek Box (dans le Userform ) et que ça existe déjà sur la Feuil ...
Merci mais là j'ai plus de vocabulaire... (je sais c'est pourtant facile)
@+ Dan (le vieux qui a la formule qui envoie du gros...)
Bonjour Dan,
Voici une façon de faire :
Lorsque tu entres dans le textbox, si ce dernier n'est pas vide, la petite procédure t'indiquera si dans la colonne A:A de la
feuille "feuil1", la valeur saisie existe déjà dans cette plage de cellules.
Désirais-tu autre chose ?
'-------------------
Private Sub TextBox1_Enter()
If Me.TextBox1 <> "" Then
With Worksheets("Feuil1")
If Application.CountIf(.Range("A:A"), Me.TextBox1) > 0 Then
MsgBox "Cette valeur existe déjà"
End If
End With
End If
End Sub
'-------------------
Salutations!
"Dan" <Dan---@wanadoo.fr> a écrit dans le message de news:OmMZQ1A6DHA.1948@TK2MSFTNGP12.phx.gbl...
Salut les pro.
Depuis que j'ai Excel j'ai pu filtré dès que ça a été possible...
Mais là je souhaiterai effectué une condition du style
Si Click Chek Box (dans le Userform ) et que ça existe déjà sur la Feuil ...
Merci mais là j'ai plus de vocabulaire...
(je sais c'est pourtant facile)
@+
Dan
(le vieux qui a la formule qui envoie du gros...)
Lorsque tu entres dans le textbox, si ce dernier n'est pas vide, la petite procédure t'indiquera si dans la colonne A:A de la feuille "feuil1", la valeur saisie existe déjà dans cette plage de cellules.
Désirais-tu autre chose ?
'------------------- Private Sub TextBox1_Enter()
If Me.TextBox1 <> "" Then With Worksheets("Feuil1") If Application.CountIf(.Range("A:A"), Me.TextBox1) > 0 Then MsgBox "Cette valeur existe déjà" End If End With End If
End Sub '-------------------
Salutations!
"Dan" a écrit dans le message de news: Salut les pro.
Depuis que j'ai Excel j'ai pu filtré dès que ça a été possible...
Mais là je souhaiterai effectué une condition du style
Si Click Chek Box (dans le Userform ) et que ça existe déjà sur la Feuil ...
Merci mais là j'ai plus de vocabulaire... (je sais c'est pourtant facile)
@+ Dan (le vieux qui a la formule qui envoie du gros...)
