Aide pour finir userform

MASSJIPE

XLDnaute Impliqué

• 14 Décembre 2008

• #16

Re : Aide pour finir userform

il y à encore une chose
Quant je selectionne le N° DEQ, dans la case commentaire il affiche la date correspondante à la cellule, et il faut quelle reste vide pour ajouter un commentaire.
Quant je rentre le commentaire c'est ok
la date aussi il vont tous les deux dans la ligne et cellule correspondante au N° DEQ
Cijoint.fr - Service gratuit de dépôt de fichiers
merci

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 14 Décembre 2008

• #17

Re : Aide pour finir userform

Re,

Que veux tu exactement ?? Car là j'ai un peu de mal à te suivre 😕

C'est ton code qui met la date dans le Textebox2 (qui sert au commentaire)

Code:

Private Sub ComboBox1_Change()
TextBox2.Value = Sheets("DEQ").Range("E" & UserForm1.ComboBox1.ListIndex + 5)
End Sub

Maintenant tu veux qu'il reste vide pour que tu puises saisir dedans ?

Alors quand tu choisis un n° de ligne dans le Combobox1 que faut-il qu'il se passe ? Rien ?

Quand tu valides (bouton Exit) quelles sont les données qui doivent être reportées sur la feuille ?
- La date du DTPicker en colonne E en remplacement de celle qui y est déjà
- Le commentaire saisi dans le Textbox2 en colonne P


A+

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 14 Décembre 2008

• #18

Re : Aide pour finir userform

Re,

Essaye ceci:

Supprime la macro : Private Sub ComboBox1_Change()
Supprime la macro : Private Sub VALIDER_Click() et remplace la par celle-ci :

Code:

Private Sub VALIDER_Click()

If ComboBox1.ListIndex = -1 Then
  MsgBox "Sélectionner un n° de ligne.", vbCritical, "Erreur:"
  Exit Sub
End If

If TextBox2 = "" Then
  MsgBox "Aucun commentaire saisi.", vbCritical, "Erreur:"
  Exit Sub
End If

Sheets("DEQ").Range("P" & UserForm1.ComboBox1.ListIndex + 5).Value = Me.TextBox2.Text
Sheets("DEQ").Range("E" & UserForm1.ComboBox1.ListIndex + 5).Value = CDate(Format(DTPicker1, "dd/mm/yy"))
Unload Me

End Sub

A+

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 14 Décembre 2008

• #19

Re : Aide pour finir userform

Bonjour bqtr
Oui c'est ça maintenant c'est nickel
J’aurai peut être besoin de t'es lumières pour mettre un lien hypertexte a la validation du premier userform
Mais que je trouve l'adresse du répertoire a mon travail car c'est en réseau
merci beaucoup pour le moment

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 16 Décembre 2008

• #20

Re : Aide pour finir userform

Bonsoir
Peut t'on amelioré le vba apres validation avec userform DEQ j'alimente un graphique mais les formules change et fausse le graph
les donneées du graphique sont derriere le graph
Cijoint.fr - Service gratuit de dépôt de fichiers
merci

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 18 Décembre 2008

• #21

Re : Aide pour finir userform

Bonjour à tous
qui peut jeter un coup d'oeil
merci

 

Vote positif 0 Vote négatif