Discussion :

[popolinodu56]

Bonjour à tous,

Petite question: dans mon fichier excel, je souhaiterais:
- cocher une case: puis que le nom de l'utilisateur s'affiche + la cellule se protège ( pas de possibilité de modifier)
- lors du décochage, que les informations disparaissent.

Savez vous quels éléments sont à insérer dans le code VBA?

Merci d'avance à tous,

Bonne soirée

Pauline

[Menhir]

Savez vous quels éléments sont à insérer dans le code VBA?

https://msdn.microsoft.com/library/6...ice.15%29.aspx
https://msdn.microsoft.com/fr-fr/VBA...property-excel
https://msdn.microsoft.com/fr-fr/lib.../ff840611.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff841143.aspx

[popolinodu56]

Merci beaucoup,

Par contre j'ai un autre soucis: en effet mon code fonctionne mais il fait beuguer tout mon fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Private Sub Workbook_open()
ActiveSheet.ScrollArea = "A1:A580"
Dim nomutilisateur As String
nomutilisateur = Environ("username") & " " & Application.UserName
Sheets("Dossier étude").Range("A1").Value = nomutilisateur
End Sub

Auriez vous une idée du problème?

merci

[Menhir]

Je ne comprends pas pourquoi dans ton code tu mets un ScrollArea qui ne semble pas nécessaire ni pourquoi tu utilises deux éléments différents pour obtenir le nom d'utilisateur.

[popolinodu56]

Bonjour,
1- je pensais que le scroll area était nécessaire, dans ce cas je vais l'enlever
2- j'utilise deux éléments différents pour obtenir le nom d'utilisateur car le premier sert à le nommer et le deuxième sert à l'affecter dans une cellule.

Dans ce cas, quelle devrait être l'écriture?

Merci de votre aide

[Menhir]

Dans ce cas, quelle devrait être l'écriture?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Private Sub Workbook_open()
   Sheets("Dossier étude").Range("A1").Value = Application.UserName
End Sub

[popolinodu56]

Merci beaucoup cela fonctionne!

Par contre j'ai une autre question: Mon idée est de cocher une case, et d'afficher li'identité de l'utilisateur ( le code fonctionne).
Le problème est que dans mon fichier j'ai des zones de texte qui s'agrandissent --> les cellules sont susceptibles de bouger...

Comment récupérer la position d'une cellule ( dans mon cas de case à cocher) et ensuite la réaffecter dans mon code afin d'affecter la signature dans la bonne cellule?

J'espère avoir été claire

Merci d'avance pour votre aide

Popolino

[Menhir]

Si par position tu veux parler du numéro de ligne : https://msdn.microsoft.com/fr-fr/lib.../ff196952.aspx
Ensuite, tu peux utiliser cette valeur dans les coordonnées d'un Cells ou d'un Range. https://msdn.microsoft.com/fr-fr/VBA...e-object-excel

Tu peux aussi passer par un Offset : https://msdn.microsoft.com/fr-fr/lib.../ff840060.aspx