Modification et suppression d'un enregistrement
Bonsoir à toutes et à tous.
J’aurais besoin d’un petit peu d’aide svp.
Je souhaiterais MODIFIER et EFFACER un enregistrement.... et là, je n’y arrive plus !
Avec tous mes remerciements.
INITIALISATION DE MON USERFORM
Private Sub UserForm_Initialize()
Set f = Sheets("TEST")
Set Rng = f.Range("A2:AL" & f.[A65000].End(xlUp).Row)
TblTmp = Rng.Value
Ncol = Rng.Columns.Count
For i = LBound(TblTmp) To UBound(TblTmp)
ReDim Preserve choix(1 To i)
For k = LBound(TblTmp) To UBound(TblTmp, 2)
choix(i) = choix(i) & TblTmp(i, k) & " * "
Next k
Next i
Me.ListBox1.List = Rng.Value
End Sub
RECHERCHE DANS MA LISTBOX
- Ma LISTBOX affiche toutes les données de mon fichier EXCEL.
- Je fais une RECHERCHE à partir d’un TEXTBOX pour sélectionner un enregistrement dans ma LISTBOX.
Private Sub TextBoxRech_Change()
If Me.TextBoxRech <> "" Then
mots = Split(Trim(Me.TextBoxRech), " ")
Tbl = choix
For i = LBound(mots) To UBound(mots)
Tbl = Filter(Tbl, mots(i), True, vbTextCompare)
Next i
n = 0: Dim b()
For i = LBound(Tbl) To UBound(Tbl)
a = Split(Tbl(i), "*")
n = n + 1: ReDim Preserve b(1 To Ncol, 1 To n)
For k = 1 To Ncol
b(k, i + 1) = a(k - 1)
Next k
Next i
If n > 0 Then
ReDim Preserve b(1 To Ncol, 1 To n + 1)
Me.ListBox1.List = Application.Transpose(b)
Me.ListBox1.RemoveItem n
End If
Else
UserForm_Initialize
End If
End Sub
Private Sub ListBox1_Click()
'For k = 1 To Ncol
'Me("textBox" & k) = Me.ListBox1.Column(k - 1)
'Next k
'Me.MultiPage2.Value = 2
J’aimerais pouvoir :
- CREER un NOUVEL enregistrement.
- MODIFIER un enregistrement.
- EFFACER un enregistrement.
Pour la CREATION, j’utilise ce code... et ça fonctionne plutôt bien.
Sub RAZ()
For k = 1 To Ncol
Me("textBox" & k) = ""
Next k
'Me.TextBox1.SetFocus
End Sub
Private Sub b_ajout_Click()
Me.MultiPage2.Value = 2
RAZ
Me.Enreg = f.[A65000].End(xlUp).Row + 1
End Sub
Et valide celle-ci avec le code ci-dessous :
Private Sub B_valid_Click() 'Bouton VALIDATION
If Me.Enreg <> "" And Me.TextBox1 <> "" Then
NoEnreg = Me.Enreg
For k = 1 To Ncol
f.Cells(NoEnreg, k) = Me("textBox" & k)
Next k
RAZ
Me.Enreg = ""
UserForm_Initialize
End If
End Sub
Comment puis-je MODIFIER et EFFACER un enregistrement ? Quels codes utiliser ?
Un très très grand merci pour votre aide.
Bonsoir,
Si tu mettais ton code entre balises Code, cela le rendrait un peu plus lisible...
S'il est correctement indenté, je le lirai peut-être à mon prochain passage... A cette heure-ci hors de question de lire du code écrit sans aucun soin.
Cordialement.
Merci beaucoup de vous être arrêté sur ma question.
Cependant, je ne comprends pas votre demande.
Je suis une débutante en la matière... mais suis preneuse pour faire mieux.
Je vais tenter de joindre mon fichier, cela sera certainement plus parlant.
Encore tous mes remerciements pour votre aide.
Excellente journée.
Bonjour.
Ci-joint mon fichier.
Mon problème : Comment MODIFIER et SUPPRIMER un enregistrement ? Je n'y arrive pas.
Encore tous mes remerciements.
Mon autre petit soucis.... si je peux....
J'ai des TEXTBOX, COMBOBOX et CHECKBOX..... et, du coup, j'ai une erreur sur le code ci-dessous car je ne fais référence qu'à des TEXTBOX (voir sur mon fichier). Comment puis-je faire ?
For k = 1 To Ncol
Me("textBox" & k) = Me.ListBox1.Column(k - 1)
Next k
UN SUPER SUPER GRAND MERCI.
Ne pas confondre List et Column !
(Voir la définition de chacune de ces propriétés de ListBox dans l'Aide pour en apprécier les différences et distinctions à opérer lors de l'utilisation, et comment chacune doit être utilisée.
Cependant, je ne comprends pas votre demande.
Dans la fenêtre de rédaction de ton post, tu disposes d'une série de boutons, dont un indiquant Code !
Lorsque tu cites du code, tu le sélectionnes et tu cliques sur ce bouton, cela met ta sélection entre deux balises "[ code=vb ]" et "[ /code ]",
et tu en verras l'effet en validant ton post.
Pour le reste, si tu ne comprends pas déjà "indentation" qui représente la façon d'écrire proprement du code pour qu'il soit lisible le plus rapidement possible, qu'est-ce que cela va être quand je te dirai ensuite que tes déclarations de variables sont incertaines et quelque peu défectueuses, etc. !
Très bien de vouloir intervenir sur son code pour le compléter ou l'améliorer... Cela suppose que l'on se mette en mesure de comprendre chacune des lignes du code existant, ce qu'elle fait ou ce qui se passe lors de son exécution, à partir de là il devient vite plus aisé de détecter l'élément à modifier pour obtenir un autre résultat, puis de proche en proche comment faire varier un résultat ou comment faire l'inverse, etc. L'horizon s'élargit !
Cordialement.
Re bonjour.
Ma compréhension se fait petit à petit grâce à vous entre autres... je pense qu'il va cependant falloir que je suive des cours en VBA.
Avec le fichier joint, est-ce que cela est mieux pour vous ?
Pouvez-vous m'aider ?
Merci beaucoup.
Bonsoir.
Personne ne peut m'aider ?
Excellente soirée.