Microsoft 365 Remplir tableau avec fonction via userform

[frasylest]

Bonsoir à tous, mon dilemme est le suivant : j’ai créé un tableau et un userform pour le remplir. Quand je saisie directement dans le tableau, la fonction concaténer s’alimente automatiquement dés lors une nouvelle entrée avec la touche Tab, mais en passant par l’userform, ça ne le fait pas, POURQUOI ? Eclairez moi, car j’ai beau regarder des vidéos d’Excel en vba, aucune ne me parle de ce problème. Merci de vos solutions, en pièce joint le fichier, c’est pour une collection de pièces et médailles. Il n’y a que les boutons INSCRIRE, RECHERCHER par la REF et FERMER qui fonctionnent, pour l’exemple. Cordialement Sylvain

 

[Gégé-45550]

Bonsoir à tous, mon dilemme est le suivant : j’ai créé un tableau et un userform pour le remplir. Quand je saisie directement dans le tableau, la fonction concaténer s’alimente automatiquement dés lors une nouvelle entrée avec la touche Tab, mais en passant par l’userform, ça ne le fait pas, POURQUOI ? Eclairez moi, car j’ai beau regarder des vidéos d’Excel en vba, aucune ne me parle de ce problème. Merci de vos solutions, en pièce joint le fichier, c’est pour une collection de pièces et médailles. Il n’y a que les boutons INSCRIRE, RECHERCHER par la REF et FERMER qui fonctionnent, pour l’exemple. Cordialement Sylvain

Bonsoir,
Laissez le tableau structuré faire le travail de peuplement des formules en colonnes N, O et P..
Si vous calculez une valeur, alors la formule ne sera pas répétée.
Voir ci-dessous lles lignes passées en annotation :

Function copy_from_form_without_repeat_Ref()
Dim LastRowValue As Long
LastRowValue = ActiveWorkbook.Sheets("Feuil3").Range("A1048576").End(xlUp).Value
TextBox1Ref = LastRowValue + 1
Dim rng1 As Range
Dim str_search As String
str_search = TextBox1Ref.Value
ActiveWorkbook.Sheets("Feuil3").Activate
Set rng1 = Sheets("Feuil3").Range("A:A").Find(str_search, , xlValues, xlWhole)
If rng1 Is Nothing Then
Dim lastrow As Long
lastrow = ActiveWorkbook.Sheets("Feuil3").Range("A1048576").End(xlUp).Row
lastrow = lastrow + 1
With ActiveWorkbook.Sheets("Feuil3")
.Range("A" & lastrow).Value = TextBox1Ref.Value
.Range("B" & lastrow).Value = TextBox2Cof.Value
.Range("C" & lastrow).Value = TextBox3Pos.Value
.Range("D" & lastrow).Value = TextBox4Val.Value
.Range("E" & lastrow).Value = TextBox5Nom.Value
.Range("F" & lastrow).Value = Combobox1Pays.Value
.Range("G" & lastrow).Value = TextBox6An.Value
.Range("H" & lastrow).Value = TextBox7Ann.Value
.Range("I" & lastrow).Value = TextBox8Des.Value
.Range("J" & lastrow).Value = Combobox2Mat.Value
.Range("K" & lastrow).Value = TextBox9Dou.Value
.Range("L" & lastrow).Value = TextBox10Pho.Value
.Range("M" & lastrow).Value = TextBox11Phot.Value
'.Range("N" & lastrow).Value = TextBox12Lien1.Value
'.Range("O" & lastrow).Value = Textbox13Lien2.Value
'.Range("P" & lastrow).Value = TextBox14Titre.Value
End With
Else
MsgBox str_search & " is Found"
End If
End Function

Cordialement,

 

[TooFatBoy]

Bonjour,

Quand je saisie directement dans le tableau, la fonction concaténer s’alimente automatiquement dés lors une nouvelle entrée avec la touche Tab

What does it mean in french ??? 😉

---

Spoiler: Code qui pique les yeux

