VBA, Macro User Form Résolu/Fermé

Question

Bonjour à tous,

Comme vous pouvez le voir dans mon fichier ci-dessous, dont le but est la gestion des palettes dans mon entreprise,

J'aimerais que grâce à l'user form créé et à l'entrée des données dans ce dernier, je puisse remplir mon tableau que l'on trouve en cliquant sur mon bouton "données"

J'y suis presque mais mon code VBA me relève une erreur et je n'arrive pas à la modifier pour que ça fonctionne parfaitement....

Merci d'avance

Ps : voici le lien : https://www.petit-fichier.fr/2017/04/13/faux/

cs_Le Pivert · Answer

Bonjour,

Je ne vois pas de feuille nommée Dessin!
Il faut rendre la feuille données visible!
Voilà

Private Sub CommandButton1_Click()

' Sheets("Dessin").Select
    Rows("1:1").Select
    Selection.AutoFilter
ThisWorkbook.Sheets("données").Visible = True
Sheets("données").Select

'Test si toutes les cases de base sont renseignées
If ComboBox1 = "" Or TextBox1 = "" Or TextBox2 = "" Or TextBox4 = "" Or TextBox5 = "" Then
            MsgBox ("Merci de Remplir l'ensemble des cases nécessaires.")
Else

'Recopier les informations à la suite
'si première ligne de saisie
If Range("A2") = "" Then
Range("A2").Select
n = ActiveCell.Row
Else
'pour toute les autres lignes que la première
Range("A1").End(xlDown).Offset(1, 0).Select
n = ActiveCell.Row
End If

'Choix des cellules de destination

Range("C" & n) = CDate(TextBox1.Value)
Range("D" & n) = TextBox2.Value

Range("E" & n) = ComboBox1.Value

Range("F" & n) = TextBox4.Value
Range("G" & n) = TextBox5.Value

Range("A" & n) = "=MONTH(RC[2])"
Range("B" & n) = "=TEXT(WEEKDAY(RC[1]),""jjjj"")"
       
ThisWorkbook.Save

Me.Hide
Sheets("Accueil").Select
End If

End Sub

VBA, Macro User Form

1 réponse

Discussions similaires