Modification des données sous Userform

[aziz]

Bonjour à tous et au forum
Quand je lance la modification sur mes produits < à 2 mois de stock
Je souhaiterai seulement modifié directement dans mon userform les données suivantes :
N° Cde, Date de Livraison et les Commentaires.

Merci pour votre Aide

 

[bbb38]

Re : Modification des données sous Userform

Bonjour aziz, le forum,
Pas certain d’avoir compris ta demande. Ficher ci-joint à tester.
Cordialement,
Bernard

 

[aziz]

Re : Modification des données sous Userform

Bonjour Bernard et au forum
Désolé de repondre si tard, mais j'étais absent.
J'ai essai ton fichier mais j'ai une erreur 2110 ??
Merci pour aide

 

[aziz]

Re : Modification des données sous Userform

Bonjour à tous,
quelqu'un à une idée sur mon erreur 2110 ??
Merci pour votre aide

 

[bbb38]

Re : Modification des données sous Userform

Bonjour aziz, le forum,
Correction effectuée (remplacer TextBox1 par TextBox12), à tester.
Cordialement,
Bernard

 

[aziz]

Re : Modification des données sous Userform

Bonjour Bernard, cela ne fonctionne pas.
Etant nouveau en vba, j'essaye de comprendre et apprendre.
Par exemple en lançant la VBA, et que je vous modifier ma derniere ligne, c'est à dire Chambre AXIAL M
et lui rajouter un Numéro de cde, une date de livraison et un eventuel commentaire en cliquant sur le bouton OK
cela ne fonctionne pas.

Ne penses tu pas que le probleme viens de la :


li = Me.ListBox1.ListIndex + 2 'définit la ligne li
With Sheets("RÉCAPITULATIF") 'prend en compte l'onglet "RÉCAPITULATIF"
.Cells(li, 3).Value = Me.TextBox1.Value 'place le nom
.Cells(li, 4).Value = Me.TextBox2.Value 'place le prénom
.Cells(li, 5).Value = Me.TextBox3.Value 'place la chambre
.Cells(li, 6).Value = Me.ComboBox1.Value 'place le lieu de rdv
.Cells(li, 7).Value = Me.TextBox12.Value 'Place N° cde
.Cells(li, 8).Value = Me.TextBox13.Value 'place Date de livraison
.Cells(li, 9).Value = Me.TextBox14.Value 'place commentaires
.Cells(li, 10).Value = IIf(Me.CheckBox1.Value = True, "X", "") 'place la régularisation
.Cells(li, 111).Value = "Modifié le " & Now 'place la date et l'heure de la modification
End With
fin: 'étiquette
Unload Me 'vide et ferme l'UserForm1
UserForm1.Show 'affiche l'UserForm1
End Sub


Merci

 

[bbb38]

Re : Modification des données sous Userform

Bonjour aziz, le forum,
Puis-je modifier l'ensemble de tes codes ?
Cordialement,
Bernard

 

[aziz]

Re : Modification des données sous Userform

Bonsoir BBB38 et au Forum
Désolé du retard
oui bien sur tu peux.
Grand merci

 

[bbb38]

Re : Modification des données sous Userform

Bonjour aziz, le forum,
Peux-tu me donner sur la feuille « Récapitulatif », la signification des titres des colonnes B à J (ligne 3).
Cordialement,
Bernard

 

[aziz]

Re : Modification des données sous Userform

Bonjour bbb38, le Forum
Voici,
B=Code
C=Produits
D=Plan
E=Qté en stock
F=Qté commander
G=stock Dispo
H=Couverture en mois
I=Délai
J=Fournisseurs

Cordialement.

 

[bbb38]

Re : Modification des données sous Userform

Bonjour aziz, le forum,
Une première ébauche. Sur la feuille « accueil », tu trouveras 2 cadres. Actuellement, seul le bouton de commande figurant dans le cadre « Produits en stock » fonctionne. Pour faciliter l’écriture du code, des lignes blanches apparaissent (elles correspondent aux produits ne répondant pas à la condition). A tester.
Mon idée était d’avoir un seul formulaire, mais je n’ai pas compris les rapports entre les TextBox de ton formulaire « Ajout », et leurs affectations sur la feuille. Quelles sont les données que tu souhaites entrer par l’UserForm « Ajout » ?
Le bouton de commande « Modification » pourra permettre de modifier les informations sur les produits.
Cordialement,
Bernard

 

[aziz]

Re : Modification des données sous Userform

Bonjour Bernard et le forum
Pour le moment aucune utilisation avec l'userform Ajout .
Uniquement la commande Modification doit fonctionner.
Merci pour ton aide cela fonctionne très bien.
Et si on souhaite faire disparaitre les lignes Blanches, est ce que le code est plus compliqué.
Ton idée est super.