Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

copier la cellule avec double clic

202 views
Skip to first unread message

pellet15

unread,
Oct 12, 2011, 4:38:35 PM10/12/11
to
bonjour à tous

Comment faire pour copier une date de la colonne "D" la ou on double
clic
et la coller dans un autre onglet (Feuille_insp).
cela a partir de l'onglet (Base_Insp).

mais enlever la protection avant et la remettre aprés l'exécution..
et poursuivre avec la procédure Sub historique


Merci

MichD

unread,
Oct 12, 2011, 5:38:18 PM10/12/11
to
Bonjour,

La question n'est pas claire.

Tu veux copier quoi? La cellule dans laquelle tu viens de double-cliquer?

Et tu veux coller cette information O�? Nom de la feuille et adresse de la cellule. Est-ce toujours dans la m�me cellule que
la copie doit se faire?

MichD
------------------------------------------
"pellet15" a �crit dans le message de groupe de discussion :
ebefa66f-f853-4230...@u6g2000vbo.googlegroups.com...

bonjour � tous

Comment faire pour copier une date de la colonne "D" la ou on double
clic
et la coller dans un autre onglet (Feuille_insp).
cela a partir de l'onglet (Base_Insp).

mais enlever la protection avant et la remettre apr�s l'ex�cution..
et poursuivre avec la proc�dure Sub historique


Merci

isabelle

unread,
Oct 12, 2011, 6:49:59 PM10/12/11
to
et aussi quel est la ou les protection(s) misent en place ?

--
isabelle

Jacquouille

unread,
Oct 13, 2011, 3:39:33 AM10/13/11
to
Salut les Copains

Depuis le temps que vous r�pondez avec brio � toutes sortes de messages,
vous devriez "comprendre" le questionneur. -))))) (ha-ha-ha)
Voici ce que je comprends, dans ce brouillard confus du message.
le Monsieur, il a une feuille (Base_Insp) qui est prot�g�e et dans laquelle
il y a des cellules (si!) qui contiennent une date en colonne D.
Il d�sire d�prot�ger et la feuille source (Base_Insp) et la feuille cible
(Feuille_Insp), puis copier une cellule de la colD de la feuille Base_Insp
et la coller Dieu sait o�, dans la feuille cible.
Ensuite, remettre les protections, puis continuer la macro en cours.

Allez, au boulot ! Ces incoh�rences ne sont pas si compliqu�es � g�rer. -))
-------------
Bonjour
Je poss�de un fichier comportant deux feuilles prot�g�es.
Je d�sire inclure dans une macro d�j� existante, la manipulation suivante:
D�prot�ger les feuilles, copier la cellule D1 (qui est une date) de la
feuille A vers la feuille B, en cellule IV65536 (merci la G�oli�re), puis
reprot�ger avant de poursuivre ma macro.
je vous remercie d�j� pour vos conseils avis�s et vous souhaite une bonne
journ�e.

Jack X


Jacquouille

" Le vin est au repas ce que le parfum est � la femme."
"isabelle" a �crit dans le message de groupe de discussion :
j755ik$l5d$1...@speranza.aioe.org...

pellet15

unread,
Oct 13, 2011, 11:59:54 AM10/13/11
to
On 12 oct, 17:38, "MichD" <michde...@hotmail.com> wrote:
> Bonjour,
>
> La question n'est pas claire.
>
> Tu veux copier quoi? La cellule dans laquelle tu viens de double-cliquer?
>
> Et tu veux coller cette information O ? Nom de la feuille et adresse de la cellule. Est-ce toujours dans la m me cellule que
> la copie doit se faire?
>
> MichD
> ------------------------------------------
> "pellet15"  a crit dans le message de groupe de discussion :
> ebefa66f-f853-4230-99c2-7aae69767...@u6g2000vbo.googlegroups.com...

>
> bonjour tous
>
> Comment faire pour copier une date de la colonne "D" la ou on double
> clic
> et la coller dans un autre onglet (Feuille_insp).
> cela a partir de l'onglet (Base_Insp).
>
> mais enlever la protection avant et la remettre apr s l'ex cution..
> et poursuivre avec la proc dure Sub historique
>
> Merci

bonjour MichD

