probème avec exécution d'une macro

Le
pellet15
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Tatanka
Le #5863811
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"
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
pellet15
Le #6092891
On 21 avr, 02:30, "Tatanka"
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"
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

pellet15
Le #6100151
On 21 avr, 19:22, pellet15
On 21 avr, 02:30, "Tatanka"




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"
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 -


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


Tatanka
Le #6100141
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"
On 21 avr, 19:22, pellet15
On 21 avr, 02:30, "Tatanka"




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"
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


Tatanka
Le #6107541
Ou plus simplement, cette macro de feuille de la feuille Voie :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
Sheets("GPS").[C1:D1].Copy ActiveCell.Offset(0, 1)
ActiveCell.ClearContents
End Sub

Pour une raison que j'ignore, un gros point d'interrogation apparaissait
à droite de la cellule active de la colone D suite à un double-clic.
C'est pour ça que j'ai ajouté : ActiveCell.ClearContents

Ça te convient ?

Serge


"Tatanka"
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"
On 21 avr, 19:22, pellet15
On 21 avr, 02:30, "Tatanka"




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"
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





pellet15
Le #6107531
Bonsoir Serge

Cela fonctionne , mais je voudrait copier les Valeurs , pas les
formule qui ci trouve.
et en premiere partie de la procedurecoller la donné GPS

Sub localiser()
Sheets("GPS").Select' ------a modifier----
Range("D2").Select' ------a modifier----
' ------la prochaine partie est pour
extraire une donné GPS----
' ------et coller cette valeur a
D2----
ActiveSheet.Unprotect "cn178174"
MyAppID = Shell("C:Program FilesGarminnRoutenRoute.exe", 1)
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé
la fenêtre
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé
la fenêtre
Application.ScreenUpdating = False
Application.Wait (Now + TimeValue("00:00:01"))
SendKeys "^w", True ' Envoie la combinaison CTRL+w ouvre une
fenêtre
Application.Wait (Now + TimeValue("00:00:01"))
SendKeys "{tab}", True ' Envoie la combinaison CTRL+tab
Application.Wait (Now + TimeValue("00:00:01"))
SendKeys "{tab}", True ' Envoie la combinaison CTRL+tab
Application.Wait (Now + TimeValue("00:00:01"))
SendKeys "^c", True ' Envoie la combinaison CTRL+c copie sur
presse-papier
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé
la fenêtre
SendKeys "%{tab}", True 'Envoie la combinaison CTRL+tab
Dim Presspp As New DataObject
Set Pressp = New DataObject
Presspp.GetFromClipboard 'Récupérer le Presse-papier
ActiveSheet.Paste'------colle sur la cellule D1 de la
feuille"GPS"a modifier--------
Set Pressp = Nothing
Application.ScreenUpdating = True
ActiveSheet.Protect "cn178174"

Sheets("Voie").Select
Set ici = Sheets("GPS").[C1:D1]
ici.Copy ActiveCell.Offset(0, -1)
ActiveCell(1, 2).Select
End Sub


Merci
Publicité
Poster une réponse
Anonyme