un message d'erreur 1004

[Ilino]

Forum Bonjour
Mon souci de jour est le suivant
Dans ma feuille « FGP 2014 », J’ai crée un bouton dans USF "aller vers la feuille Descrip ( feuilles très Caché » Code ci-dessous

Private Sub CommandButton4_Click()
 Sheets("Descrip").Visible = xlVisible         ' affiche
 Sheets("Descrip ").Visible = xlHidden         ' cahe
 Sheets("Descrip ").Visible = xlVeryHidden     ' tres cache
End sub

Et dans la feuille” Descrip » j’ai cré un simple bouton ( retour vers la feuille FGP 2014)
Ci-dessous le code

Private Sub CommandButton1_Click() 'BOUTON RETOUR
Sheets("FGP 2014").Select
Sheets("Descrip").Visible = xlVeryHidden  ' tres caché
End Sub

En plus de tous ça j'ai ajouté dans la feuille "FGP 2014" un code (pour autre utilisation dans ma feuille )

Private Sub Worksheet_selectionChange(ByVal c As Range) 'Déplacer le bouton avec la feuille
 Dim plage As Range
    
    Set plage = Range("R30:R228,R234:R432,R438:R636,R642:R840,R846:R1044,R1050:R1248,R1254:R1452,R1458:R1656,R1662:R1860,R1866:R2064")
    For Each c In plage
        If c = "" Then c = "En cours"

Next

End Sub

Tout va bien mais temps en temps j’ai un bug message d’erreur

Erreur d’execution 1004
La methode range de l’objet –WorkSheet a echoué

a ce niveau la : Range("R30:R228,R234:R432,R438:R636,R642:R840,R846:R1044,R1050:R1248,R1254:R1452,R1458:R1656,R1662:R1860,R1866:R2064")

merci
grazie

 

[Staple1600]

Re : un message d'erreur 1004

Bonjour à tous


Ilino (toujours phobique de la pièce jointe)
Avec le fichier exemple, on pourrait tester sur nos PC, si le message d'erreur apparait...


PS: Il faudra te le dire combien de fois avant que cela rentre 😕😕😕 🙄

 

[Ilino]

Re : un message d'erreur 1004

JM Bonjour
Je n’ai pas pu joindre le fichier because il est very volumineux
Et j’ai communiqué seulement les code qui me cause des bug
Quand même merci encore pour la nième fois je vais faire le nécessaire pour faire un fichier exemple ( on supprimant les autres code qui ne sans pas necessary)
GRAZIE
A+

 

[Ilino]

Re : un message d'erreur 1004

Bonjour a tous
ci joint le fichier exemple
encore une fois je suis sorry ( pour cette phobie )😱
GRAZIE
Edite : erreur remplacez Sheets(2).Select Par Sheets("FGP 2014").Select

 

[Staple1600]

Re : un message d'erreur 1004

Re

Ilino
Pas de message d'erreur pour le moment sur mon PC.
En attendant que cela arrive, je te propose cette modification d'un de tes codes.

Private Sub Worksheet_selectionChange(ByVal c As Range) 'Déplacer le bouton avec la feuille
Dim plage As Range
Set plage = Range("R30:R228,R234:R432,R438:R636,R642:R840,R846:R1044,R1050:R1248,R1254:R1452,R1458:R1656,R1662:R1860,R1866:R2064")
On Error Resume Next
plage.SpecialCells(xlCellTypeBlanks) = "En cours"
End Sub

 

[Ilino]

Re : un message d'erreur 1004

Bonjour JM
Merci pour la proposition , je vais la tester
GRAZIE
A+