dur dur je suis bloque

[yoyopasnet]

Bonsoir
je vais essayer de vous expliquer mon pb

voila j'ai une cellule disons A2 qui contient une formule =Q10
selon une condition 1 la fonction doit etre active selon la condition 2 le fonction n'ai pas active mais je dois pouvoir ecrire une valeur dans A2 sans perdre la fonction or là a chaque fois que j'ecris dans A2 je perd la formule

 

[yoyopasnet]

Re : dur dur je suis bloque

non mais elle renvoie apres sur une fiche de paie là se n ai qu une partie de la feuille d'origine excel car elle comporte 34 onglet et est donc trop volimineuse pour etre compresse et jointe

 

[Spitnolan08]

Re : dur dur je suis bloque

Re,

non mais elle renvoie apres sur une fiche de paie

C'est bien ce que je dis dans mon post de 1h47...

Il n'est donc pas utile de masquer ces colonnes mais nécessaire d'en ajouter pour une saisie manuelle.

Sur ce, bonne nuit,
Cordialement

 

[yoyopasnet]

Re : dur dur je suis bloque

ok donc avec une mfc je griserai les colonnes qui sont utile surtout dans un souci de clarte
une derniere chose le bouton paie envoie directement a la fiche de paie comment faire pour mettre une boite de dialogue pour demande si on d accrod avec les donnés de repondre oui et la on arrive sur la fiche de paye

 

[yoyopasnet]

Re : dur dur je suis bloque

je tiens a remercier spitnolan 08 excel-lent et tous les autres personne qui mon aider

merci a tous

 

[Excel-lent]

Re : dur dur je suis bloque

comment faire pour mettre une boite de dialogue pour demande si on d accrod avec les donnés de repondre oui et la on arrive sur la fiche de paye

Là, il va falloir utiliser VBA. Voici ci-dessous le code à rajouter dans ton fichier.

Sub DacAvecDonnées()

Dim ValeurMsgbox As Byte

ValeurMsgbox = MsgBox("Etes-vous d'accord avec les donnés?", vbOKCancel)

'la variable "ValeurMsgbox" renvoi la valeur 1, lorsqu'on clic sur "Ok"
'la variable "ValeurMsgbox" renvoi la valeur 2, lorsqu'on clic sur "Cancel"

   If ValeurMsgbox = 1 Then
      Sheets("AAA").Select
      ' remplacer AAA par le nom exacte de ton onglet "fiche de paie"
   Else
   ' dire ici ce que dois faire excel lorsque la personne n'est pas d'accord avec les données saisies
   ' s'il n'y a rien à faire, juste rester sur la page pour qu'il puisse modifier ces saisie, il suffit d'effacer "Else"
   End If

End Sub

Si tu ne sais pas comment mettre la macro ci-dessus, c'est expliqué ici :
https://www.excel-downloads.com/threads/detection-de-couleur.80120/

La mettre dans Module

Ensuite, il ne te restera plus qu'à accrocher cette macro à ton bouton "paie"

 

[Excel-lent]

Re : dur dur je suis bloque

Astuce de VBA, lorsqu'on veut insérer un commentaire on met devant le signe '

Ainsi le logiciel ne tiendra pas compte des caractères qui suivent, il passera directement à la ligne inférieure.

Donc si tu le souhaites, tu peux effacer mes commentaires et/ou en mettre d'autres.

Sur ce, j'éteins mon PC. A+

 

[yoyopasnet]

Re : dur dur je suis bloque

BONJOUR
il y a deja une vba sur le bouton et je ne sais ou mettre la tienne
voici la vba
Sub janvier()
Sheets("01").Select
Range("C19").Select
End Sub
Sub données()
Sheets("Data").Select
Range("A1").Select
Range("d4").Select
End Sub
lorsque on ne valide pas par ok on retourne sur l onglet actif
merci

 

[Excel-lent]

Re : dur dur je suis bloque

Slt Yoyopasnet,

