Discussion :

[haffinger]

bonjour


J’ai créé dans la cellule B7 un menu déroulant.
Puis une macro intitulée « comptable » qui remplit le tableau sur la feuille comptable
Mais les valeurs ne vont pas dans les bonnes cellules de destination alors que dans la macro, j’ai bien spécifié celle-ci.
Si quelqu’un peux m’aider à résoudre ce problème
Je le remercie d’avance.


Animations F11 copier dans « feuille comptable » dans colonne F
Découverte poney F12 copier dans « feuille comptable » dans colonne F
Forfait anniversaire F13 copier dans « feuille comptable » dans colonne F
Balade 1h F14 + G14 copier dans « feuille comptable » dans colonne F pour F14 et G pour G14
Tiers pension box cheval F15 copier dans feuille comptable dans colonne H

ci dessous fichier de la macro
http://www.cjoint.com/c/GArhYRl2ROj

[Igloobel]

Bonjour,

Fais le avec l'assistant macro et reviens vers nous avec la macro généré par Excel

[haffinger]

Bonjour,

Fais le avec l'assistant macro et reviens vers nous avec la macro généré par Excel

Bonjour,
la macro effectué dans le fichier joint m'a été donné, car je n'y connait rien
c'est pour cela que j'ai posté le fichier en lien

tu me demandes d'effectué la macro avec [QUOTE]
je veux bien le faire, mais mettre ou ce module dans le programme
merci de m'aiguiller
lien du fichier pour la macro a corriger => http://www.cjoint.com/c/GArhYRl2ROj

[Menhir]

ci dessous fichier de la macro

c'est pour cela que j'ai posté le fichier en lien

http://www.developpez.net/forums/d84...s-discussions/

Je te conseille plutôt de faire un copier/coller du code dans un message de ce sujet en l'encadrant de balises CODE.
http://club.developpez.com/regles/#LIII-E

Mais les valeurs ne vont pas dans les bonnes cellules de destination alors que dans la macro, j’ai bien spécifié celle-ci.

La macro placera la valeur dans la cellule demandée.
Si elle se place dans une autre, c'est qu'on lui a demandé ainsi.

la macro effectué dans le fichier joint m'a été donné, car je n'y connait rien

Ce qui rend l'affirmation précédente (spécification correcte de cellule) peu fiable.

[haffinger]

ci joint un copier coller de la page excel
suivi de la macro et la demande pour réaliser ceci :

Animations F11 copier dans « feuille comptable » dans colonne F
Découverte poney F12 copier dans « feuille comptable » dans colonne F
Forfait anniversaire F13 copier dans « feuille comptable » dans colonne F
Balade 1h F14 + G14 copier dans « feuille comptable » dans colonne F pour F14 et G pour G14
Tiers pension box cheval F15 copier dans feuille comptable dans colonne H

étant donné que la réalisation d'une macro et moi, ça fait 2
mais je suis prêt a m'investir dans ce domaine
encore merci, si une personne puisse réaliser ma demande
*********************************************************

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 Sub Macro2()
'
' Macro2 Macro
'
' Touche de raccourci du clavier: Ctrl+b
 
    Jour = Range("B3").Value
    Client = Range("B4").Value
    N°Fact = Range("B6").Value
    Animations = Range("F11").Value
    Découverteponey = Range("F12").Value
    Forfaitanniversaire = Range("F13").Value
    Baladede1h = Range("F14").Value
    Baladede1h = Range("G14").Value
    Tierspensionboxcheval = Range("F15").Value
 
 
    Sheets("comptable").Select
    Range("A1").Select
    If Range("A2").Value <> "" Then Range("A1").End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = Jour
    ActiveCell.Offset(0, 1).Value = Client
    ActiveCell.Offset(0, 2).Value = N°Fact
    ActiveCell.Offset(0, 5).Value = Animations
    ActiveCell.Offset(0, 5).Value = Découverteponey
    ActiveCell.Offset(0, 5).Value = Forfaitanniversaire
    ActiveCell.Offset(0, 3).Value = Baladede1h
    ActiveCell.Offset(0, 6).Value = Baladede1h
    ActiveCell.Offset(0, 7).Value = Tierspensionboxcheval
 
    Sheets("facture").Select
 
End Sub

**************************************

[unparia]

Bonjour

la macro effectué dans le fichier joint m'a été donné, car je n'y connait rien

Mais lorsque je lis ces quelques lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sheets("comptable").Select
Range("A1").Select
If Range("A2").Value <> "" Then Range("A1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select

et les lignes qui suivent,
je ne peux m'empêcher de penser que celui qui "t'a donné" cela n'y connait vraiment pas grand chose non plus !
Que de détours inutiles pour parvenir à du simple !

[Marc-L]

Bonjour,

conformément aux règles de ce forum, il faut poster le code entrepris balisé via l'icône #.

Pour rappel le VBA exécutant les ordres du code, s'il y a un souci alors le développeur s'est trompé ‼

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …