Vba

[Marion59]

Bonjour

Je suis débutante sur VBA et je suis face à un problème.

En fait je voudrai récupérer des valeurs dans une feuille et à partir d'une inputbox pouvoir cliquer sur la ligne qui m’intéresse et y rajouter une valeur.


J'ai réussi à faire un code mais le soucis c'est que quand je clique sur OK ou annuler ça ne marche pas...

Pourriez vous m'aider?

Merci beaucoup.

Marion



Private Sub lb_Click()
ms = InputBox("Enregistrement " & lb.List(, 0) _
& vbLf & " " & lb.List(, 1), "result1")
Range("K" & lb.ListIndex + 2) = ms

End Sub


Sub UserForm_Initialize()
lb.RowSource = _
Range("a2").Address & ":" & _
Worksheets("feuil1").Range("k" & Range("a2").End(xlDown).Row).Address

End Sub

 

[Dull]

Re : Vba

Re le fil

...
Par contre est ce que tu sais d'où vient ce message d'erreur " Mémoire insuffisante pour afficher en entier"
...

Sans fichier joint ...difficile de te répondre

Bonne Journée

 

[Marion59]

Re : Vba

Voilà le fichier !

Par contre pourrais tu m'aider, en fait sur ma userform2 j'ai créé un bouton "Accès au responsable qualité" lorsque la personne clique sur ce bouton j'aimerai que la feuille "personnel" s'affiche.

Comment faut-il procéder ? Par contre lorsqu'on clique sur les 2 autres boutons je souhaiterai que ça reste comme ça apparaît actuellement dans mon fichier, c'est à dire que le fichier excel n'apparaisse pas.


D'avance merci pour ton aide !

 

[Papou-net]

Re : Vba

Re Marion,

Ne connaissant pas les mots de passe, il est impossible d'accéder à ton fichier.

Mais tu peux essayer de mettre cette ligne dans le module de code de ton bouton :

Sheets("personnel").Visible = True

A plus.

Cordialement.

 

[Marion59]

Re : Vba

Ca ne marche pas non plus...

Voilà le fichier avec les MDP

Est ce que l'un d'entre vous pourrez m'aider ?

Merci beaucoup

Bonnes fêtes de fin d'année

Marion