Probleme ecriture macro

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

Bonjour,

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

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, …

Citation:

---

Envoyé par Igloobel

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

Citation:

---

Envoyé par haffinger

ci dessous fichier de la macro

---

Citation:

---

Envoyé par haffinger

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

Citation:

---

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.

Citation:

---

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.

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:

---

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

---

**************************************
Pièce jointe 236173

Bonjour

Citation:

---

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:

---

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 ! :pleure:
Que de détours inutiles pour parvenir à du simple !

peut etre
c'est pour ceci que j'ai changé de forum pour venir sur developpez.net
afin de formuler ma demande

que faut il mettre comme code pour y parvenir
merci

Bonjour,

Citation:

---

que faut il mettre comme code pour y parvenir

---

Personne ici ne te donnera un code tout fait!

Ceci étant dit, commençons...

Qu'elles sont les principales erreurs dans ton code?

1. Tu ne déclares aucune variable :
   Jour, Client, N°Fact, Animations, Découverteponey, Forfaitanniversaire, Baladede1h, Baladede1h, Tierspensionboxcheval
   Par exemple, voici ce que tu peux déclarer :
   
   Code:

   ---

   Dim Jour As Date, Client As String, Fact As Long 'etc...

   ---

   Pour cela on ne peut pas t'aider davantage car toi seul connait les caractéristiques de tes données (un texte ne se déclare pas comme un nombre...)
   note : tu alimentes 2 fois la variable Baladede1h donc seule la seconde valeur y est stockée...
2. Les Select et autre ActiveCell sont à bannir !
3. Offset(0, 5) si tu ne changes pas le Range auquel il se réfère te donnera toujours le même Range "d'arrivée".
   Ainsi :
   
   Code:

   ---

   1 2 3

   ActiveCell.Offset(0, 5).Value = Animations ActiveCell.Offset(0, 5).Value = Découverteponey ActiveCell.Offset(0, 5).Value = Forfaitanniversaire

   ---

   ne retiendra, in fine, que le Forfaitanniversaire

Que faire donc?

1. Déclarer les variables : A Lire
2. Utiliser un bloc With ... End With
   Regarde ce que fait cet exemple dans un nouveau classeur.
   Saisi n'importe quoi en A1:A10 de la Feuil1, (assure toi d'avoir une Feuil1 et une Feuil2) et lance ce code :
   
   Code:

   ---

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

   Sub test() Sheets("Feuil1").Select With Sheets("Feuil2") .Range("A1") = Range("A1") .Range("B1") = Range("A2") .Range("C1") = Range("A3") .Range("D1") = Range("A4") .Range("E1") = Range("A5") .Range("F1") = Range("A6") .Range("G1") = Range("A7") .Range("H1") = Range("A8") .Range("I1") = Range("A9") .Range("J1") = Range("A10") End With End Sub

   ---

   Regarde bien le code. Un point devant les Range les réfère à l'objet évoqué dans le With.
   Ainsi
   
   Code:

   ---

   1 2	With Sheets("Feuil2") .Range("A1") = Range("A1")

   ---

   Le .Range("A1") est celui de la feuil2 et le Range("A1") celui de la feuil1.
3. Pour écrire dans la première ligne vide d'une feuille, tu peux utiliser une fonction. Il y en a pléthore sur Internet.
   Par exemple :
   
   Code:

   ---

   1 2 3 4 5 6

   Private Function derlig_reelle(plage As Range) As Long 'cas d'absence de données dans la plage à traiter : If WorksheetFunction.CountA(plage) = 0 Then derlig_reelle = 1: Exit Function 'dans tous les autres cas : derlig_reelle = plage.Find("*", , , , , xlPrevious).Row End Function

   ---

   Pour l'utiliser, ton code d'appel doit ressembler à ceci :
   
   Code:

   ---

   1 2 3 4

   Dim DL As Long DL = derlig_reelle(Sheets("comptable").Columns("A")) + 1 With Sheets("comptable") .Range("A" & DL) = Range("B6")

   ---

Maintenant, à toi d'adapter tout ceci à ton cas.
Une fois fini, reviens ici et montre nous ton code (ou tes essais si tu n'y parviens pas) et on passera à l'étape 2, l'optimisation.

merci
je m'y penche dessus
a+ pour les résultats

Bonjour Franck
Il me parait assez surprenant que le code montré ait été donné, tel quel, sur quelque forum de développement que ce puisse être. Quel développeur aurait écrit de telles "choses" ? Et même ainsi : d'autres forumeurs auraient très probablement réagi à sa lecture.
Il est donc plutôt vraisemblable que le code montré était un code/exemple (une méthode, donc) qui a ensuite été "adapté" sans être vraiment compris.

Salut Jacques,

Citation:

---

Il me parait assez surprenant que le code montré ait été donné, tel quel, sur quelque forum de développement que ce puisse être.

---

Et pourtant...
J'ai, sur un forum que tu connais (notamment pour avoir racheté un forum qui t'es cher il y a quelques temps), tenté (sans succès) pendant des mois de faire évoluer une "helpeuse".

Cela fait maintenant quelques années qu'elle "sévit" sur ce forum en ne donnant aux demandeurs que des macros comme celle présentée ici.
Je ne serais d'ailleurs pas surpris d'apprendre que ce code est d'elle.

Remarque : @haffinger :
1- on n'apprécie pas, en général, qu'une même demande soit postée sur de multiples forums. Pas cool pour ceux qui t'aident bénévolement et souhaitent te suivre jusqu'au bout de ton projet...
2- tu avais déjà entendu (ou vu) parler de With...

Personnellement, je ne vois pas l'intérêt de la macro elle-même.
Tu ferais la saisie directement dans la feuille comptable et tout serait bien plus simple.