Ajouter une colonne alors que le fichier est protéger

**Leena666** · 02/07/2007, 10h53

Bonjour

je cherche à créer une fonction sur une cellule "bouton" qui pourrait me permettre d'ajouter une colonne juste avant celle ci
il faudrait pour cela désactiver la protection, ajouter la colonne en faisant qq modif d'affichage, réactiver la protection

quelqu'un saurait-il comment faire svp

il faudrait ensuite que je puisse insérer un nom dans la cellule de la colonne nouvellement créer (genre un pop up pour que l'utilisateur puisse insérer un nouveau nom )
ou bien m'indiquer un tutoriel qui expliquerait comment faire cela

Merci d'avance

**jfontaine** · 02/07/2007, 11h16

Bonjour,

Pour retirer la protection de la feuille

Code :

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

Me.Unprotect "mot de passe"

Pour Ajouter une colonne devant une autre colonne. Ici colonne F

Code :

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

1
2
Me.Columns("F:F").Select
Selection.Insert shift:=xlToRight

Pour donner a l utilisateur le choix du nom de la colonne

Code :

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

1
2
 
Range("F1").Value = InputBox("Nom de la colonne", "Choix du Nom")

Pour remettre la protection

Code :

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

Me.Protect "mot de passe"

afin d'éviter que les utilisateurs puissent connaitre ton mot de passe, pense à mettre un mot de passe sur le code VBA

Jérôme

**Leena666** · 02/07/2007, 11h37

Oki pour tout ce qui est mot de passe ça marche bien (déjà bon point )
(je suis totalement une débutante en VBA)

J'aimerai associé cette fonction a une cellule particulière (cellule qui bougera dans le temps puisqu'elle se décalera à droite à chaque fois ... et pour le moment j'ai juste réussi à mettre la macro sur toute la feuille pas sur une cellule particulière... )

j'ai également une cellule fusionné au dessus de la macro ce qui peut être génant puisque ça peut rajouter toute une bande de colonne alors que je n'en veut qu'une... une solution ? ^^"

**jfontaine** · 02/07/2007, 12h09

Y a t'il des données dans les cellules à droite de la cellule qui bouge.

**Leena666** · 02/07/2007, 12h47

oui il y en a

voici une image du fichier

(je voudrais donc que la case rouge ici agisse comme une sorte de bouton qui me permettrais d'ajouter une colonne et de lui donner un nom, il faut aussi que ce nom se place automatiquement dans la case adjacente à gauche de la rouge

)

ICI

**Leena666** · 02/07/2007, 15h32

Pour l'instant ma fonction ressemble à ça associé à la cellule rouge
seul problem je ne peux pas vérouillé ou dévérouiller la page à partir de cette fonction (le Me ne marchant pas )
Egalement je n'ai pas trouvé comment juste par l'action de cliquer sur la cellule, faire l'exécution de cette fonction ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub AjoutRfLPS()
Dim Temp
Temp = InputBox("Nom de la colonne", "Choix du Nom")
If (Temp <> "") Then
  Selection.EntireColumn.Insert
  ActiveCell.FormulaR1C1 = Temp
Else
  MsgBox "Vous devez donner un nom au RFLPS"
End If
 
 
End Sub

Merci d'avance ^^