Microsoft 365 Remplir tableau avec fonction via userform

frasylest · 7 Mai 2025

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 · 8 Mai 2025

frasylest à dit:
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...

Gégé-45550 · 8 Mai 2025

frasylest à dit:
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 :

VB:

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 · 8 Mai 2025

Bonjour,

frasylest à dit:
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 ??? 😉

VB:

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 ?

Gégé-45550 à dit:
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 · 8 Mai 2025

Gégé-45550 à dit:

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 :

VB:

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 · 8 Mai 2025

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 · 8 Mai 2025

frasylest à dit:
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. 😉

Microsoft 365 Remplir tableau avec fonction via userform

frasylest

XLDnaute Nouveau

Pièces jointes

Gégé-45550

Gégé-45550

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

frasylest

XLDnaute Nouveau

fanfan38

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Discussions similaires

Microsoft 365 Remplir tableau avec fonction via userform

frasylest

XLDnaute Nouveau

Pièces jointes

Gégé-45550

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

frasylest

XLDnaute Nouveau

fanfan38

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency