Cmd protégé par mot de passe

Re : Cmd protégé par mot de passe

Evelynetfrancois à dit:

re peut etre comme ça

Private Sub SupprimerEnregistrement()
Dim Paramétres_N°_ligne As Byte
Dim nb_enregistrements_bd As Byte
If [Paramétres_N°_ligne] = "0" Then Exit Sub
MsgBox "Vous allez supprimer la 'Référence Conditionnée de la Base V033", vbCritical + vbYesNo + 255, "V033 2012"
If vbYes Then
Sheets("BD").Rows([Paramétres_N°_ligne] + 1).Delete Shift:=xlUp
If [nb_enregistrements_bd] < [Paramétres_N°_ligne] Then [Paramétres_N°_ligne] = [Paramétres_N°_ligne] - 1
End If
End Sub


E et F

Cliquez pour agrandir...

Re, bon on avance ;-)
j'ai un peu re modifié le code il m'a fallu supprimer 'Exit Sub

Private Sub SupprimerEnregistrement()
Dim Paramétres_N°_ligne As Byte
Dim nb_enregistrements_bd As Byte
If [Paramétres_N°_ligne] = 0 Then
'Exit Sub
MsgBox "Vous allez supprimer la 'Référence Conditionnée de la Base V033", vbCritical + vbYesNo + 255, "V033 2012"
If vbYes Then
Sheets("BD").Rows([Paramétres_N°_ligne] + 1).Delete Shift:=xlUp
If [nb_enregistrements_bd] < [Paramétres_N°_ligne] Then [Paramétres_N°_ligne] = [Paramétres_N°_ligne] - 1
End If
End If
End Sub



ça marche, ma ligne est bien supprimer mais le code supprime également les titres de mes colonnes
il ne tient pas compte de ces lignes enfin je pense ?
Sheets("BD").Rows([Paramétres_N°_ligne] + 1).Delete Shift:=xlUp
If [nb_enregistrements_bd] < [Paramétres_N°_ligne] Then [Paramétres_N°_ligne] = [Paramétres_N°_ligne] - 1

une idée du pourquoi ? là je nage grave je ne suis pas un expert
j'ai réinstallé 2003 sur mon pc donc je peux tester sur place
voir pièce jointe & il n'y a plus de MDP

Re : Cmd protégé par mot de passe

a voir comme ça (????)
Sheets("BD").Rows([Paramétres_N°_ligne] + 1).Delete Shift:=xlUp

là tu supprimes les lignes qui t interresses

puis tu mets une condition ???? ( un peu tard me semble t'il non ?)
If [nb_enregistrements_bd] < [Paramétres_N°_ligne] Then [Paramétres_N°_ligne] = [Paramétres_N°_ligne] - 1
End If

je verrais volontier l'inverse
la condition ........puis la suppression eventuelle

If [nb_enregistrements_bd] < [Paramétres_N°_ligne] Then
[Paramétres_N°_ligne] = [Paramétres_N°_ligne] - 1
else
Sheets("BD").Rows([Paramétres_N°_ligne] + 1).Delete Shift:=xlUp
end if
(j ai pas testé)
ce qui donnerais :
Private Sub SupprimerEnregistrement()
Dim Paramétres_N°_ligne As Byte
Dim nb_enregistrements_bd As Byte
If [Paramétres_N°_ligne] = 0 Then
MsgBox "Vous allez supprimer la 'Référence Conditionnée de la Base V033", vbCritical + vbYesNo + 255, "V033 2012"
If vbYes Then
If [nb_enregistrements_bd] < [Paramétres_N°_ligne] Then
[Paramétres_N°_ligne] = [Paramétres_N°_ligne] - 1
Else
Sheets("BD").Rows([Paramétres_N°_ligne] + 1).Delete Shift:=xlUp
End If
End If
End If
End Sub

evelynetfrancois

Re : Cmd protégé par mot de passe

re,
je viens de tester, ça me supprime uniquement les valeurs qui ce trouve dans ma liste de choix
merci de ta patience je vais continuer à chercher je tiens informé mais je galère
bonne après midi 😉

Re : Cmd protégé par mot de passe

Re Evelynetfrancois,

bon j'ai abandonné cette formule, je ne m'en sort pas. maintenant je compte passer par une listbox qui me trouve la ligne à supprimer et via un double clic sur celle ci me supprime la ligne de ma Base, voilà où j'en suis.
voir classeur joint pour voir les modifs
bonne soirée

Re : Cmd protégé par mot de passe

Bonjour à toutes et tous,
Bien voilà, les problèmes rencontrés sont résolus, grâce à vous.
Donc un merci à tous et plus particulièrement à evelynetfrancois qui m'a bien aidé.
Bonne soirée
@++

PS: Mot de asse => cmos