Oui vraiment cela es pas très claire (dans ma tête oui, mais elle
n'est pas sur le email)


Dans la feuille '' Base_Insp '' la colonne ''D'' contient des Date
que je veut coller dans la cellule '' h2 '' de la feuille ''
Feuille_insp ''
avec un double clic sur la date que je veut et après exécuter la
procédure que j'ai déjà écrite et qui porte le nom ''historique''

mais les deux feuilles sont protéger il faut enlever cette protection
et la remettre après l'exécution. (mot passe est ''12345')'

Merci (et excuser moi pour le manque de clarté)

pellet15

unread,
Oct 13, 2011, 11:54:47 AM10/13/11
to
On 12 oct, 17:38, "MichD" <michde...@hotmail.com> wrote:
> Bonjour,
>
> La question n'est pas claire.
>
> Tu veux copier quoi? La cellule dans laquelle tu viens de double-cliquer?
>
> Et tu veux coller cette information O ? Nom de la feuille et adresse de la cellule. Est-ce toujours dans la m me cellule que
> la copie doit se faire?
>
> MichD
> ------------------------------------------
> "pellet15"  a crit dans le message de groupe de discussion :
> ebefa66f-f853-4230-99c2-7aae69767...@u6g2000vbo.googlegroups.com...

>
> bonjour tous
>
> Comment faire pour copier une date de la colonne "D" la ou on double
> clic
> et la coller dans un autre onglet (Feuille_insp).
> cela a partir de l'onglet (Base_Insp).
>
> mais enlever la protection avant et la remettre apr s l'ex cution..
> et poursuivre avec la proc dure Sub historique
>
> Merci

pellet15

unread,
Oct 14, 2011, 11:39:35 AM10/14/11
to

Bonjour à tous

J'ai fit la procédure suivante mais la fonction block sur
''Range("H2:L2").Select''
la donné est en mémoire et les feuille ne sont plus protéger...
pourquoi cela ne fonctionne pas ??

le message est : '' la methode select de la classe range a echoué ''

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Application.CutCopyMode = False
ActiveSheet.Unprotect "7433304DanielPelletier15061954"
Selection.Copy
ActiveSheet.Protect "7433304DanielPelletier15061954",
DrawingObjects:=False, Contents:=True, Scenarios:=True
Sheets("Feuille_insp").Select
ActiveSheet.Unprotect "7433304DanielPelletier15061954"

Range("H2:L2").Select '------ block ici ??? ------
ActiveSheet.Paste
historique
fin:
End Sub

Merci

isabelle

unread,
Oct 14, 2011, 12:13:34 PM10/14/11
to
bonjour Pellet,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Set sh1 = ActiveSheet
Set sh2 = Sheets("Feuille_insp")


If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin

Application.CutCopyMode = False
sh1.Unprotect "7433304DanielPelletier15061954"
sh2.Unprotect "7433304DanielPelletier15061954"

Selection.Copy sh2.Range("H2")

sh1.Protect "7433304DanielPelletier15061954", DrawingObjects:=False, Contents:=True, Scenarios:=True
sh2.Protect "7433304DanielPelletier15061954", DrawingObjects:=False, Contents:=True, Scenarios:=True
historique
fin:
End Sub


--
isabelle

Le 2011-10-14 11:39, pellet15 a �crit :

> le message est : '' la methode select de la classe range a echou� ''

pellet15

unread,
Oct 14, 2011, 10:43:48 AM10/14/11
to
Bonjour à tous

J'ai exécuter la procedure suivante et cela arrete sur ''
Range("H2:L2").Select ''

Le message d'erreure: la methode select de la classe range a échoué

que faire pour que la donne (qui est en memoire)soit coller ?


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Application.CutCopyMode = False
ActiveSheet.Unprotect "7433304DanielPelletier15061954"
Selection.Copy

Sheets("Feuille_insp").Select
ActiveSheet.Unprotect "7433304DanielPelletier15061954"

Range("H2:L2").Select 'arrete ici--- ???--
ActiveSheet.Paste
historique
fin:
End Sub Merci   (et excuser moi pour le manque de clarté)

Merci

isabelle

unread,
Oct 14, 2011, 12:27:39 PM10/14/11
to
petite remarque,
j'ai fait le test avec Worksheet_SelectionChange
car avec Worksheet_BeforeDoubleClick j'entre automatiquement en mode �dition de cellule.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Set sh1 = ActiveSheet
Set sh2 = Sheets("Feuille_insp")

