Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel recherche en vba

recherche en vba

3 réponses
Avatar
novice
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Daniel
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




Avatar
novice
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








Avatar
novice
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

Private Sub CommandButton1_Click()
Sheets("Créance").Range("a" & _
Range("a65536").End(xlUp).Row + 1) = UserForm1.TextBox1
Sheets("Créance").Range("c" & _
Range("c65536").End(xlUp).Row + 1) = UserForm1.TextBox4
Sheets("Créance").Range("d" & _
Range("d65536").End(xlUp).Row + 1) = UserForm1.ComboBox1
Sheets("Créance").Range("b" & _
Range("b65536").End(xlUp).Row + 1) = "RA" & TextBox3 & "FR"

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