Bonjour,
Essaie ceci :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As B oolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Macro1
fin:
End Sub
et colle cette macro dans un module standard :
Sub Macro1()
Sheets("GPS").Activate
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
End Sub
Serge
"pellet15" a écrit dans le message de news:
Bonjour
Blocque sur la ligne 5
et le message dit : Erreur d'exécution'1004'
La méthode Select de la classe Range a
échoué.
Pourquoi ce message et comment le corriger.
Voici le début de la macro que j'ai dans la Feuil 1 (Voie)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Sheets("GPS").Select
Range("D2").Select '----------------------blocque
ici--------------------------------
ActiveSheet.Unprotect "cn178174"
Cette macro doit s'exécuter quand je double-Clic dans la collonne D .
Merci
Bonjour,
Essaie ceci :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As B oolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Macro1
fin:
End Sub
et colle cette macro dans un module standard :
Sub Macro1()
Sheets("GPS").Activate
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
End Sub
Serge
"pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
22912bed-b3aa-4743-a2a6-6d753640e...@a70g2000hsh.googlegroups.com...
Bonjour
Blocque sur la ligne 5
et le message dit : Erreur d'exécution'1004'
La méthode Select de la classe Range a
échoué.
Pourquoi ce message et comment le corriger.
Voici le début de la macro que j'ai dans la Feuil 1 (Voie)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Sheets("GPS").Select
Range("D2").Select '----------------------blocque
ici--------------------------------
ActiveSheet.Unprotect "cn178174"
Cette macro doit s'exécuter quand je double-Clic dans la collonne D .
Merci
Bonjour,
Essaie ceci :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As B oolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Macro1
fin:
End Sub
et colle cette macro dans un module standard :
Sub Macro1()
Sheets("GPS").Activate
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
End Sub
Serge
"pellet15" a écrit dans le message de news:
Bonjour
Blocque sur la ligne 5
et le message dit : Erreur d'exécution'1004'
La méthode Select de la classe Range a
échoué.
Pourquoi ce message et comment le corriger.
Voici le début de la macro que j'ai dans la Feuil 1 (Voie)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Sheets("GPS").Select
Range("D2").Select '----------------------blocque
ici--------------------------------
ActiveSheet.Unprotect "cn178174"
Cette macro doit s'exécuter quand je double-Clic dans la collonne D .
Merci
On 21 avr, 02:30, "Tatanka" wrote:Bonjour,
Essaie ceci :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Macro1
fin:
End Sub
et colle cette macro dans un module standard :
Sub Macro1()
Sheets("GPS").Activate
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
End Sub
Serge
"pellet15" a écrit dans le message de news:
Bonjour
Blocque sur la ligne 5
et le message dit : Erreur d'exécution'1004'
La méthode Sele ct de la classe Range a
échoué.
Pourquoi ce message et comment le corriger.
Voici le début de la macro que j'ai dans la Feuil 1 (Voie)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Sheets("GPS").Select
Range("D2").Select '----------------------blocque
ici--------------------------------
ActiveSheet.Unprotect "cn178174"
Cette macro doit s'exécuter quand je double-Clic dans la collonne D .
Merci
Bonsoir Tatanka
J'ai fait comme suggéré et cela blocque encore :-((
comment corriger????
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
localiser
fin:
End Sub
Sub localiser()
Sheets("GPS").Select
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
Range("C1:D1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Protect "cn178174"
Sheets("Voie").Select
ActiveCell(1, 0).Select' ----------blocque sur la ligne
suivante---------------
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
ActiveCell(1, 3).Select
fin:
End Sub
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
On 21 avr, 02:30, "Tatanka" <garno...@ENLEVER.videotron.ca> wrote:
Bonjour,
Essaie ceci :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Macro1
fin:
End Sub
et colle cette macro dans un module standard :
Sub Macro1()
Sheets("GPS").Activate
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
End Sub
Serge
"pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
22912bed-b3aa-4743-a2a6-6d753640e...@a70g2000hsh.googlegroups.com...
Bonjour
Blocque sur la ligne 5
et le message dit : Erreur d'exécution'1004'
La méthode Sele ct de la classe Range a
échoué.
Pourquoi ce message et comment le corriger.
Voici le début de la macro que j'ai dans la Feuil 1 (Voie)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Sheets("GPS").Select
Range("D2").Select '----------------------blocque
ici--------------------------------
ActiveSheet.Unprotect "cn178174"
Cette macro doit s'exécuter quand je double-Clic dans la collonne D .
Merci
Bonsoir Tatanka
J'ai fait comme suggéré et cela blocque encore :-((
comment corriger????
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
localiser
fin:
End Sub
Sub localiser()
Sheets("GPS").Select
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
Range("C1:D1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Protect "cn178174"
Sheets("Voie").Select
ActiveCell(1, 0).Select' ----------blocque sur la ligne
suivante---------------
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
ActiveCell(1, 3).Select
fin:
End Sub
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
On 21 avr, 02:30, "Tatanka" wrote:Bonjour,
Essaie ceci :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Macro1
fin:
End Sub
et colle cette macro dans un module standard :
Sub Macro1()
Sheets("GPS").Activate
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
End Sub
Serge
"pellet15" a écrit dans le message de news:
Bonjour
Blocque sur la ligne 5
et le message dit : Erreur d'exécution'1004'
La méthode Sele ct de la classe Range a
échoué.
Pourquoi ce message et comment le corriger.
Voici le début de la macro que j'ai dans la Feuil 1 (Voie)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Sheets("GPS").Select
Range("D2").Select '----------------------blocque
ici--------------------------------
ActiveSheet.Unprotect "cn178174"
Cette macro doit s'exécuter quand je double-Clic dans la collonne D .
Merci
Bonsoir Tatanka
J'ai fait comme suggéré et cela blocque encore :-((
comment corriger????
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
localiser
fin:
End Sub
Sub localiser()
Sheets("GPS").Select
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
Range("C1:D1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Protect "cn178174"
Sheets("Voie").Select
ActiveCell(1, 0).Select' ----------blocque sur la ligne
suivante---------------
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
ActiveCell(1, 3).Select
fin:
End Sub
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
On 21 avr, 02:30, "Tatanka" wrote:Bonjour,
Essaie ceci :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Macro1
fin:
End Sub
et colle cette macro dans un module standard :
Sub Macro1()
Sheets("GPS").Activate
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
End Sub
Serge
"pellet15" a écrit dans le message de news:
Bonjour
Blocque sur la ligne 5
et le message dit : Erreur d'exécution'1004'
La méthode Select de la classe Range a
échoué.
Pourquoi ce message et comment le corriger.
Voici le début de la macro que j'ai dans la Feuil 1 (Voie)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Sheets("GPS").Select
Range("D2").Select '----------------------blocque
ici--------------------------------
ActiveSheet.Unprotect "cn178174"
Cette macro doit s'exécuter quand je double-Clic dans la collonne D .
Merci
Bonsoir Tatanka
J'ai fait comme suggéré et cela blocque encore :-((
comment corriger????
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
localiser
fin:
End Sub
Sub localiser()
Sheets("GPS").Select
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
Range("C1:D1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Protect "cn178174"
Sheets("Voie").Select
ActiveCell(1, 0).Select' ----------blocque sur la ligne
suivante---------------
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
ActiveCell(1, 3).Select
fin:
End Sub
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
On 21 avr, 02:30, "Tatanka" <garno...@ENLEVER.videotron.ca> wrote:
Bonjour,
Essaie ceci :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Macro1
fin:
End Sub
et colle cette macro dans un module standard :
Sub Macro1()
Sheets("GPS").Activate
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
End Sub
Serge
"pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
22912bed-b3aa-4743-a2a6-6d753640e...@a70g2000hsh.googlegroups.com...
Bonjour
Blocque sur la ligne 5
et le message dit : Erreur d'exécution'1004'
La méthode Select de la classe Range a
échoué.
Pourquoi ce message et comment le corriger.
Voici le début de la macro que j'ai dans la Feuil 1 (Voie)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Sheets("GPS").Select
Range("D2").Select '----------------------blocque
ici--------------------------------
ActiveSheet.Unprotect "cn178174"
Cette macro doit s'exécuter quand je double-Clic dans la collonne D .
Merci
Bonsoir Tatanka
J'ai fait comme suggéré et cela blocque encore :-((
comment corriger????
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
localiser
fin:
End Sub
Sub localiser()
Sheets("GPS").Select
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
Range("C1:D1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Protect "cn178174"
Sheets("Voie").Select
ActiveCell(1, 0).Select' ----------blocque sur la ligne
suivante---------------
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
ActiveCell(1, 3).Select
fin:
End Sub
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
On 21 avr, 02:30, "Tatanka" wrote:Bonjour,
Essaie ceci :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Macro1
fin:
End Sub
et colle cette macro dans un module standard :
Sub Macro1()
Sheets("GPS").Activate
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
End Sub
Serge
"pellet15" a écrit dans le message de news:
Bonjour
Blocque sur la ligne 5
et le message dit : Erreur d'exécution'1004'
La méthode Select de la classe Range a
échoué.
Pourquoi ce message et comment le corriger.
Voici le début de la macro que j'ai dans la Feuil 1 (Voie)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Sheets("GPS").Select
Range("D2").Select '----------------------blocque
ici--------------------------------
ActiveSheet.Unprotect "cn178174"
Cette macro doit s'exécuter quand je double-Clic dans la collonne D .
Merci
Bonsoir Tatanka
J'ai fait comme suggéré et cela blocque encore :-((
comment corriger????
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
localiser
fin:
End Sub
Sub localiser()
Sheets("GPS").Select
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
Range("C1:D1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Protect "cn178174"
Sheets("Voie").Select
ActiveCell(1, 0).Select' ----------blocque sur la ligne
suivante---------------
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
ActiveCell(1, 3).Select
fin:
End Sub
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir,
Si j'ai bien compris ces macros devraient convenir.
Si ce n'est pas le cas, n'hésite pas à le dire.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
Copier
End Sub
Sub Copier()
Set ici = Sheets("GPS").[C1:D1]
ici.Copy ActiveCell.Offset(0, 1)
End Sub
Serge
"pellet15" a écrit dans le message de news:
On 21 avr, 19:22, pellet15 wrote:On 21 avr, 02:30, "Tatanka" wrote:Bonjour,
Essaie ceci :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Macro1
fin:
End Sub
et colle cette macro dans un module standard :
Sub Macro1()
Sheets("GPS").Activate
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
End Sub
Serge
"pellet15" a écrit dans le message de news:
Bonjour
Blocque sur la ligne 5
et le message dit : Erreur d'exécution'1004'
La méthode Select de la classe Range a
échoué.
Pourquoi ce message et comment le corriger.
Voici le début de la macro que j'ai dans la Feuil 1 (Voie)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Sheets("GPS").Select
Range("D2").Select '----------------------blocque
ici--------------------------------
ActiveSheet.Unprotect "cn178174"
Cette macro doit s'exécuter quand je double-Clic dans la collonne D .
Merci
Bonsoir Tatanka
J'ai fait comme suggéré et cela blocque encore :-((
comment corriger????
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
localiser
fin:
End Sub
Sub localiser()
Sheets("GPS").Select
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
Range("C1:D1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Protect "cn178174"
Sheets("Voie").Select
ActiveCell(1, 0).Select' ----------blocque sur la ligne
suivante---------------
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
ActiveCell(1, 3).Select
fin:
End Sub
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Au lieu de changer de feuille pour coller et recopier pour revenir
dans la première feuille ,
comment faire ?
copie la donner de C1:D1 feuile "GPS" a la cellule a droite et la
cellule active
ou on n'a fait le double-clic.(collonne D Feuille "Voie")
Merci
Bonsoir,
Si j'ai bien compris ces macros devraient convenir.
Si ce n'est pas le cas, n'hésite pas à le dire.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
Copier
End Sub
Sub Copier()
Set ici = Sheets("GPS").[C1:D1]
ici.Copy ActiveCell.Offset(0, 1)
End Sub
Serge
"pellet15" <pellet15@videotron.ca> a écrit dans le message de news:
eeb804ef-df02-4b6e-a09d-99a7181218b0@x41g2000hsb.googlegroups.com...
On 21 avr, 19:22, pellet15 <pelle...@videotron.ca> wrote:
On 21 avr, 02:30, "Tatanka" <garno...@ENLEVER.videotron.ca> wrote:
Bonjour,
Essaie ceci :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Macro1
fin:
End Sub
et colle cette macro dans un module standard :
Sub Macro1()
Sheets("GPS").Activate
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
End Sub
Serge
"pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
22912bed-b3aa-4743-a2a6-6d753640e...@a70g2000hsh.googlegroups.com...
Bonjour
Blocque sur la ligne 5
et le message dit : Erreur d'exécution'1004'
La méthode Select de la classe Range a
échoué.
Pourquoi ce message et comment le corriger.
Voici le début de la macro que j'ai dans la Feuil 1 (Voie)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Sheets("GPS").Select
Range("D2").Select '----------------------blocque
ici--------------------------------
ActiveSheet.Unprotect "cn178174"
Cette macro doit s'exécuter quand je double-Clic dans la collonne D .
Merci
Bonsoir Tatanka
J'ai fait comme suggéré et cela blocque encore :-((
comment corriger????
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
localiser
fin:
End Sub
Sub localiser()
Sheets("GPS").Select
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
Range("C1:D1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Protect "cn178174"
Sheets("Voie").Select
ActiveCell(1, 0).Select' ----------blocque sur la ligne
suivante---------------
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
ActiveCell(1, 3).Select
fin:
End Sub
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Au lieu de changer de feuille pour coller et recopier pour revenir
dans la première feuille ,
comment faire ?
copie la donner de C1:D1 feuile "GPS" a la cellule a droite et la
cellule active
ou on n'a fait le double-clic.(collonne D Feuille "Voie")
Merci
Bonsoir,
Si j'ai bien compris ces macros devraient convenir.
Si ce n'est pas le cas, n'hésite pas à le dire.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
Copier
End Sub
Sub Copier()
Set ici = Sheets("GPS").[C1:D1]
ici.Copy ActiveCell.Offset(0, 1)
End Sub
Serge
"pellet15" a écrit dans le message de news:
On 21 avr, 19:22, pellet15 wrote:On 21 avr, 02:30, "Tatanka" wrote:Bonjour,
Essaie ceci :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Macro1
fin:
End Sub
et colle cette macro dans un module standard :
Sub Macro1()
Sheets("GPS").Activate
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
End Sub
Serge
"pellet15" a écrit dans le message de news:
Bonjour
Blocque sur la ligne 5
et le message dit : Erreur d'exécution'1004'
La méthode Select de la classe Range a
échoué.
Pourquoi ce message et comment le corriger.
Voici le début de la macro que j'ai dans la Feuil 1 (Voie)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
Sheets("GPS").Select
Range("D2").Select '----------------------blocque
ici--------------------------------
ActiveSheet.Unprotect "cn178174"
Cette macro doit s'exécuter quand je double-Clic dans la collonne D .
Merci
Bonsoir Tatanka
J'ai fait comme suggéré et cela blocque encore :-((
comment corriger????
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo fin
localiser
fin:
End Sub
Sub localiser()
Sheets("GPS").Select
Range("D2").Select
ActiveSheet.Unprotect "cn178174"
Range("C1:D1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Protect "cn178174"
Sheets("Voie").Select
ActiveCell(1, 0).Select' ----------blocque sur la ligne
suivante---------------
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
ActiveCell(1, 3).Select
fin:
End Sub
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Au lieu de changer de feuille pour coller et recopier pour revenir
dans la première feuille ,
comment faire ?
copie la donner de C1:D1 feuile "GPS" a la cellule a droite et la
cellule active
ou on n'a fait le double-clic.(collonne D Feuille "Voie")
Merci