Bonsoir =E0 tous,
J'ai fait un Usf , et avec un TextBox je saisie des chiffres qui
seront plac=E9 dans la colonne F ,
Comment faire pour ne pas saisir de 2 fois le m=EAme chiffre et =EAtre
averti par MsgBox si
tel =E9tait le cas.
Merci pour toutes r=E9ponses
Fredy.
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
JFrancois QC
Salut, tu peux essayer quelque choses comme ça : i=0 on error resume next i=application.match(usf.textbox.text,activesheet.colums(6),0) on errro goto 0 if i> 0 then msgbox...valeur présente else ' valeur absente endif
Bonsoir à tous, J'ai fait un Usf , et avec un TextBox je saisie des chiffres qui seront placé dans la colonne F , Comment faire pour ne pas saisir de 2 fois le même chiffre et être averti par MsgBox si tel était le cas. Merci pour toutes réponses Fredy.
Salut,
tu peux essayer quelque choses comme ça :
i=0
on error resume next
i=application.match(usf.textbox.text,activesheet.colums(6),0)
on errro goto 0
if i> 0 then
msgbox...valeur présente
else
' valeur absente
endif
Bonsoir à tous,
J'ai fait un Usf , et avec un TextBox je saisie des chiffres qui
seront placé dans la colonne F ,
Comment faire pour ne pas saisir de 2 fois le même chiffre et être
averti par MsgBox si
tel était le cas.
Merci pour toutes réponses
Fredy.
Salut, tu peux essayer quelque choses comme ça : i=0 on error resume next i=application.match(usf.textbox.text,activesheet.colums(6),0) on errro goto 0 if i> 0 then msgbox...valeur présente else ' valeur absente endif
Bonsoir à tous, J'ai fait un Usf , et avec un TextBox je saisie des chiffres qui seront placé dans la colonne F , Comment faire pour ne pas saisir de 2 fois le même chiffre et être averti par MsgBox si tel était le cas. Merci pour toutes réponses Fredy.
Fredy
Salut JFrancois, erreur de compilation:erreur de syntaxe à la hauteur des MsgBox.
On 12 sep, 19:20, JFrancois QC wrote:
Salut, tu peux essayer quelque choses comme ça : i=0 on error resume next i=application.match(usf.textbox.text,activesheet.colums(6),0) on errro goto 0 if i> 0 then msgbox...valeur présente else ' valeur absente endif
Bonsoir à tous, J'ai fait un Usf , et avec un TextBox je saisie des chiffres qui seront placé dans la colonne F , Comment faire pour ne pas saisir de 2 fois le même chiffre et être averti par MsgBox si tel était le cas. Merci pour toutes réponses Fredy.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Salut JFrancois,
erreur de compilation:erreur de syntaxe à la hauteur des MsgBox.
On 12 sep, 19:20, JFrancois QC <JFrancoi...@discussions.microsoft.com>
wrote:
Salut,
tu peux essayer quelque choses comme ça :
i=0
on error resume next
i=application.match(usf.textbox.text,activesheet.colums(6),0)
on errro goto 0
if i> 0 then
msgbox...valeur présente
else
' valeur absente
endif
Bonsoir à tous,
J'ai fait un Usf , et avec un TextBox je saisie des chiffres qui
seront placé dans la colonne F ,
Comment faire pour ne pas saisir de 2 fois le même chiffre et être
averti par MsgBox si
tel était le cas.
Merci pour toutes réponses
Fredy.- Masquer le texte des messages précédents -
Salut JFrancois, erreur de compilation:erreur de syntaxe à la hauteur des MsgBox.
On 12 sep, 19:20, JFrancois QC wrote:
Salut, tu peux essayer quelque choses comme ça : i=0 on error resume next i=application.match(usf.textbox.text,activesheet.colums(6),0) on errro goto 0 if i> 0 then msgbox...valeur présente else ' valeur absente endif
Bonsoir à tous, J'ai fait un Usf , et avec un TextBox je saisie des chiffres qui seront placé dans la colonne F , Comment faire pour ne pas saisir de 2 fois le même chiffre et être averti par MsgBox si tel était le cas. Merci pour toutes réponses Fredy.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
JB
Bonsoir,
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If Not IsError(Application.Match(CDbl(Me.TextBox1), [F:F], 0)) Then MsgBox "doublon" Cancel = True End If End Sub
JB
On 12 sep, 19:06, Fredy wrote:
Bonsoir à tous, J'ai fait un Usf , et avec un TextBox je saisie des chiffres qui seront placé dans la colonne F , Comment faire pour ne pas saisir de 2 fois le même chiffre et être averti par MsgBox si tel était le cas. Merci pour toutes réponses Fredy.
Bonsoir,
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If Not IsError(Application.Match(CDbl(Me.TextBox1), [F:F], 0)) Then
MsgBox "doublon"
Cancel = True
End If
End Sub
JB
On 12 sep, 19:06, Fredy <laurent.fr...@wanadoo.fr> wrote:
Bonsoir à tous,
J'ai fait un Usf , et avec un TextBox je saisie des chiffres qui
seront placé dans la colonne F ,
Comment faire pour ne pas saisir de 2 fois le même chiffre et être
averti par MsgBox si
tel était le cas.
Merci pour toutes réponses
Fredy.
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If Not IsError(Application.Match(CDbl(Me.TextBox1), [F:F], 0)) Then MsgBox "doublon" Cancel = True End If End Sub
JB
On 12 sep, 19:06, Fredy wrote:
Bonsoir à tous, J'ai fait un Usf , et avec un TextBox je saisie des chiffres qui seront placé dans la colonne F , Comment faire pour ne pas saisir de 2 fois le même chiffre et être averti par MsgBox si tel était le cas. Merci pour toutes réponses Fredy.
Fredy
On 12 sep, 20:53, JB wrote:
Bonsoir JB ça roule.
un grand merci. Fredy
On 12 sep, 20:53, JB <boisgont...@hotmail.com> wrote: