Code vba case à cocher

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

Citation:

---

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

Merci beaucoup,

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

Code:

---

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

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.

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

Citation:

---

Envoyé par popolinodu56

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

---

Code:

---

1 2 3

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

---

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

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

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

Merci

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.

Oui c'est un contrôle de formulaire.

Par une simple cellule, c'est à dire?

Merci

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.

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

Citation:

---

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.

Citation:

---

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.

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:

---

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é :)

Bonjour,

en nommant la cellule alors peu importe sa position ! …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Génial merci beaucoup!!