With ActiveWorkbook.Sheets("Feuil3")
    .Range("A" & lastrow).Value = TextBox1Ref.Value
    .Range("B" & lastrow).Value = TextBox2Cof.Value
    .Range("C" & lastrow).Value = TextBox3Pos.Value
    .Range("D" & lastrow).Value = TextBox4Val.Value
    .Range("E" & lastrow).Value = TextBox5Nom.Value
    .Range("F" & lastrow).Value = Combobox1Pays.Value
    .Range("G" & lastrow).Value = TextBox6An.Value
    .Range("H" & lastrow).Value = TextBox7Ann.Value
    .Range("I" & lastrow).Value = TextBox8Des.Value
    .Range("J" & lastrow).Value = Combobox2Mat.Value
    .Range("K" & lastrow).Value = TextBox9Dou.Value
    .Range("L" & lastrow).Value = TextBox10Pho.Value
    .Range("M" & lastrow).Value = TextBox11Phot.Value
    .Range("N" & lastrow).Value = TextBox12Lien1.Value
    .Range("O" & lastrow).Value = Textbox13Lien2.Value
    .Range("P" & lastrow).Value = TextBox14Titre.Value
End With

C'est un TS que tu veux remplir, donc pourquoi ne pas utiliser ses spécificités ?

---

Laissez le tableau structuré faire le travail de peuplement des formules en colonnes N, O et P..

Et corriger la formule de la colonne "Lien 1", et aussi celle de la colonne "Lien2". 😉
En revanche, celle de la colonne "Contanener 1" est bonne.

---

"Euro", je vois ce que c'est comme monnaie.
"Dollar", je vois ce que c'est comme monnaie.
Mais, pour ma culture personnelle, "Cent" c'est quoi comme monnaie ???

 

[frasylest]

Bonsoir,
Laissez le tableau structuré faire le travail de peuplement des formules en colonnes N, O et P..
Si vous calculez une valeur, alors la formule ne sera pas répétée.
Voir ci-dessous lles lignes passées en annotation :

Function copy_from_form_without_repeat_Ref()
Dim LastRowValue As Long
LastRowValue = ActiveWorkbook.Sheets("Feuil3").Range("A1048576").End(xlUp).Value
TextBox1Ref = LastRowValue + 1
Dim rng1 As Range
Dim str_search As String
str_search = TextBox1Ref.Value
ActiveWorkbook.Sheets("Feuil3").Activate
Set rng1 = Sheets("Feuil3").Range("A:A").Find(str_search, , xlValues, xlWhole)
If rng1 Is Nothing Then
Dim lastrow As Long
lastrow = ActiveWorkbook.Sheets("Feuil3").Range("A1048576").End(xlUp).Row
lastrow = lastrow + 1
With ActiveWorkbook.Sheets("Feuil3")
.Range("A" & lastrow).Value = TextBox1Ref.Value
.Range("B" & lastrow).Value = TextBox2Cof.Value
.Range("C" & lastrow).Value = TextBox3Pos.Value
.Range("D" & lastrow).Value = TextBox4Val.Value
.Range("E" & lastrow).Value = TextBox5Nom.Value
.Range("F" & lastrow).Value = Combobox1Pays.Value
.Range("G" & lastrow).Value = TextBox6An.Value
.Range("H" & lastrow).Value = TextBox7Ann.Value
.Range("I" & lastrow).Value = TextBox8Des.Value
.Range("J" & lastrow).Value = Combobox2Mat.Value
.Range("K" & lastrow).Value = TextBox9Dou.Value
.Range("L" & lastrow).Value = TextBox10Pho.Value
.Range("M" & lastrow).Value = TextBox11Phot.Value
'.Range("N" & lastrow).Value = TextBox12Lien1.Value
'.Range("O" & lastrow).Value = Textbox13Lien2.Value
'.Range("P" & lastrow).Value = TextBox14Titre.Value
End With
Else
MsgBox str_search & " is Found"
End If
End Function

Cordialement,

Bonjour, un grand et gros MERCI, comment je n'ai pas vu l'évidence, si simple que je cherchais compliqué ! Tellement omnubilé par le "problème" que j'en oublie les basics de la création de tableau, et pour info le cent correspond au centime d'euro, merci encore et au plaisir, cordialement Sylvain

 

[fanfan38]

Bonjour et bienvenu sur le forum
J'ai revu ton userform et fait quelques modi...
Ci joint ma solution (c'est bête d'avoir un tableau structuré et de ne pas l'utiliser...)

A+ François

 

[TooFatBoy]

pour info le cent correspond au centime d'euro

Merci pour ta réponse. 👍

Le "cent" étant le centième d'un euro, ce n'est donc pas une monnaie à proprement parler.
D'ailleurs, le "cent" est aussi le centième d'un dollar américain. 😉