IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Formule Pour Additionner une Cellule Changeante dans une Autre Cells


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Directeur technique
    Inscrit en
    Août 2017
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Directeur technique
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Août 2017
    Messages : 13
    Points : 0
    Points
    0
    Par défaut Formule Pour Additionner une Cellule Changeante dans une Autre Cells
    Bonjour,

    Je suis un Gros Noob, mais j aime bidouiller sur Excel.
    J aurai une Question Bete ,je cherche depuis hier une solution sur les forum, ca a juste reussi a me donner mal a la tete ...
    J ai une Valeur "G27" de ma Sheet4, qui Change a Chaque Fois que je Double Clic.
    J aimerai Transferer Ces Valeurs dans la Sheet 5 Culum A .

    EX :
    Sheet 4, G27 = 10
    Je voudrais que dans la Sheet 5 Cells A2 la Valeur de 10 vienne automatiquement.
    ensuite si je double clic, la valeur de G27 Va Changer = 12
    Je voudrais que dans la Sheet 5 Cells A3 la Valeur de 12 vienne automatiquement. ( Tout en gardant le 10 en A2)
    et ansi de suite ....

    Merci de votre aide .

  2. #2
    Expert éminent
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Points : 6 871
    Points
    6 871
    Par défaut
    Bonjour,

    Une piste, code à rajouter dans ta procédure évènementielle de la feuille "Sheet4" :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     
        'ici le code pour incrémenter la valeur de la cellule G27
        '...
        '...
        '...
        With Worksheets("Sheet5")
     
            .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).Value = Target.Value 'sur colonne A
     
        End With
     
    End Sub

  3. #3
    Nouveau Candidat au Club
    Homme Profil pro
    Directeur technique
    Inscrit en
    Août 2017
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Directeur technique
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Août 2017
    Messages : 13
    Points : 0
    Points
    0
    Par défaut
    Merci , Mais ca ne fonctionne pas ...
    Rien ne vient dans ma Sheet 5 ...

  4. #4
    Nouveau Candidat au Club
    Homme Profil pro
    Directeur technique
    Inscrit en
    Août 2017
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Directeur technique
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Août 2017
    Messages : 13
    Points : 0
    Points
    0
    Par défaut
    Book2.xlsx

    Si vous Pouviez jetter un Oeil a ma pice jointe , Sheet 4 et 5 ... merci

  5. #5
    Expert éminent sénior
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 200
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 200
    Points : 14 346
    Points
    14 346
    Par défaut
    J ai une Valeur "G27" de ma Sheet4, qui Change a Chaque Fois que je Double Clic.
    J aimerai Transferer Ces Valeurs dans la Sheet 5 Culum A .
    Bonjour,

    Est-ce que ce sont les cellules B5:H5 que tu veux copier sur Sheet5 ?
    Cordialement.

    Daniel

    La plus perdue de toutes les journées est celle où l'on n'a pas ri. Chamfort

  6. #6
    Nouveau Candidat au Club
    Homme Profil pro
    Directeur technique
    Inscrit en
    Août 2017
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Directeur technique
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Août 2017
    Messages : 13
    Points : 0
    Points
    0
    Par défaut
    Non,
    Sur la Sheet 4, Je voudrais que le resultat de la Cells G27 se copie , ou encore mieux s additionne en Sheet 5 Culum A .
    Comme tu as vus, a chaques fois que tu Clic sur Jouer, la Valeur G27 Change, Donc je voudrai Juste Garder en Sheet 5 toutes Ces Valeurs ... Si Possible ...

  7. #7
    Expert éminent sénior
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 200
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 200
    Points : 14 346
    Points
    14 346
    Par défaut
    Dans ce cas le code de Theze le fait, si tu doubles-clique sur G27. Sinon, pour double-cliquer n'importe où, remplace la ligne :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).Value = Target.Value 'sur colonne A
    par :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).Value = [G27] 'sur colonne A
    Cordialement.

    Daniel

    La plus perdue de toutes les journées est celle où l'on n'a pas ri. Chamfort

  8. #8
    Nouveau Candidat au Club
    Homme Profil pro
    Directeur technique
    Inscrit en
    Août 2017
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Directeur technique
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Août 2017
    Messages : 13
    Points : 0
    Points
    0
    Par défaut
    Donc en Faites le Code serait ca ?
    J ai encore du faire un truc etrange ... parce que ca ne marche pas plus ...

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Sub Game()
    Cells(3, 7) = Cells(3, 7) - Cells(3, 2)
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     
        With Worksheets("Sheet5")
     
            .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).Value = [G27] 'sur colonne A
     
        End With
     
    End Sub

  9. #9
    Expert éminent sénior
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 200
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 200
    Points : 14 346
    Points
    14 346
    Par défaut
    Non, la macro événementielle doit se trouver dans le module Sheet4. Fais un clic droit sur l'onglet Sheet4,, clique sur "Visualiser le code" et colle :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     
        'ici le code pour incrémenter la valeur de la cellule G27
        '...
        '...
        '...
        With Worksheets("Sheet5")
     
            .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).Value =[G27].Value 'sur colonne A
     
        End With
     
    End Sub
    dans la partie droite de la fenêtre VBE.
    Cordialement.

    Daniel

    La plus perdue de toutes les journées est celle où l'on n'a pas ri. Chamfort

  10. #10
    Nouveau Candidat au Club
    Homme Profil pro
    Directeur technique
    Inscrit en
    Août 2017
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Directeur technique
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Août 2017
    Messages : 13
    Points : 0
    Points
    0
    Par défaut
    La Classs, Ca Fonctionne en Doucle cliquant. Merci de ta patience

    Et si je veux Simplement Cliquer sur mon Bouton Jouer au Lieu de Double Cliquer ?
    Si c est possible ca serait la Grande Classssss

  11. #11
    Expert éminent sénior
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 200
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 200
    Points : 14 346
    Points
    14 346
    Par défaut
    Tu fais pareil et tu colles la macro :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sub jouer()
     With Worksheets("Sheet5")
        .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).Value = [G27].Value 'sur colonne A
    End With
    End Sub
    Ensuite, tu affectes la macro "Sheet4!jouer" à ton bouton.

    Daniel
    Cordialement.

    Daniel

    La plus perdue de toutes les journées est celle où l'on n'a pas ri. Chamfort

  12. #12
    Nouveau Candidat au Club
    Homme Profil pro
    Directeur technique
    Inscrit en
    Août 2017
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Directeur technique
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Août 2017
    Messages : 13
    Points : 0
    Points
    0
    Par défaut
    ok j ai pige !!!
    Incroyable hein ?
    Merci Enormement pour ton aide !
    t es le King !

  13. #13
    Nouveau Candidat au Club
    Homme Profil pro
    Directeur technique
    Inscrit en
    Août 2017
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Directeur technique
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Août 2017
    Messages : 13
    Points : 0
    Points
    0
    Par défaut
    Une petite derniere question,
    Et pour Stopper la Saisie de donnees Sur Sheet 5 a la Cells A2000, je dois rajouter quoi ? et ou ?

  14. #14
    Expert éminent sénior
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 200
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 200
    Points : 14 346
    Points
    14 346
    Par défaut
    Tu mets :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Sub jouer()
     With Worksheets("Sheet5")
        If .Cells(.Rows.Count, 1).End(xlUp).Row > 2000 Then Exit Sub
        .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).Value = [G27].Value 'sur colonne A
    End With
    End Sub
    Cordialement.

    Daniel

    La plus perdue de toutes les journées est celle où l'on n'a pas ri. Chamfort

Discussions similaires

  1. Réponses: 8
    Dernier message: 29/05/2017, 10h01
  2. Réponses: 13
    Dernier message: 03/05/2017, 09h36
  3. [XL-2010] Copier coller la valeur d'une cellule active dans une cellule bien définie
    Par franckb74 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 03/10/2015, 10h16
  4. [XL-2003] Problème pour renommer un fichier à partir d'une variable contenu dans une cellule
    Par the-geut dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 17/05/2010, 12h43
  5. Réponses: 7
    Dernier message: 13/12/2008, 10h31

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo