PB code dans planning

[Eric_nov]

Bonjour à tous,

Pour pouvoir contrôler mes heures supplémentaires, j'ai crée un planning annuel.
J'ai différent horaire dans la journée: M, AM, et des coupés.
Donc M=7:36, AM=7:36 pour les journées entières.
Et 20h56=8:02, 20h36=7:42, 15h19=8:06 (sans compter RTT,CA,REPOS, etc..)
J'ai crée des boutons de formulaire pour être quitte de retaper à chaque fois la même chose.
Dans le code je n'arrive pas à faire en sorte que seul la partie intéressé soit concernée en l'occurrence la colonne d3:d33 pour les mois à 31 jours, d3:d32 pour les mois à 30 jours et plus embêtant pour le mois de février 28 ou 29 jours. Ce qui fait que je peux mettre des "M" ou autre partout dans ma feuille et effacer mes formules dans les autres cellules. J'ai essayé de mettre une protection mais j'ai un problème de débogage!
Je suis plus que novice en la matière sur excel et ce que j'ai réussi à faire c'est en cherchant à droite et à gauche sur le net mais la je sèche +++

Je vous joins le fichier, pouvez vous m'aider avec ce code?
Merci, Eric.

 

[JCGL]

Re : PB code dans planning

Bonjour à tous,

Bienvenue sur XLD

Peux-tu essayer avec :

 Sub Bouton1() 
   If ActiveCell.Offset(0, -2) > 0 Then
        ActiveCell = "M"
        ActiveCell.Offset(1, 0).Select
    End If
End Sub

A+ à tous

Edition : ActiveCell.Offset(0, -2) à cause des cellules fusionnées...

 

[Eric_nov]

Re : PB code dans planning

Merci JCGL c'est 100 fois mieux qu'avant!
Sinon un truc bizarre dans certaine cellule autre que d3:d33 comme en L10,11,12,20,21 et certaines en colonne H cela marche quand même!! Bizarre ?

 

[JCGL]

Re : PB code dans planning

Bonjour à tous,

Modifie avec 41640 qui correspond au 01/01/2014.
Sera inefficace si tu as plus de 41640 CA ou RTT...

Sub Bouton1()
    If ActiveCell.Offset(0, -2) > 41640 Then
        ActiveCell = "M"
        ActiveCell.Offset(1, 0).Select
    End If
End Sub

A+ à tous

 

[Eric_nov]

Re : PB code dans planning

Bonjour,

Je viens d'essayer la manip. et ça fait la même chose. Je viens de voir également qu'en me mettant sur A34 et en cliquant sur le bouton M j'ai un message "erreur d’exécution 1004" qui apparait. Y a t' il une solution? Merci pour votre recherche.
Eric

 

[JCGL]

Re : PB code dans planning

Bonjour à tous,

La colonne A est la première colonne donc un décalage de -2 colonnes induit forcément une erreur...

Sub Bouton1()
On Error GoTo Sortie
    If IsDate(ActiveCell.Offset(0, -2)) Then
        ActiveCell = "M"
        ActiveCell.Offset(1, 0).Select
    End If
Sortie:
End Sub

A+ à tous

Edition : Juste pour saluer mon ami Ges... Bises chez toi

 

[Guest]

Re : PB code dans planning

Bonjour chacun,

N'apporte rien au fil, juste le plaisir de saluer mon ami JC avant de raccrocher

bonne soirée à vous

A+
A++++ JC

 

[Eric_nov]

Re : PB code dans planning

Impeccable! Un grand merci pour votre aide. Sans vous je crois que j'aurais fini par effacer les boutons!
Je crois que la boucle est bouclée!
Encore merci, je vous souhaite un bon week-end.