protection macro + fonction range

[brunette qui perd la tete]

😱

bonjour les garcons,

j'ai un petit souci depuis deux jours sur vba.

quand je protège ma feuille et que je décoche la protection sur le bouton qui active m'a macro, voici l'erreur qui s'inscrit dans mon programme quand je clique sur le bouton

Private Sub UserForm_Activate()

Range('F14:G14').Activate

' Effacement des données de la plage qui reçoit les items sélectionnés (colonnes D et E)

:evil: Range('F14:G14', Cells(ComboBox1.ListCount, 4)).Clear

End Sub


l'erreur est du à la fonction range apparemment mais je ne sais pas comment faire

prouvez moi que vous les garçons êtes plus fort que nous les filles

bien amicalement

Lise

 

[ChTi160]

Salut brunette

si je comprends bien tu veux a l'initialisation de ton userform qu'une plage tu me diras la quelle doit être éffacée


Si tu veux que la plage qui recoit les différentes sélections que tu fais à partir de ton combox, soit effacé
par exemple les données sont dans les colonnes D et E
tu recherches la dernière ligne occupée de la colonne D
Derligne=Range('D65536').End(xlUp).row
ensuite tes données commencent à la ligne 2 de la colonne D
donc la plage à effacée sera
Range('D2:E' & derligne).ClearContents

je n'ai pas compris ce que fais Range('F14:G14').Activate

mais ton code pourrait être
Private Sub UserForm_Activate()
Dim DerLigne as Integer
Derligne=Range('D65536').End(xlUp).row
' Effacement des données de la plage qui reçoit les items sélectionnés (colonnes D et E)

Range('D2:E'&Derligne).ClearContents

End Sub
tiens nous au courant

Ps tu sais ici il y a des Filles Balaises dans tout les domaines d'excel et Vba et l'une d'elle réglera peut être ton Problème Lol

Message édité par: ChTi160, à: 16/06/2005 13:46

 

[brunette qui perd la tete]

😱

voila je pense que le problème sera plus clair si je vous l'expose sous les yeux.

le futur utilisateur ne devra avoir accès qu'au case blanche, les autres seront protégées

seulement si vous voyez en cliquant la macro ne s'active pas ou mal et si vous déboguez.

vous verrez que le problème intervient dans le programme

merci à celui qui pourra me sauver la mise et à toi ChTi160



🙂

lise

 

[brunette qui perd la tete]

tentative de greffer mon fichier

 

[porcinet82]

salut Lise,

pour joindre ton fichier, il doit etre zippé, -50ko, sans accent ni espace, et n'oublie pas de cliquer sur [fichier] apres le parcourir

@+

 

[brunette qui perd la tete]

 

[je perd la tete]

[file name=enfin.zip size=14998]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/enfin.zip[/file]

 

[brunette qui perd la tete]

j'ai l'impression d'etre doué car j'ai enfin réussi à greffer mon fichier c'est dire le niveau (il faisait 56 ko avant et 18 maintenant c'est pour ca)

sinon vous verrez que la feuiile est protéger (c'est mon ultime but)mais l'accès à la macro n'est pas possible

pourquoi ????????????????

 

[ChTi160]

on va avoir des cheveux blanc

alors en pièce jointe je joue avec les Unprotect et Protect
tu regardes et tu nous dit
je n'ai pas regardé s'il y a possiblité d'autoriser l'utilisation du Userform sur une feuille Protégée


Message édité par: Chti160, à: 16/06/2005 15:39

oupsss je repost

Message édité par: Chti160, à: 16/06/2005 15:40

 

[cheveux blanc sur tete perdue]

ba ou qu elle est ta piece jointe

 

[ChTi160]

Bah des espaces dans le titre
donc j'ai simplifié lol
Excuse [file name=versionV1.zip size=13629]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/versionV1.zip[/file]

Message édité par: Chti160, à: 16/06/2005 15:44

 

[brunette]

merci beaucoup ChTi160

tu es mon héros

peut etre aurais je besoin de toi ultérieurement

en tout cas tu es bien efficace merci encore

lise

 

[PascalXLD]

Bonjour

Il y a peut-être aussi la possiblité de protéger avec le userinterfaceonly

Voi le fil ci-dessous

Lien supprimé

Bon courage

 

[PascalXLD]

Re

Voilà la version de jean-marie avec dans le thisworkbook_open le protect userinterfaceonly

Cela evite de jouer avec les protect et unprotect

Sinon j'ai gardé le même fichier

Bon courage [file name=versionV1_20050616162540.zip size=14274]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/versionV1_20050616162540.zip[/file]

 

[brunette]

merci les gar c'est la fin de journée pour moi mais

on se reverra et peut que c'est moi qui vous dépannerait la prochaine fois

😉