Microsoft 365 Code VBA pour retrouver des données en fonction d'un mot inscrit

fanfan38

XLDnaute Barbatruc

• 12 Décembre 2019

• #2

Bonjour,
Ci joint ma solution
A+ François

 

Pièces jointes

• Liaison GSM - test.xlsm

  22 KB · Affichages: 9

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 12 Décembre 2019

• #3

Un tout grand merci fafan

 

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 12 Décembre 2019

• #4

Bonjour,
le code fonctionne bien par contre quand j'ai voulu protéger la feuille afin, qu'on ne puisse pas modifier certaines cellules le bouton le bouton liaison n° de GSM ne fonctionne plus
J'ai meme placer ce code dans ThisWorkbook mais rien ni fait

VB:

Private Sub Workbook_Open()
    With Feuil1
        .Protect , UserInterfaceOnly:=True
    End With
End Sub

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 13 Décembre 2019

• #5

Bonjour,
il faut ajouter
ActiveSheet.Unprotect 'Suivi du mot de passe entre parenthèse si nécessaire
au début de la macro Private Sub CommandButton1_Click()
et
ActiveSheet.protect
à la fin de cette macro
Suivi du mot de passe entre parenthèse si nécessaire
A+ François

 

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 14 Décembre 2019

• #6

Merci

 

Vote positif 0 Vote négatif