Bonjour
J'ai crée pour une association un fichier de gestion des adhérents.
Ce fichier est utilisé par plusieurs personnes, j'ai donc fait une macro pour protéger les formules
Jusqu'à présent cela a parfaitement marché depuis plus de 2 ans mais le dernier retour du fichier que je viens de recevoir montre des désordres en particulier du au fait que la macro n'est plus opérante
Voici la macro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Macro enregistrée le 16/08/2009 par AM
col = ActiveCell.Column
rang = ActiveCell.Row
'protection de la ligne d'en-tete -->qd on clique dessus on est décalé dans la 2°rangée plus bas
If rang < 4 Then interdit: Cells(rang + 2, col).Select: Exit Sub
'Recopie & protection des formules
'-----------------------
'col CP=7, age=10, Adh=17, etc si on clique sur ces colonnes le curseur est déplacé dans la cellule d'à coté
If col = 7 Or col = 10 Or col = 17 Or col = 20 Or col = 23 Or col = 26 Or col = 29 Then
Range(Cells(4, col), Cells(1200, col)).FillDown
Cells(rang, col + 1).Select: Exit Sub
End If
'mettre /supprimer couleur ds ligne et colonne sélectionnée
Range("A4:HE1200").Interior.ColorIndex = 0
If rang > 3 Then Range(Cells(rang, 1), Cells(rang, "HD")).Interior.Color = RGB(180, 250, 240)
If rang > 3 And col > 3 Then Range(Cells(4, col), Cells(rang, col)).Interior.Color = RGB(180, 250, 240)
End Sub
J'ai mis un stop pour tester, je me suis aperçue que la macro n'était pas opérationnelle , j'ai essayé de lancer la macro pas à pas rien ne se passe non plus.
J'ai vérifié la sécurité des macros pas de pb à ce niveau.
J'ai fait ouvrir / réparer cela n'a pas changé .
Il n'y a aucun message d'erreur , le reste marche on peut entre un nouvel adhérent, les calculs se font.
j'avoue ne pas savoir quoi et où chercher pour résoudre ce problème. Certainement un problème de sécurité mais lequel ? Le fichier qui est transmis par mail par la secrétaire, trésorier et président est bien sur activé en modification.
J'ai ouvert une ancienne version datant de 2 mois là aucun problème la macro fonctionne !
Pourriez-vous me donner une piste.
Merci beaucoup pour votre aide
Cordialement
Arzac
J'ai crée pour une association un fichier de gestion des adhérents.
Ce fichier est utilisé par plusieurs personnes, j'ai donc fait une macro pour protéger les formules
Jusqu'à présent cela a parfaitement marché depuis plus de 2 ans mais le dernier retour du fichier que je viens de recevoir montre des désordres en particulier du au fait que la macro n'est plus opérante
Voici la macro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Macro enregistrée le 16/08/2009 par AM
col = ActiveCell.Column
rang = ActiveCell.Row
'protection de la ligne d'en-tete -->qd on clique dessus on est décalé dans la 2°rangée plus bas
If rang < 4 Then interdit: Cells(rang + 2, col).Select: Exit Sub
'Recopie & protection des formules
'-----------------------
'col CP=7, age=10, Adh=17, etc si on clique sur ces colonnes le curseur est déplacé dans la cellule d'à coté
If col = 7 Or col = 10 Or col = 17 Or col = 20 Or col = 23 Or col = 26 Or col = 29 Then
Range(Cells(4, col), Cells(1200, col)).FillDown
Cells(rang, col + 1).Select: Exit Sub
End If
'mettre /supprimer couleur ds ligne et colonne sélectionnée
Range("A4:HE1200").Interior.ColorIndex = 0
If rang > 3 Then Range(Cells(rang, 1), Cells(rang, "HD")).Interior.Color = RGB(180, 250, 240)
If rang > 3 And col > 3 Then Range(Cells(4, col), Cells(rang, col)).Interior.Color = RGB(180, 250, 240)
End Sub
J'ai mis un stop pour tester, je me suis aperçue que la macro n'était pas opérationnelle , j'ai essayé de lancer la macro pas à pas rien ne se passe non plus.
J'ai vérifié la sécurité des macros pas de pb à ce niveau.
J'ai fait ouvrir / réparer cela n'a pas changé .
Il n'y a aucun message d'erreur , le reste marche on peut entre un nouvel adhérent, les calculs se font.
j'avoue ne pas savoir quoi et où chercher pour résoudre ce problème. Certainement un problème de sécurité mais lequel ? Le fichier qui est transmis par mail par la secrétaire, trésorier et président est bien sur activé en modification.
J'ai ouvert une ancienne version datant de 2 mois là aucun problème la macro fonctionne !
Pourriez-vous me donner une piste.
Merci beaucoup pour votre aide
Cordialement
Arzac
Dernière édition: