Ilino
XLDnaute Barbatruc
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
Et dans la feuille” Descrip » j’ai cré un simple bouton ( retour vers la feuille FGP 2014)
Ci-dessous le code
En plus de tous ça j'ai ajouté dans la feuille "FGP 2014" un code (pour autre utilisation dans ma feuille )
Tout va bien mais temps en temps j’ai un bug message d’erreur
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
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
Code:
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
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 )
Code:
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
Code:
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
Dernière édition: