Macros EXEL 97

Choupinou

XLDnaute Nouveau
Bonjour .


Voila je fait pour une alliance dans un jeu un système de revient (en argent du jeu) sur des objet gagner dans ce jeu en fonction de la présence de ce membre et des autres qui on jouer avec lui a ce moment la.


J'ai déjà pus effectuer un bon nombre de calcul grâce a des fonctions et quelques macros toute simple avec des boutons (mettre une valeur a 1 et la remettre a 0 ^^) .


Mais j'ai 3 gros soucis en face de moi :




1] Le premier est :

Un remise a zéro de l'argent gagner (c'est a dire TOTO a 3 millions d'euros et ben je veut lui mettre a zéro) .

Cela parait simple vous me dirait mais le problème c'est que comme je vous l'ai dis se SONT DES objets gagner donc il y en a plusieurs (3 exactement) .

Pour cela j'avais penser de faire apparaitre une petite fenêtre (feuille sous exel et formulaire sous Acess), et dans cette petite fenêtre y mettre les 3 boutons qui remettent a 0 les euros ^^ .


J'avais essais ce code :

Code:
Sub ResetClay()
On Error GoTo Err_ResetClay

    Dim stDocName As String
    Dim stLinkCriteria As String
    
    stDocName = "FenetreSuprClay"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    
Exit_ResetClay:
    Exit Sub
    
Err_ResetClay:
    MsgBox Err.Description
    Resume Exit_ResetClay
    
End Sub

Mais Exel me dit :


Une solution ou une aide ???




2] Mon second problème est très très important !!

Le voici :

Je vous ai parler dans mon premier problème de valeur en euros ^^ (sisi souvenez vous avec TOTO et ces 3 millions :O ) .

C'est 3 millions sont possible a voir grâce a une suite de calcul avec la fonction SI qui dépend de valeur vraie ou fausse .

Donc si la valeur est a 1 tant mieux il y a les 3 millions mais si je remet a 0 les 3 millions disparaisse :O .

Je voudrais donc savoir si c'est possible par le biais d'une macro de sauvegarder ces 3 millions autre part (feuille 2 spossible ? :p) afin de pouvoir les utiliser ultérieurement .




3] Le petit dernier après vous avoir bien dégouter de mes demandes précédentes ^^ :

Comme il s'agit de bouton ^^, et qu'il y a sur ma feuille environ 25 noms et que les valeurs sont cacher derrière les boutons (esthétique ^^) .


La personne qui appuie sur le bouton n'a donc évidement aucun retour visuelle pour savoir si il a bien choisie la bonne personne a compter :p .

Je voudrais donc savoir (décidément je veut savoir beaucoup de choses ^^) si cela serait possible de changer la couleur (non pas de la cellule) mais du bouton lui MEME ou du texte qu'il y a sur lui ^^ .

Bien sur la couleur sera désactiver une fois les données sauvegarder et les valeurs remise a zéros (j'ai crée un bouton sauvegarde qui doit sauvegarder,remettre a zéro et compter ^^).





Bien entendue je suis a votre entière disposition afin de pouvoir vous aider au maximum dans votre aide =) .


Merci d'avance !!


Amicalement Choupinou .
 

Choupinou

XLDnaute Nouveau
Re : Macros EXEL 97

Bonjour !


Oui j'ai essaie le fameux coup tu acces dans exel ^^ . sans succès ! :p


Pour ce qui est du point 2 (presque) et 3 ceci est régler !!! ^^


J'ai trouvé la solution il fallait faire l'enregistrement de la macro et faire la manip manuellement pour que cela m'écrive les ligne ^^ .




Pour la 2 voici le code :


Code:
       Range("E9:G53").Select
    Selection.Copy
    Sheets("Feuille2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 2
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    With Selection.Interior
        .ColorIndex = 2
        .Pattern = xlSolid
        .PatternColorIndex = 8
    End With
    Sheets("Feuille1").Select

Ceci est pour la sauvegarde du 2 ^^ .Sont seul probleme lors de cette copie est que les case en feuille 2 renvoie #REF! car toutes les cases utiliser dans la feuille 1 devienne #ref! en feuille 2 :/.




Code:
ActiveSheet.Shapes("Button 50").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With

et ceci pour enlever le rouge sur le bouton du 3 .






Pour ce qui est du 3 c'est a peut près le même principe que le second code du 2 ^^ :


Code:
ActiveSheet.Shapes("Button 50").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 3
    End With
 

tototiti2008

XLDnaute Barbatruc
Re : Macros EXEL 97

Re,

en effet, les codes Access collés en Excel ne fonctionnent pas toujours, surtout que le code Access en question affichait un formulaire, et qu'il n'y a pas de formulaires en Excel, mais des UserForm.

Pour le reste je suis content que tu ais trouvé des solutions mais comme de mon côté je n'ai même pas un fichier exemple, difficile de commenter.
 

jeanpierre

Nous a quitté
Repose en paix
Re : Macros EXEL 97

Bonjour Choupinou, re toto,

C'est quoi ce site ? Faut s'identifier pour télécharger ?

Utilise cijoint.fr au pire et si ton fichier est zippé il pourra peut-être passer sur le forum. (peut-être pas besoin de tout...)

Bon AM

Jean-Pierre
 

Choupinou

XLDnaute Nouveau
Re : Macros EXEL 97

jeanpierre à dit:
Les #REF! sont plutôt en rapport à une référence (feuille) qui à disparu.


Choupinou à dit:
Ceci est pour la sauvegarde du 2 ^^ .Sont seul probleme lors de cette copie est que les case en feuille 2 renvoie #REF! car toutes les cases utiliser dans la feuille 1 devienne #ref! en feuille 2 :/.


;)


Et les valeurs une fois tout remis en ordre s'afficheront que si on appuie sur le bouton "Sauvegarder" .
 

Choupinou

XLDnaute Nouveau
Re : Macros EXEL 97

Personne a un code a me proposer pour faire afficher la fameuse "UserForm" ??


:(


Pour ce qui est de la sauvegarde j'ai réussit a dénicher cela :


Code:
 With Sheets(Me.Next.Name)
         .[E9] = Me.[E9]
          End With

Cela permet de copier et de sauvegarder dans une celle de la seconde feuille .
Mais le seul problème c'est que ces données je voudrais les rajouter donc (+) a la cellule qui a était copier .

en Gros:

E9 de la feuille 1 = calcul+ E9 de la feuille 2


Donc si toto a 3 million la première fois, j'aimerais qu'il est 6 millions la seconde fois c'est possible ca ??
 

Choupinou

XLDnaute Nouveau
Re : Macros EXEL 97

Voila une dernière version sans les #REF! . grace au calcul de mon post précendent .


Si au passage vous pouvez me donner des pti conseille pour réduire les ligne de code pour els macrso ca serait cool (car bon beaucoup de code fonctionne pour 1 cellule donc ca fait beaucoup de code :/) .


Cliquer ICI
 

Discussions similaires

Réponses
13
Affichages
261
Réponses
3
Affichages
156

Statistiques des forums

Discussions
312 164
Messages
2 085 877
Membres
103 009
dernier inscrit
dede972