Discussion :

[vanessaferraz]

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

[zebulon2212]

Je viens juste glisser ce pti conseil avant qu'un modérateur le fasse dans les formes...
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.

[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.

[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

[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

[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.

[vanessaferraz]

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

[Ania]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Ania]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vanessaferraz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[vanessaferraz]

Bonjour

Et merci pour ton aide précieuse