XL 2010 Problème VBA

[ludo170967]

Bonjour,
j'aimerais que userform1 génère automatique la date du jour et quand je valide il insère un encadrement de la ligne
es possible
Bien sûr le message "veuillez noter une date ne servira plus à rien
Merci
Ludo

 

[sylvanu]

Bonoir Ludo,
Pour la date :

Private Sub Workbook_Open()
    Interface.Madate = Date
    Interface.Show
End Sub

Pour l'encadrement des cellules :

    .Range(Cells(Ligne, 1), Cells(Ligne, 5)).Borders.Weight = xlThin

 

[Hasco]

Bonsoir,

Ce qui change dans le fichier joint : utlisation d'un tableau structuré la mise en forme suivra automatiquement l'ajout de ligne. Voir la formule de la colonne cachée 'Catégorie'.

Ensuite dans le userform :

1 -

Private Sub UserForm_Initialize()
Madate.Value = Format(Date, "dd/mm/yyyy")
End Sub

2 -

Private Sub CommandButton1_Click()
  'double click bouton ajouter
  If Not IsDate(Madate.Value) Then
    MsgBox "Date non renseignée ou invalide. Veuillez corriger s'il vous plaît.", vbExclamation, "Enregistrement mouvement de stock"
    Exit Sub
  End If
  If Produits.Value = "élingue" Then
    MsgBox "Veuillez rajouter àprès élingue à la main le numéro de l'élingue"
    Exit Sub
  End If
  Dim Ligne As Integer
  If MsgBox("confirmez-vous l'ajout des données ?", vbYesNo, "confirmation") = vbNo Then Exit Sub
  With Sheets("Mouvements de stock").ListObjects("T_Stock").ListRows.Add().Range
    .Cells(1, 1) = Véhicule.Value
    .Cells(1, 2) = CDate(Madate.Value)
    .Cells(1, 3) = Zone.Value
    .Cells(1, 4) = Produits.Value
    .Cells(1, 5) = Sortie.Value
  End With
  Unload Interface
  Interface.Show
End Sub

Cordialement

 

[ludo170967]

Re
Nikel mas j'aimerais que la date du jour reste si j'ai plusieurs lignes à faire
Ludo

 

[ludo170967]

Re
Merci reblochon
Tu as répondu a ma question en même temps que je la post
Ludo

 

[Hasco]

Re,

Comme pas grand chose à faire, j'ai modifié un peu le développement des opérations.
Suppression du déchargement/rechargement du userform
Réinitialisation des contrôles
Création d'une fonction de controle des saisies permettant d'autoriser ou non le click sur le bouton d'ajout.
Ajout d'un bouton Fermer pour fermer la fenêtre en fin d'opérations.

 

[ludo170967]

Re
Déjà j'avais dû mal à suivre, la je suis complètement a la ramasse
Merci
Ludo