Modifier une cellule avec un formulaire

Résolu/Fermé
NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 - 17 mai 2017 à 15:15
NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 - 18 mai 2017 à 10:14
Bonjour,


je voulais modifier la valeur d'une cellule à partir d'un formulaire userform en verifiant que les valeurs de la colonne A et colonne B et colonne D existent dans ma feuille si oui je modifie la valeur de la colonne C.sinon j'ajoute une ligne.

j'ai essayé le code suivant(voir le lien) mais il ne me permet pas de modifier la ligne.

Merci de m'aider a trouver l'erreur.

https://www.cjoint.com/c/GErnoEowjFp


A voir également:

1 réponse

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
17 mai 2017 à 16:07
Bonjour,

Faut choisir, pour modifier la date vous faites comment ?????

Private Sub ComboBox2_Enter()
Dim j As Integer, NL As Long
    
    TextBox2 = Date

et

Private Sub CommandButton1_Click()
            If .Range("B" & lig) <> TextBox2 Then
0
NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 2
17 mai 2017 à 16:22
j'ai pas bien saisi ce que vous voulez me dire.
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709 > NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017
17 mai 2017 à 16:26
Re,
Si par defaut vous mettez la date du jour au lieu de la date du choix fait ou si vous modifiez la date qui dans ce cas la serait la date du jour dans tous les cas ce test
Private Sub CommandButton1_Click()
            If .Range("B" & lig) <> TextBox2 Then

est valide systematiquement
0
NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 2
Modifié le 17 mai 2017 à 16:36
j'ai compris, ca marche pour la modification, j'ai changer la formule par:
If .Range("A" & lig) <> ComboBox2 Then

mais dans le cas ou la date saisi est differente il n'ajoute pas la ligne ,
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709 > NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017
17 mai 2017 à 16:38
Re,

Ben il faut ajouter du code pour......
0
NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 2
17 mai 2017 à 16:51
bon je vais essayer mais si vous avez une idée n'hesitez pas j'en ai vraiment besoin
0