problème avec USERFORM multi fenêtre

[cj welch]

Bonjour,

je voudrais a partir d'un userform copier certaines données d'une feuille vers une autre. Seulement l'userform doit s'ouvrir quand on rentre un chiffre dans une colonne.
de plus, l'userform en question doit comporter 2 autres fenêtre.

Je vous joints :
- le fichier "véhicule" ou doit fonctionner l'userform
- le fichier "explicat°userform" ou j'explique de façon détaillé mon souhait
- le fichier "exemple" que j'ai trouver sur le forum et qui ma servie de base

Je suis nul en vba et c'est pour cella que j'ai besions de vos lumières

merci d'avance de prendre le temps

 

[Bebere]

Re : problème avec USERFORM multi fenêtre

Cj Welsch
explique clairement ce que tu veux(avec exemples,svp)
à bientôt

 

[cj welch]

Re : problème avec USERFORM multi fenêtre

re bebere,

je t'explique clairement ce que je veux dans le fichier ci-joint

l'userform que tu a construit est tès bien, je voudrais juste le modifier un peut.

merci

 

[Bebere]

Re : problème avec USERFORM multi fenêtre

bonsoir Welch
explication dans feuille commande
à bientôt

 

[cj welch]

Re : problème avec USERFORM multi fenêtre

salut bebere,

les modifications que tu as apporter sont parfaite.
par contre, j'ai un petit problème j'ai copié l'userform dans un fichier identique et maintenant j'ai un message d'erreur qui apparait :
erreur d'exécution 1004 : "erreur défini par l'application ou l'objet"
quand j'appuis sur déblocage, il me renvoi à la ligne
Range("T" & L) = CDbl(ListBox1.List(ListBox1.ListIndex, 2))

peut tu me faire la réparation

merci

 

[Bebere]

Re : problème avec USERFORM multi fenêtre

bonjour Cj Welch
tu as une erreur parce que ListBox1.List(ListBox1.ListIndex, 2) est vide
met un test
if ListBox1.List(ListBox1.ListIndex, 2)<>""Then _
.Range("T" & L) =CDbl(ListBox1.List(ListBox1.ListIndex, 2))
à bientôt

 

[cj welch]

Re : problème avec USERFORM multi fenêtre

salut bebere,

j'ai inseré le code que tu viens de me donné, et supprimé la ligne surligné en jaune.

j'ai même associé les deux.

malheureusement ça ne marche pas

 

[Bebere]

Re : problème avec USERFORM multi fenêtre

Cj Welch
il faut mettre la ligne comme dans le mail
à bientôt

 

[cj welch]

Re : problème avec USERFORM multi fenêtre

salut bebere

avec toute ma bonne volonté, je n'arrive pas à solutionner le problème.

je t'envoi un lien pour que tu regarde le fichier directement

Cijoint.fr - Service gratuit de dépôt de fichiers

Dans l'attente de te lire

A+

 

[Bebere]

Re : problème avec USERFORM multi fenêtre

SalutCj Welsch
la feuille était protégée
http://cjoint.com/?jyu2cyTV48
à bientôt

 

[cj welch]

Re : problème avec USERFORM multi fenêtre

salut bebere,

merci ca marche très bien et j'ai enfin pu copier l'userform.

cependant, j'ai un petit message d'erreur qui apparait de temps en temps au niveau de la textbox4. qui me dit incompatibilité de type et me renvoi a la ligne :
Private Sub TextBox4_Change()
If IsNumeric(TextBox4) Then TextBox6 = Format(CDbl(TextBox4) * CDbl(Replace(TextBox5, " €", "")), "0.00 €"). Pourtant sur la textbox4 on rentre uniquement des quantité. De plus, peut tu me créer un message du genre : "la saisie doit etre en numérique" car quand on rentre des lettres on a un message d'erreur.

merci

A+

 

[skoobi]

Re : problème avec USERFORM multi fenêtre

Bonsoir cj welch,

pour le message d'erreur, cela se produit quand la case prix est vide, donc...

De plus, peut tu me créer un message du genre : "la saisie doit etre en numérique" car quand on rentre des lettres on a un message d'erreur.

Voici:

Private Sub TextBox4_Change()
[COLOR=Blue][B]If Not IsNumeric(TextBox4) And TextBox4 <> "" Then
  MsgBox "la saisie doit etre en numérique"
  TextBox4 = ""
  Exit Sub
End If[/B][/COLOR]
If IsNumeric(TextBox4) Then TextBox6 = Format(CDbl(TextBox4) * CDbl(Replace(TextBox5, " €", "")), "0.00 €")
End Sub

Bonne soirée

 

[cj welch]

Re : problème avec USERFORM multi fenêtre

re skoobi et merci beaucoup

l'erreur se produit encore, y a t'il un moyen pour que ce prix ne s'efface plus ?

de plus, quand on veut supprimer, et qu'on sélectionne une ville (ligne surligné en bleu), c'est la ligne précedente qui s'efface. pourrait tu aussi faire que dans le message de confirmation le nom de la ville apparaise.

merci encore

A+

 

[Bebere]

Re : problème avec USERFORM multi fenêtre

bonjour cj Welch,Skoobi
commentaires dans feuille données
à bientôt

http://cjoint.com/?jBljbFjaP3

à bientôt

 

[cj welch]

Re : problème avec USERFORM multi fenêtre

salut bebere, salut skoobi,

bebere, les modifications que tu as opéré fonctionne bien, seulement quand on rentre le 1 en colonne S et qu'en suite on le remplace par le chiffre 0 , la colonne T reste rempli Auparavant, les cellules de la colonne T se vidaient.
pourrait tu intervenir pour que les cellules de la colonne T se vide avec le 0 ou cellule vide.
Après cette modif, l'user sera enfin fini et opérationnelle.

merci de ton aide

 

[ledzepfred]

Re : problème avec USERFORM multi fenêtre

salut cj welch et le forum,

j'ai pu finalement zieuté ton fichier, remplace la Private Sub worksheet_change dans la feuille commande par ce code-ci :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Or Target.Column <> 19 Then Exit Sub
If Target.Row > 8 And Target.Column = 19 Then
ActiveSheet.Unprotect
If Target = "" Or Target = 0 Then
Target.Offset(0, 1).Value = ""
Else
With UserForm2
.TextBox1.Value = Target.Row
.TextBox2.Value = Target.Value
.OptionButton1 = True 'valider
.Show
End With
End If
ActiveSheet.Protect
End If
End Sub
La celleule T adjacente à la cellule S se vide lorsqu'on y tape 0 ou qu'on la vide.

chez moi j'avais un bug lors de la saisie de la valeur 0 (problème de protection) j'ai donc ajouter une déprotection - reprotection dans le code

J'aurais bien voulu te mettre le fichier en copie mais l'ordi sur lequel je travaille n'est pas le mien et winzip n'y est pas installé!!!!

A+