lorsque on ne valide pas par ok on retourne sur l onglet actif

Si c'est ce que tu souhaites, c'est déjà ce que fais le code transmis hier.
Le voici nettoyé de toutes les fioritures inutiles.

Sub DacAvecDonnées()

Dim ValeurMsgbox As Byte

ValeurMsgbox = MsgBox("Etes-vous d'accord avec les donnés?", vbOKCancel)

   If ValeurMsgbox = 1 Then
      Sheets("AAA").Select
   End If

End Sub

La macro ci-dessus ne gênera en rien tes deux macros. Tu peux la rajouter au-dessus, entre les deux, à la fin, c'est sans importance.

 

[yoyopasnet]

Re : dur dur je suis bloque

ca marche pas "impossible d execute le code en mode arret" Lai je bien mis?

Sub janvier()
Sheets("01").Select
Range("C19").Select
Sub DacAvecDonnées()

Dim ValeurMsgbox As Byte

ValeurMsgbox = MsgBox("Etes-vous d'accord avec les donnés?", vbOKCancel)

If ValeurMsgbox = 1 Then
Sheets("AAA").Select
End If

 

[Cousinhub]

Re : dur dur je suis bloque

Bonsoir, yoyo (net ou pas, that is the question?😉)
Au cas où, peut-être un fichier allégé, exempt de toutes données confidentielles, avec toutes les avancées acquises, le code que tu utilises, et surtout ce que tu souhaites obtenir.
Si tu pouvais le joindre, ce ne serait que plus facile, afin de continuer dans la voie, et surtout pouvoir t'aider.
Amicordialement

 

[Excel-lent]

Re : dur dur je suis bloque

Hello Yoyopasnet

Sub janvier()
    Sheets("01").Select
    Range("C19").Select
End Sub

Ceci est ta première macro, appelé Janvier

Ta première macro demande à Excel de sélectionner l'onglet 01
Puis dans cette onglet, sélectionner la cellule [C19]

Sub données()
    Sheets("Data").Select
    Range("A1").Select
    Range("d4").Select
End Sub

Ceci est ta deuxième macro, appelé données

Ta deuxième macro demande à Excel de sélectionner l'onglet Data
Puis dans cette onglet, sélectionner la cellule [A1] puis la cellule [D4]

A mon avis, la ligne

Range("A1").Select

te sert à rien, tu peux l'effacer.

Et en dessous tu colles la macro posté précédemment.

Normalement, entre chaque macro, tu as un trait fin gris

 

[yoyopasnet]

Re : dur dur je suis bloque

Ok demain je compresse la feuille 36 onglet et je post
merci

 

[Excel-lent]

Re : dur dur je suis bloque

A première vue,

Tu devrais avoir sur un onglet : n'importe lequel sauf l'onglet 01, un bouton (ou dessin) appelé par exemple Je veux aller sur l'onglet janvier

A ce bouton, la macro janvier est attaché.

Ainsi lorsque l'utilisateur clic sur ce bouton, il va automatiquement sur l'onglet 01 cellule [C19].

Même logique pour ta seconde macro.

Si tes boutons ou dessins ne sont pas encore fait :
Etape 1 : faire le dessin ou bouton
Etape 2 : placer ton curseur sur le dessin ou bouton, clic droit, "affecter une macro", puis sélectionner la macro voulu dans la liste.

P.S. : si tu veux, tu peux affecter ta(es) macro(s) plusieurs fois.
Ainsi tu peux mettre le bouton Je veux aller sur l'onglet janvier sur l'onglet RECAP et 02 et ... et à chaque fois affecter la macro janvier

A+

 

[yoyopasnet]

Re : dur dur je suis bloque

La le yoyo il est pas net je n avait pas accroche la macro
maintenant ca marche ahouu ahouu merci grand sorcier du vba
si jamais! non s est sur j aurai d'autre probleme car une solution appelle 2 problemes pius-je faire appel a toi

et encore merci grand sorcier excel vba et autre bon la j arrete les plomb on sautés