Modifier supprimer userform

[Citaro]

Bonjour au forum

Dans le fichier joint j'ai un userform qui alimente une feuille(Ressource CODD), je souhaiterai pouvoir modifier et supprimer des données après sélection dans un combobox.
Je ne sais pas comment m'y prendre

Bonne journée

 

[thebenoit59]

Re : Modifier supprimer userform

Bonjour Citaro.

Quelques explications seront utiles.
La combobox Recherche correspond à quels éléments des colonnes ?
Quand tu souhaites Supprimer, c'est la ligne complète dans le tableau ?

 

[Citaro]

Re : Modifier supprimer userform

Bonjour

Effectivement je ne l'ai pas précisé, la combobox Recherche correspond à la colonne B "Nom"
Je cherche à charger les texbox et combobox en fonction des lignes de la feuille "Ressources CODD" et en cas de modification les combobox doivent aller chercher les données dans la feuille "Onglet Listes"

 

[jp14]

Re : Modifier supprimer userform

Bonjour

Quand on utilise ce type de code il faut que le nom des controles ne soit pas modifié.

    For i = 1 To 2
        Me.Controls("Textbox" & i) = Ws.Cells(ligne, i)
    Next i

De plus pour simplifier le numéro du controle doit correspondre au numéro de la colonne ce qui permet d'avoir une boucle pour l'écriture et la la modification des données.

Un code très simple pour remplir le combobox1

With Sheets("Ressources CODD")
Set Plg = .Range("a5:b" & .Range("b" & .Rows.Count).End(xlUp).Row)
End With
With ComboBox1
    .Clear
    .List() = Plg.Value
End With

Bonne journée

JP

 

[thebenoit59]

Re : Modifier supprimer userform

Bonjour jp14.

En fichier joint une proposition.

 

[Citaro]

Re : Modifier supprimer userform

Benoît,

Merci pour ton aide, je viens de tester le fichier, tu as repris tout le code...

les fonctions Ajouter et Supprimer sont parfaites
Pour les modifications j’obtiens une erreur d'exécution '1004', avec un arrêt sur la ligne ".Cells(i, j).Value = Donn(j)"


Sub Modif()
Dim i As Integer
Dim j As Integer
Select Case Mode
Case 0
i = d1(Cb01.Text)
Case 1
i = lRess + 1
End Select
With ShRess
For j = 1 To 42
.Cells(i, j).Value = Donn(j)
Next j
End With
Unload Me
End Sub

 

[thebenoit59]

Re : Modifier supprimer userform

Quand tu ajoutes et modifies ou seulement l'un ?

 

[Citaro]

Re : Modifier supprimer userform

Seulement quand je modifie

 

[thebenoit59]

Re : Modifier supprimer userform

Quel c**, une erreur d'inattention
Remplace Mode = 2 Par Mode = 0 dans BT_Modifier_Click.

 

[Citaro]

Re : Modifier supprimer userform

Merci Benoît,

C'était bien cela, je vais tenter de comprendre le code vba, il me parait instructif.

 

[thebenoit59]

Re : Modifier supprimer userform

Un peu le bordel avec les Ctrl, j'ai renommé chacun de tes contrôles de l'UF pour plus de simplicité.

 

[Citaro]

Re : Modifier supprimer userform

Oui je vois cela, c'est vraiment plus simple de cet manière.


Merci encore