heu !!
je vien d'essayer mais ça ne marche pas et je ne comprend pas pourquoi?
voici le code vba que j'ai mais peux etre que je ne le met pas au bon
endroit
If WorksheetFunction.CountIf([Créance!b:b], CInt(TextBox3.Value)) > 0 Then
MsgBox "Numéro en double"
Sheets("Créance").Range("e" & _
Range("e65536").End(xlUp).Row + 1) = UserForm1.TextBox5
Sheets("Créance").Range("f" & _
Range("f65536").End(xlUp).Row + 1) = UserForm1.TextBox6
Sheets("Créance").Range("g" & _
Range("g65536").End(xlUp).Row + 1) = UserForm1.ComboBox2
Sheets("Créance").Range("h" & _
Range("h65536").End(xlUp).Row + 1) = UserForm1.TextBox7
End If
Unload UserForm1
End Sub
merci
"novice" <pasdepub@numericable.fr> a écrit dans le message de
news:4430fd87$0$168$a3f2974a@nnrp1.numericable.fr...
> merci daniel
>
> "Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de
> news:u$mcFYvVGHA.1236@TK2MSFTNGP11.phx.gbl...
> > Bonjour.
> > Si tes numéros sont en colonne A ,
> >
> > If WorksheetFunction.CountIf([Feuil1!A:A], CInt(TextBox1.Value)) > 0
> > Then
> > MsgBox "Numéro en double"
> > End If
> >
> > Cordialement.
> > Daniel
> > "novice" <pasdepub@numericable.fr> a écrit dans le message de news:
> > 4430bf7c$0$167$a3f2974a@nnrp1.numericable.fr...
> > > bonjour a tous et a toutes
> > > voila j'ai un userform ou je rentre mes n° de recommandées et la date
de
> > > reception et je voudrais savoir si il existe un moyen pour ne pas
> rentrer
> > > 2 fois le meme numero de RA
> > > Par exemple au moment de la validation .
> > >
> > > merci a tous de votre aide.
> > > cordialement
> > >
> > >
> >
> >
>
>
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 Novice,
Une bonne façon de poser une question : A ) Débute par expliquer ce que tu veux réaliser B ) tu peux publier la macro que tu as créé C ) si tu publies ta macro.... indique la ligne de code problématique qu'excel t'indique lorsque tu l'exécutes
Dans la macro, tu as un problème de syntaxe :
Observe, il y a un POINT devant chaque objet "RANGE" afin de signifier à excel que la plage de cellules appartient bien à la même feuille. Tu dois alors utiliser une structure de code With ... End With
'---------------------------- Private Sub CommandButton1_Click()
"novice" a écrit dans le message de news: 44322080$0$165$ heu !! je vien d'essayer mais ça ne marche pas et je ne comprend pas pourquoi? voici le code vba que j'ai mais peux etre que je ne le met pas au bon endroit
If WorksheetFunction.CountIf([Créance!b:b], CInt(TextBox3.Value)) > 0 Then MsgBox "Numéro en double"
Sheets("Créance").Range("e" & _ Range("e65536").End(xlUp).Row + 1) = UserForm1.TextBox5 Sheets("Créance").Range("f" & _ Range("f65536").End(xlUp).Row + 1) = UserForm1.TextBox6 Sheets("Créance").Range("g" & _ Range("g65536").End(xlUp).Row + 1) = UserForm1.ComboBox2 Sheets("Créance").Range("h" & _ Range("h65536").End(xlUp).Row + 1) = UserForm1.TextBox7 End If Unload UserForm1 End Sub
merci
"novice" a écrit dans le message de news:4430fd87$0$168$
merci daniel
"Daniel" a écrit dans le message de news:u$
Bonjour. Si tes numéros sont en colonne A ,
If WorksheetFunction.CountIf([Feuil1!A:A], CInt(TextBox1.Value)) > 0 Then MsgBox "Numéro en double" End If
Cordialement. Daniel "novice" a écrit dans le message de news: 4430bf7c$0$167$
bonjour a tous et a toutes voila j'ai un userform ou je rentre mes n° de recommandées et la date de
reception et je voudrais savoir si il existe un moyen pour ne pas rentrer
2 fois le meme numero de RA Par exemple au moment de la validation .
merci a tous de votre aide. cordialement
Bonjour Novice,
Une bonne façon de poser une question :
A ) Débute par expliquer ce que tu veux réaliser
B ) tu peux publier la macro que tu as créé
C ) si tu publies ta macro.... indique la ligne de code
problématique qu'excel t'indique lorsque tu l'exécutes
Dans la macro, tu as un problème de syntaxe :
Observe, il y a un POINT devant chaque objet "RANGE"
afin de signifier à excel que la plage de cellules appartient bien
à la même feuille. Tu dois alors utiliser une structure de code
With ... End With
'----------------------------
Private Sub CommandButton1_Click()
"novice" <pasdepub@numericable.fr> a écrit dans le message de news: 44322080$0$165$a3f2974a@nnrp1.numericable.fr...
heu !!
je vien d'essayer mais ça ne marche pas et je ne comprend pas pourquoi?
voici le code vba que j'ai mais peux etre que je ne le met pas au bon
endroit
Une bonne façon de poser une question : A ) Débute par expliquer ce que tu veux réaliser B ) tu peux publier la macro que tu as créé C ) si tu publies ta macro.... indique la ligne de code problématique qu'excel t'indique lorsque tu l'exécutes
Dans la macro, tu as un problème de syntaxe :
Observe, il y a un POINT devant chaque objet "RANGE" afin de signifier à excel que la plage de cellules appartient bien à la même feuille. Tu dois alors utiliser une structure de code With ... End With
'---------------------------- Private Sub CommandButton1_Click()
"novice" a écrit dans le message de news: 44322080$0$165$ heu !! je vien d'essayer mais ça ne marche pas et je ne comprend pas pourquoi? voici le code vba que j'ai mais peux etre que je ne le met pas au bon endroit