[VBA E] Problème de lien entre textbox et cellule

Version imprimable

19/06/2006, 16h46
vanessaferraz

[VBA E] Problème de lien entre textbox et cellule

Bonjour a tous,

Je viens de débuter dans la programmation excel avec VBA pour créer une application au travail mais je rencontre quelques petits problèmes.

J'ai crée une UserForm pour la consultation de la liste de mes fournisseurs, celle ci étant rattachée à un fichier excel.
Sur cette UserForm j'ai mis un bouton supprimer, et je voudrais que lorque l'on clique dessus ils disparaisse dans ma UserForm mais aussi dans mon fichier excel et qu'il ne reste pas de ligne blanche.

Quelqu'un pourrait-il me donner le code ?

Je vous remercie de votre aide qui me sera très précieuse.

Au revoir
19/06/2006, 17h04
zebulon2212

Je viens juste glisser ce pti conseil avant qu'un modérateur le fasse dans les formes...:D
regarde dans la FAQ tu n'es pas la premiere a avoir ce type de probleme.
On ne donne pas ici un code tout cuit, nous sommes bénévoles et acceptons de t'aider sur un probleme précis et non résolu.
20/06/2006, 08h46
vanessaferraz

Bonjour,
Merci pour ce petit conseil, mais ce n'est pas la simplicité que je recherchais en me connectant sur ce forum, j'ai un problème que je n'arrive pas à résoudre je fais cette programmation pour mon boulot et j'ai passée deux journées entière sur ce problème, peut être suis-je passée à coté de la solution, mais je n'ai jamais fait de programmation et j'ai encore un peu de mal.
20/06/2006, 08h53
Ania

Pour ma part j'ai fait quelque chose qui y ressemble

1) tu copie le tableau de la feuille excel en mémoire (c'est à dire que tu le met dans un tableau de ton logiciel)

2)tu fais ton traitement ( ajout suppression de varaible)

3) tu copie ton tableau sur la feuille Excel

Si tu as besoin n'hesites pas

bon courage :D
20/06/2006, 09h41
vanessaferraz

Merci beaucoup pour ta réponse, mais mon problème se situe vraiment au niveau de l'écriture du conde,car c'est dans se domaine ou j'ai encore du mal à acquérir la logique.
Je sais comment écrire le code pour supprimer la ligne mais pas pour faire la relation entre un textbox et une ligne du classeur excel.
Peux tu m'aider sur ce point

Je te remercie
20/06/2006, 10h10
Ania

Alors je vais avoir d'un peu plus de précision comment est ta form.
Juste une textbox et un bouton supprimer.

Non, je pense qu'il y a autre chose

comment selectionne tu le fournisseur (à partir d'une listbox peut etre)
et tu souhaites qu'une fois sélectionné dans cette liste, et que le bouton supprimer est pressé

le fournisseur soit supprimer de la listbox (par exemple) et aussi du classeur.
20/06/2006, 15h12
vanessaferraz

C'est exactement sa, excuse si je n'ai pas été très clair.
Peux tu m'aider ?
Merci

Autre question peux avoir plusieurs éléments sélectionnés ou n'y en a t il qu'un seul à la fois ?

Si oui voici 2 fonction qui pourront t'aider : la première recherche le nombre d'éléments sélectionnés la seconde permet de supprimer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function RechercheSelection(NomElement() As String, NbElementsSelectionnes As Integer)
  With lbZones
    For i = 0 To .ListCount - 1
      If .Selected(i) = True Then
        NbElementsSelectionnes = NbElementsSelectionnes + 1
      End If
    Next i
 
    If NbElementsSelectionnes <> 0 Then
      ReDim NomElement(0 To NbElementsSelectionnes - 1)
      j = 0
      For i = 0 To .ListCount - 1
        If .Selected(i) = True Then
          NomElement(j) = .List(i)
          j = j + 1
        End If
      Next i
    End If
 
  End With
End Function

Désolé c'est en 2 parties mais j'ai eu un p'tit bug

La seconde pemet de supprimer les lignes dans la liste de la form et dans la feuille du classeur.
Elle recherche le(s) nom(s) sélectionnées de la liste dans les cellules A1:A500
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub cmbSupprimer_Click() dim CelluleASupprimer as Range, NomElement() As String, NbElementsSelectionnes As Integer Call RechercheSelection(NomElement(), NbElementsSelectionnes) If NbElementsSelectionnes <> 0 Then For i = 0 To Maliste.listCount If Maliste.Selected(i) = True Then Maliste.RemoveItem(i) Set CelluleASupprimer = Range(A1:A500).Find(List(i)) CelluleASupprimer.entireRow.Delete end If next i end if
Bon courage :D

Je te remercie de ton aide très précieuse, je buche sur ce petit problème depuis au moins quatres jours,j'en ai bavé.
J'ai réussi à écrire du code on dirait que se fonctionne , qu'en pense tu ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub cmdSupprimer_Click()
Dim rep As Byte
rep = MsgBox("Etes-vous sûr de vouloir supprimer ce fournisseur ?", vbYesNo + vbQuestion, "Supprimer le fournisseur ?")
If rep = vbNo Then
Me.Hide
End If
If rep = vbYes Then
Feuil2.Activate
LigneSel = cboNom.ListIndex + 2
Feuil2.Range("A" & LigneSel).Select
ActiveCell.EntireRow.Select
Selection.Delete
cboNom = Clear
txtActivité = Clear
txtAdresse = Clear
txtCodePostal = Clear
txtVille = Clear
txtTéléphone = Clear
txtFax = Clear
txtNomContact = Clear
txtPrenomContact = Clear
txtFonction = Clear
txtTéléphoneContact = Clear
txtFaxContact = Clear
txtEmail = Clear
chkRéférencé = Clear
End If
End Sub

20/06/2006, 16h43
Ania

Personnellement quand je crée une fonction je garde toujours un peu de délai avant de la données aux autres. On va dire que je passe par une phase d'essai si je n'ai aucun problème, je la transmet à mes collègues sinon je la modifie.
Je n'arrive pas a voir comme ca si un code va fonctionner ou non.

par contre lorsque tu écris du code sur le forum utilise les balises code (le bouton # en haut de la fenetre d'edition)
pour l'utiliser il te suffit de sélectionner ton code et de cliquer sur cette touche

Voili voilou

PS. desolé de ne pouvoir t'aider plus quant au fonctionnement de ton code :oops:
21/06/2006, 08h49
vanessaferraz

Bonjour

Et merci pour ton aide précieuse