XL 2021 Résolu . Remplir un tableau par macro.

gillesda · 28 Mars 2024

Bonjour à tous.

Je fais appel à vos connaissances dans une matière que je ne connais pas, agissant simplement par mimétisme et copiage mais là je ne vois pas.
Je souhaite en effet remplir un tableau de trois noms en cliquant sur un bouton déclenchant une macro qui colle un nom prénom dans un tableau.
Il peut y avoir un, deux, voire trois noms dans ce tableau, et plus si affinité...
Quand ce sont les deux premiers noms, ils se suivent, c'est OK dans la forme.
Quand il s'agit du premier et du dernier, la cellule D4:E4 en l'occurrence reste vide et c'est pas terrible en présentation.
Il doit y avoir une question de x.Up et x.Down mais je là je coince.

Si quelqu'un à la solution, je suis preneur.

Bien cordialement en ces temps pluvieux.

sylvanu · 28 Mars 2024

Bonjour Gilles,
Peut être comme ça :

VB:

Sub TOI()
' TOI Macro
    L = Lvide
    Cells(L, "D") = "TOI": Cells(L, "E") = "René":
End Sub
Sub MOI()
' MOI Macro
    L = Lvide
    Cells(L, "D") = "MOI": Cells(L, "E") = "Jean":
End Sub
Sub LUI()
' LUI Macro
    L = Lvide
    Cells(L, "D") = "LUI": Cells(L, "E") = "Marte":
End Sub
Function Lvide()
     If [D3] = "" Then Lvide = 3 Else If [D4] = "" Then Lvide = 4 Else Lvide = 5
End Function

La fonction Lvide renvoie la première ligne vide trouvée dans la plage.

sylvanu · 28 Mars 2024

Ou plus simple avec :

Code:

Sub TOI()
    Ecrit "TOI", "René"
End Sub
Sub MOI()
    Ecrit "MOI", "Jean"
End Sub
Sub LUI()
    Ecrit "LUI", "Marte"
End Sub
Sub Ecrit(Nom, Prénom)
    L = Application.CountIf([D3:D5], "*") + 3
     Cells(L, "D") = Nom: Cells(L, "E") = Prénom
End Sub

gillesda · 29 Mars 2024

Bonjour Sylvanu, bonjour à tous.

D'abord merci pour vos réponses rapides.
J'ai testé les macros proposées et c'est tout à fait ce que je souhaite. Je ne saurai en débattre.
Je vous remercie.

Bien cordialement.
Gilles.

XL 2021 Résolu . Remplir un tableau par macro.

gillesda

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

gillesda

XLDnaute Nouveau

Discussions similaires