Code vba case à cocher

**popolinodu56** · 15/03/2018, 18h53

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** · 15/03/2018, 19h01

Envoyé par popolinodu56

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** · 16/03/2018, 11h23

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** · 16/03/2018, 12h28

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** · 19/03/2018, 09h28

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** · 19/03/2018, 10h09

Envoyé par popolinodu56

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** · 19/03/2018, 17h10

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** · 19/03/2018, 17h21

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

**popolinodu56** · 19/03/2018, 17h56

Je ne suis pas douée mais je ne vois toujours pas comment récupérer la valeur de ma case à cocher.

Merci

**Menhir** · 19/03/2018, 18h04

Quelle est la nature de cette "case à cocher" ?
Si c'est un contrôle de formulaire ou un contrôle ActiveX, je te suggère de changer de méthode et de passer par une simple cellule, ce sera beaucoup plus facile.

**popolinodu56** · 19/03/2018, 18h11

Oui c'est un contrôle de formulaire.

Par une simple cellule, c'est à dire?

Merci

**Menhir** · 19/03/2018, 18h40

Bin... tu mets un "x" dans une cellule pour la "cocher".

Sinon, tu peux essayer de demander à la macro de "deviner" dans quelle ligne se trouve la case à cocher, ce qui peut éventuellement se faire en utilisant la propriété TopLeftCell de l'objet.
https://msdn.microsoft.com/fr-fr/vba...property-excel
Mais, à mon avis, ça reste très aléatoire.

**popolinodu56** · 19/03/2018, 18h57

Ok, mais c’est toujours le même problème car ma case ou je met mon "x" peux aussi bouger...
Or pour affecter mon code je devrais écrire si range( C25) est vide ou remplie :/

Ou est ce qu'il y a un autre moyen?

Merci Menhir

**Menhir** · 20/03/2018, 09h09

Envoyé par popolinodu56

Ok, mais c’est toujours le même problème car ma case ou je met mon "x" peux aussi bouger...

C'est bien pour ça que je te disais que c'est une méthode peu sûre et que je te conseille d'utiliser plutôt une simple cellule beaucoup plus facile à gérer.

Or pour affecter mon code je devrais écrire si range( C25) est vide ou remplie :/

Pour ça, il suffit de tester la propriété Value de la cellule.

**popolinodu56** · 20/03/2018, 09h38

Merci Menhir, mais j'ai toujours des zones d'ombres...
En effet, j'ai compris que le plus facile est d'utiliser une cellule simple plus facile à gérer en mettant un x dans la case.

Mais pour appliquer mon code VBA j'ai toujours un problème:

Code :

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

1
2
3
 Dim nomutilisateur As String
nomutilisateur = Environ("username") & " " & Application.UserName
Sheets("Dossier étude").Range("E314").Value = nomutilisateur

Je vise une cellule( la E314) alors que ma case à cocher peut bouger( elle pourra devenir la E316, E320...).

Merci d'avance et bonne journé