Bonjour à tous,
cela fait un moment que je n'étais pas passé sur le forum et cela fait plaisir de voir que la communauté est toujours autant active.
J'en viens maintenant à mon problème.
Nous sommes passé récemment à Office 2010 au travail et je découvre les joies des petits problèmes de compatibilité de mes macros que je n'avais pas sous 2003/2007.
Le problème est simple a décrire, j'ai une macro (code plus bas), un bouton associé à cette macro et lorsque je "protège et partage le classeur" en question, le bouton n'est plus actif, impossible de cliquer dessus.
Je n'ai pas réussi à trouver des éléments de réponse sur le forum et sur Internet donc j'ai besoin d'avis de personnes plus expérimenté.
Code de la macro associé au bouton si besoin :
Si vous avez besoin d'élément supplémentaire pour m'aider, n'hésitez pas à me demander.
Merci par avance pour votre aide.
cela fait un moment que je n'étais pas passé sur le forum et cela fait plaisir de voir que la communauté est toujours autant active.
J'en viens maintenant à mon problème.
Nous sommes passé récemment à Office 2010 au travail et je découvre les joies des petits problèmes de compatibilité de mes macros que je n'avais pas sous 2003/2007.
Le problème est simple a décrire, j'ai une macro (code plus bas), un bouton associé à cette macro et lorsque je "protège et partage le classeur" en question, le bouton n'est plus actif, impossible de cliquer dessus.
Je n'ai pas réussi à trouver des éléments de réponse sur le forum et sur Internet donc j'ai besoin d'avis de personnes plus expérimenté.
Code de la macro associé au bouton si besoin :
Code:
Private Sub passwordchange_Click()
Dim cel As Range
If Range("C4") = "" Then
MsgBox "Merci de renseigner une référence", vbExclamation, "Alerte"
Exit Sub
End If
With ActiveSheet.Columns(1)
Set c = .Find(Range("C4").Value, , xlValues, xlWhole, , , False)
If Not c Is Nothing Then
p = c.Address
Do
c.Offset(0, 1).Value = Range("E4").Value
Set c = .FindNext(c)
Loop While c.Address <> p
End If
End With
Range("B4").Select
ActiveWorkbook.Save
Range("B4").Select
End Sub
Si vous avez besoin d'élément supplémentaire pour m'aider, n'hésitez pas à me demander.
Merci par avance pour votre aide.