Lien listbox textbox feuille

skoobi

XLDnaute Barbatruc

• 11 Juin 2008

• #2

Re : Lien listbox textbox feuille

Bonjour,

je te propose ce code:

Code:

Private Sub CommandButton1_Click()
Dim j As Byte
[B][COLOR=red]With Sheets("enregistrement")[/COLOR][/B]
Sheets("enregistrement").Select
For j = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(j) Then Cells(j + 4, 10) = comentbyref.TextBox1.Text
Next j
[B][COLOR=red]End With[/COLOR][/B]
End Sub

En rouge ce qui peut être supprimer car inutile ici.

 

Vote positif 0 Vote négatif

A

akibodo

Guest

• 11 Juin 2008

• #3

Re : Lien listbox textbox feuille

Re skoobi, le forum,

Merci pour cette réponse, elle fonctionne parfaitement.

Juste une dernière petite question :

Si je veux tester pour voir si il y a déjà un commentaire enregistrer ou pas et pouvoir effectuer différentes actions suivant le cas , où dois-je insérer la condition et comment ?

A vous lire, merci d'avance.

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 11 Juin 2008

• #4

Re : Lien listbox textbox feuille

Re,

quelque chose comme ça par exemple:

Code:

Private Sub CommandButton1_Click()
  Dim j As Byte
  With Sheets("enregistrement")
    Sheets("enregistrement").Select
    For j = 0 To ListBox1.ListCount - 1
      If ListBox1.Selected(j) Then
        If Cells(j + 4, 10).Value = "" Then  'si la cellule est vide
          Cells(j + 4, 10).Value = comentbyref.TextBox1.Text
        Else
          'ici le code si la cellule contient déjà quelque chose
        End If
      End If
    Next j
  End With
End Sub
Cells(j + 4, 10).Value = comentbyref.TextBox1.Text

 

Vote positif 0 Vote négatif

A

akibodo

Guest

• 11 Juin 2008

• #5

Re : Lien listbox textbox feuille

Re skoobi, le forum,

Oui skoobi quelque chose dans ce sens là.
En faite je suis parti sur l'idée de proposer 3 choix si il y a déjà un commentaire soit :

- remplacer
- ajouter
- annuler

J'ai réussi en ajoutant un Userform à faire ces 3 fonctions, seul hic ça marche correctement seulement pour la 1ère ligne.

Je me demande si en passant un argument à une fonction sub celà pourrais fonctionner ?

D'après se que je comprend il me faut récupérer la valeur de "j".

Je continu à chercher et met le fichier que j'ai avancé (ce que j'ai réussi à faire quoi 🙂 ).

Merci d'avance pour les idées.

 

Pièces jointes

• Feuille Excel .zip

  20.5 KB · Affichages: 47
• Feuille Excel .zip

  20.5 KB · Affichages: 47
• Feuille Excel .zip

  20.5 KB · Affichages: 49

Vote positif 0 Vote négatif

A

akibodo

Guest

• 12 Juin 2008

• #6

Re : Lien listbox textbox feuille

Re skoobi, le forum,

Finalement j'ai trouver une solution de départ qui me permet de contourner mon 1er souci.

En faite je reste sur le même Userform et fais apparaitre ou disparaitre les bouton ce qui m'évite pas mal de tracas ^^

Mais il me reste le soucis de la gestion de la boucle.

A voir ...

Merci pour les propositions, fichier joint.

Edit : en faite ça marche très bien si je laisse la listbox en mode non multiligne.

 

Pièces jointes

• Feuill Excel.zip

  18.8 KB · Affichages: 47

Dernière modification par un modérateur: 13 Juin 2008

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 13 Juin 2008

• #7

Re : Lien listbox textbox feuille

Bonjour,

Je vois que tu as enlever la multi sélection pour la listbox.
Dans ce cas, la boucle ne sert plus à rien.
J'ai modifié le code en ce sens.
De plus, j'ai déplacé
Dim j As Byte
"au niveau module" (je ne sais pas comment on dis pour un userform 😀) pour que la variable puisse communiquer entre les codes de chaque bouton.

Bon après-midi.

 

Pièces jointes

• Lien listbox textbox feuille.zip

  6.3 KB · Affichages: 34

Vote positif 0 Vote négatif

A

akibodo

Guest

• 13 Juin 2008

• #8

Re : Lien listbox textbox feuille

Re skoobi , le forum,

A mon avis tu t'est trompé de fichier skoobi 😀

Sinon oui j'ai enlever le mode multi sélection tout simplement parce que je ne trouvé pas de solution.

Le problème que j'avais été de gérer les 3 possibilitées en cas de commentaires déjà existant puis retourner dans la boucle.

Mais si tu as une idées je suis preuneur.

A bientôt et merci.

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 14 Juin 2008

• #9

Re : Lien listbox textbox feuille

Bonjour,

A mon avis tu t'est trompé de fichier skoobi 😀

Cliquez pour agrandir...

M...., j'avais pas les yeux en face des trous😛.

Je te propose d'utiliser le 2eme userform que tu as créés avec les modifications nécessaires (remarque au passage le transfert de la déclaration de la variable "J" vers un module 😉.

Bon test et bon week-end 🙂

 

Pièces jointes

• Lien listbox textbox feuille v2.zip

  6.2 KB · Affichages: 32

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 14 Juin 2008

• #10

Re : Lien listbox textbox feuille

Hello all,

Scoobi, à mon avis, les trous ne sont toujours pas dans l'alignement des neunoeils. Faut pas faire la fête le vendredi soir, ça gâche le week-end... (Hi hi)

Je plaisante bien sûr.... Merci de nous faire la trois avec USF et macros

Bon week-end à toi et à tous.

Jean-Pierre

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 14 Juin 2008

• #11

Re : Lien listbox textbox feuille

Salut Jeanpierre 🙂,

Décidemment!!!, je crois que je vais arrêter là pour aujourd'hui....
Mon PC me joue des tours..., tu en sait quelque chose hein Jeanpierre😉😛.

Voici la v3.

Bon week-end.

 

Pièces jointes

• Lien listbox textbox feuille v3.zip

  14 KB · Affichages: 55

Vote positif 0 Vote négatif

A

akibodo

Guest

• 15 Juin 2008

• #12

Re : Lien listbox textbox feuille

Re skoobi, jeanpierre, le forum,

Je viens juste de voir les dernier messages, 🙂

Je vais étudier le code, en tout cas ça marche nickel à première vue.

Merci pour cette aide.

Et bon repos 😉

 

Vote positif 0 Vote négatif