Formule dans une textBox

[Ilino]

Bonsoir Forum,
Peut on insérer une formule ds une textbox ( ce textbox est dans la feuille4 ) permettant de chercher dans la colonne j ' d'une autre feuille2) le nombre de chiffre tapper dans la cellule A7 de la feuille'7 ??

La formule que je voudrais mettre en textbox 4 est :

RECHERCHER DANS LA COLONNE DU TABLEAU DE LA FEUILLE 2, LE NOMBRE DE LA VALLEUR SAISI DANS LA CELLULE A7

Merci pour votre aide

 

[kjin]

Re : Formule dans une textBox

bonsoir,

....chercher dans la colonne j ' d'une autre feuille2) le nombre de chiffre tapper dans la cellule A7

????
Peut-être

TextBox4 = Len(Feuil2.Range("A7"))

A+
kjin

 

[Ilino]

Re : Formule dans une textBox

BonjoirKjin
Merci pour la réponse , désolé je n'ai pas bien donner l'exemple
Recherché dans la colonne J de la feuille2 LE NOMBRE DE FOIS de la valeur de la cellule A7 de la feuille4
MERCI

 

[job75]

Re : Formule dans une textBox

Bonjour,

With Feuil4 'CodeName
.TextBox4 = IIf(.[A7].Text = "", "", Application.CountIf(Feuil2.[J:J], .[A7].Text))
End With

Feuil2 et Feuil4 étant les CodeName des feuilles.

A+

 

[Ilino]

Re : Formule dans une textBox

bONJOUR job
Merci pour la réponse mais ça ne change pas automatiquement??

 

[job75]

Re : Formule dans une textBox

Re,

Je vous ai déjà dit hier de réfléchir un peu...

 

[Ilino]

Re : Formule dans une textBox

Re,
merci Job pour la réponse et encore pour les consiels , mais je vous redis encore qui j'ai deja reflichi a la solution ( formulaire)
=SI(A7<>"";CONCATENER(NB.SI(FSE!J3:J2013;'Bordereau d''Envoi'!A7);" facture(s)");"") mais ce n'est pas ce que je souhaité
merci encore
a+

 

[job75]

Re : Formule dans une textBox

Re,

Après 491 posts vous n'avez toujours pas compris ce qu'est une macro Worksheet_Change !!!

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A7]) Is Nothing Then Exit Sub
TextBox4 = IIf([A7].Text = "", "", Application.CountIf(Feuil2.[J:J], [A7].Text))
'suite du code (s'il y en a...)
End Sub

A+

 

[job75]

Re : Formule dans une textBox

Re,

S'il s'agit de la suite de ce post :

https://www.excel-downloads.com/threads/remplir-une-feuille-selon-un-num.199155/

alors le code en Feuil4 est vraiment très facile à modifier :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A7]) Is Nothing Then Exit Sub
Dim num$, source, n&, dest(), i&
Range("A11:G" & Rows.Count).ClearContents 'RAZ
TextBox4 = ""
If [A7].Text = "" Then Exit Sub
If Not [A7] Like "*KDT/SCO*" Then _
  [A7] = [A7].Text & " /KDT/SCO/ " & Year(Date): Exit Sub
num = [A7].Text
With Sheets("FSE")
  Set source = .Range("A3:M" & .Cells(.Rows.Count, 10).End(xlUp).Row)
End With
n = Application.CountIf(source.Columns(10), num)
TextBox4 = n
'suite du code...

Fichier (3).

On vous donne des codes mais on ne sait jamais quels sont ceux que vous voulez garder...

A+

 

[Ilino]

Re : Formule dans une textBox

Re,

Après 491 posts vous n'avez toujours pas compris ce qu'est une macro Worksheet_Change !!!

[A+

Worksheet_Change par définition s'exécute quand des cellules sont modifiées
QUand meme Merci et PBLM au moin resolut
merci JOb