gestion mots de passe [Résolu ]

JCGL

XLDnaute Barbatruc

• 27 Janvier 2013

• #2

Re : gestion mots de passe

Bonjour à tous,

Merci de déposer ton fichier sur XLD en lieu et place de CJoint (Mode Avancé et le trombone pour joindre un fichier).
Ton message ne voudra plus rien dire si CJoint n'est plus opérationnel comme nous l'avons vécu avec CiJoint.

A + à tous

 

Vote positif 0 Vote négatif

surplus

XLDnaute Occasionnel

• 27 Janvier 2013

• #3

Re : gestion mots de passe

bonjour
le fichier dépasse la taille pourtant il n y a qu'un petit userform et 2 feuilles c'est pour ça

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 27 Janvier 2013

• #4

Re : gestion mots de passe

Bonjour à tous,

Le fichier que tu as déposé sur Cjoint "pèse" 37.6 Ko...
Je ne comprend pas pourquoi tu écris qu'il dépasse la taille autorisée.

A + à tous

 

Pièces jointes

• 3ABaTupJl1x_pass.xlsm

  37.6 KB · Affichages: 61

Vote positif 0 Vote négatif

surplus

XLDnaute Occasionnel

• 27 Janvier 2013

• #5

Re : gestion mots de passe

bonjour
oui tu as raison j'ai du me tromper de fichier sur le coup

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Janvier 2013

• #6

Re : gestion mots de passe

Bonjour surplus

Salut ami JC

A tester:

Code:

Private Sub CommandButton2_Click()
Dim c As Range
    flg_enr_ret = True
    With Sheets("P")
        '--- Transfert Formulaire dans P
        'TextBox2.Value = .Range("L" & papass & "").Value
        'TextBox3.Value = .Range("M" & papass & "").Value
     Set c = .Columns("K").Find(Me.ComboBox1)
     If Not c Is Nothing Then
       .Range("L" & c.Row) = TextBox2.Value
       .Range("M" & c.Row) = TextBox3.Value
     End If
    End With
    MsgBox "Mot de passe changé"
    Me.ComboBox1 = ""
    Me.TextBox3 = ""
    Me.TextBox2 = ""
    flg_enr_ret = False
End Sub

 

Vote positif 0 Vote négatif

surplus

XLDnaute Occasionnel

• 27 Janvier 2013

• #7

Re : gestion mots de passe

bonjour
merci ça marche impec
a bientot

 

Vote positif 0 Vote négatif