Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel probème avec exécution d'une macro

probème avec exécution d'une macro

6 réponses
Avatar
pellet15
Bonjour

Blocque sur la ligne 5
et le message dit : Erreur d'ex=E9cution'1004'
La m=E9thode Select de la classe Range a
=E9chou=E9.

Pourquoi ce message et comment le corriger.

Voici le d=E9but 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=E9cuter quand je double-Clic dans la collonne D .

Merci
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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" 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
Avatar
pellet15
On 21 avr, 02:30, "Tatanka" wrote:
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


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

Avatar
pellet15
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 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


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


Avatar
Tatanka
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" a écrit dans le message de news:
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





Avatar
pellet15
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