Cmd protégé par mot de passe

[BBRT14]

Bonjour l'équipe,
voila j'ai un bouton de commande protégé par un mot de passe. sous 2007 pas de problème cela fonctionne bien mais sous 2003 j'ai une erreur bibliothèque
donc je suis allez dans mon VBA => outil => référence et là bizarre impossible d'avoir accès à référence celui ci reste grisé.
car il me semble qu'il faut activer microsoft internet control
ci joint exemple

merci d'avance
et bonne journée

 

[BBRT14]

Re : Cmd protégé par mot de passe

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

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

 

[Evelynetfrancois]

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

 

[BBRT14]

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 😉

 

[BBRT14]

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

 

[BBRT14]

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