If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin

sh1.Unprotect "7433304DanielPelletier15061954"
sh2.Unprotect "7433304DanielPelletier15061954"

Application.CutCopyMode = False
Selection.Copy Sheets("Feuille_insp").Range("H2")

pellet15

unread,
Oct 14, 2011, 4:21:04 PM10/14/11
to
On 14 oct, 12:27, isabelle <i...@v.org> wrote:
> petite remarque,
> j'ai fait le test avec Worksheet_SelectionChange
> car avec Worksheet_BeforeDoubleClick j'entre automatiquement en mode édition de cellule.

>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>   Set sh1 = ActiveSheet
>   Set sh2 = Sheets("Feuille_insp")
>
>   If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
>
>   sh1.Unprotect "7433304DanielPelletier15061954"
>   sh2.Unprotect "7433304DanielPelletier15061954"
>
>    Application.CutCopyMode = False
>    Selection.Copy Sheets("Feuille_insp").Range("H2")
>
>   sh1.Protect "7433304DanielPelletier15061954", DrawingObjects:=False, Contents:=True, Scenarios:=True
>   sh2.Protect "7433304DanielPelletier15061954", DrawingObjects:=False, Contents:=True, Scenarios:=True
> ' historique
> fin:
> End Sub
>
> --
> isabelle

Bonjour Isabelle

J'ai exécuter et Le message d'erreure me donne :

'' la methode copy de la classe range a échoué ''

ligne en jaune


Selection.Copy Sheets("Feuille_insp").Range("H2")


Merci

pellet15

unread,
Oct 14, 2011, 11:07:34 PM10/14/11
to
Bonsoir Isabelle

la cellule ou je copie (colonne D) contient une date et la cellule ou
je colle est fusionner avec d'autre cellule, cela peut t'il causer
problème?

merci

MichD

unread,
Oct 15, 2011, 7:05:01 AM10/15/11
to

Tu copies le code suivant dans le haut du module de la feuille où tu veux
effectuer tes doubles-clics.

La copie s'effectue seulement si le double-clic est fait dans une cellule de la
colonne D:D vers la cellule H2 de la feuille destination. La cellule de destination
peut-être fusionnée, mais attention H2 doit être l'adresse qui s'affiche dans la
section à l'extrême gauche de la barre des formules lorsque tu la sélectionnes.

'Déclaration de la variable dans le haut du module de la feuille.
Dim Rg As Range
'-------------------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Gestion_Erreur As String, Data As Variant
On Error GoTo Gestion_Erreur

Me.Unprotect "7433304DanielPelletier15061954"
If Rg Is Nothing Then Set Rg = ActiveCell
If Union(Rg, Target).Column = Range("D:D").Column Then
With Sheets("Feuil2") '("Feuille_insp")
.Unprotect "7433304DanielPelletier15061954"
Data = Rg
.Range("H2") = Data
Application.CutCopyMode = False
.Protect "7433304DanielPelletier15061954"
End With
End If
Cancel = True
Rg = Selection
Me.Protect "7433304DanielPelletier15061954"
Exit Sub
Gestion_Erreur:
Me.Protect
MsgBox Err.Number & ", " & Err.Description
Exit Sub
End Sub

'-------------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Rg = Selection
End Sub
'-------------------------------------------------------------------------------


MichD
------------------------------------------

MichD

unread,
Oct 15, 2011, 8:02:23 AM10/15/11
to
Dans la procédure "Worksheet_BeforeDoubleClick"
Tu peux éliminer cette ligne de code, elle a été oubliée :

| Application.CutCopyMode = False


'Déclaration de la variable dans le haut du module de la feuille.
Dim Rg As Range
'-------------------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Gestion_Erreur As String, Data As Variant
On Error GoTo Gestion_Erreur

Me.Unprotect "7433304DanielPelletier15061954"
If Rg Is Nothing Then Set Rg = ActiveCell
If Union(Rg, Target).Column = Range("D:D").Column Then
With Sheets("Feuil2") '("Feuille_insp")
.Unprotect "7433304DanielPelletier15061954"
Data = Rg
.Range("H2") = Data
0 new messages