Ecrire dans la source
Bonjour à vous tous,
J'aimerais pouvoir conserver une source de 20 lignes. Lorsque je supprime un usager, seul l'information (numéro colonne D) demeure et ne se supprime pas.
Est-ce possible ? Je joint le fichier. MP CES
Edit modo : fichier supprimé, le code VBA est protégé et non accessible
Merci pour votre aide
Bonjour
En sélectionnant la ligne et en supprimant celle ci (Ctrl -) toute la ligne est supprimée. Par contre tu n'as plus les 20 lignes qui s'affichent mais 19...
Cordialement
FINDRH
Bonsoir FINDRH,
Ma source étant verrouillée, il m'est impossible de supprimer la ligne. Je dois conserver 20 numéros fixes dans la source (colonne D).
Je dois modifier le code qui me sert à écrire dans la source ou bien celui utilisé pour supprimer ?
Merci !
Bonsoir anniem
Le mot de passe d'accès au VBA n'est pas "CES", j'ai donc supprimé le fichier
Merci d'éditer votre post et d'en mettre un non protégé SVP
A+
Bonsoir BrunoM45,
Pardonnez mon manque d'organisation. Je n'y ai pas songé.
Je joint mon fichier test sans mot de passe. Je n'ai pu éditer mon premier post. Je ne vois pas l'option afin de pouvoir écrire de nouveau dans celui-ci.
Encore une fois, un grand merci pour votre aide dans les formules, codes et pistes de réflexions.
Merci à tous pour votre indulgence, je suis en apprentissage.
Bonne soirée !
Qui peut fermer la demande j'ai résolue le problème.
Merci !
Bonsoir anniem,
Est-ce que vous pourriez expliquer comment vous l'avez résolu SVP
Cela aidera celui qui comme vous peut chercher
A+
Absolument,
J'ai supprimé le Unload Me à la suite de l'inscription de mes textbox et après le MsgBox voici le code original utilisé :
'Inscrire dans la source
Private Sub Boutoninscrire2_Click()
Dim Rcell As Range
Dim NbLig As Integer
Dim Ligne As Integer
Dim DerLigne As Integer
Dim i As Integer
DerLigne = Sheets("Inscriptions").Range("D" & Rows.Count).End(xlUp).Row + 1
Ligne = 0
With Sheets("Inscriptions")
.Activate
If Application.WorksheetFunction.CountA(Range("E7:E26")) = 20 Then
MsgBox "Tableau complet", vbOKOnly + vbInformation, "COMFIRMATION"
Unload Me
ElseIf Bassins = "" Or ChoixRLS = "" Or NUM = "" Or nomprenom = "" Or choixlangue = "" Or _
TextBox12 = "" Or datenaissance = "" Or typedemande = "" Or IntPivot = "" Or _
profilintervention = "" Or oemcdate = "" Then
MsgBox ("Tous les champs obligatoire ne sont pas correctement remplis"), vbExclamation, ""
Else ' <>
If MsgBox("Voulez-vous vraiment inscrire se usager ?", vbQuestion + vbYesNo, "") = vbYes Then
Application.ScreenUpdating = False
.Unprotect Password:="CES"
With .ListObjects("Tableau12")
If WorksheetFunction.CountA(Range("Tableau12['#]")) = 0 Then
Ligne = 7
ElseIf WorksheetFunction.CountA(Range("Tableau12['#]")) > 0 Then
For i = 7 To DerLigne
If Range("B" & i).Value = "" Or Range("C" & i).Value = "" Or Range("E" & i).Value = "" Then
Ligne = Range("E" & i).Row
i = DerLigne
End If
Next i
End If
End With
.Cells(Ligne, 2).Value = Bassins.Value
.Cells(Ligne, 3) = ChoixRLS
If Cells(Ligne, 4) = "" Then: .Cells(Ligne, 4) = NUM
.Cells(Ligne, 5) = nomprenom
.Cells(Ligne, 6) = choixlangue
.Cells(Ligne, 7) = TextBox12
.Cells(Ligne, 8) = datenaissance
.Cells(Ligne, 9) = typedemande
.Cells(Ligne, 10) = IntPivot
.Cells(Ligne, 11) = profilintervention
.Cells(Ligne, 12) = profilisosmaf
.Cells(Ligne, 13) = Format(Me.oemcdate.Value, "YYYY/MM/DD")
.Protect Password:="CES"
MsgBox "Les informations ont été ajoutés à la base de donnée", vbOKOnly + vbInformation, "COMFIRMATION"
Unload Me
Application.ScreenUpdating = True
End If
End If
End With
End Sub