Casse tête Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
c
cemoibob
Membre habitué
Membre habitué
Messages : 80
Appréciation reçue : 1
Inscrit le : 23 août 2019
Version d'Excel : 2010

Message par cemoibob » 6 septembre 2019, 12:21

bonjour

alors voilà le projet:

sur la feuille devis je rentre des données quantités en cellule a9 à a11 qui sont renvoyé automatiquement plus bas pour les autres villes
et les données de chaque ville sont renvoyé sur les feuille respective de chaque ville
ensuite je choisi avec la liste déroulante en B2 la ville que je veux imprimer et je click sur créer pdf en D2 ce qui génère la feuille choisi en pdf

et là on arrive au souci du projet; c'est que lorsque la ville est choisi et que le fichier est généré je souhaiterais que les même donnée de la ville choisi
avec la liste déroulante soit renvoyé sur la feuille BL


en fichier joint le projet:
le classeur joint est un exemple du classeur original
et le code vba correspond au classeur original

merci pour votre aide et de l'intérêt porté à ce projet
projetcemoibob (1) (1).xlsm
(32.21 Kio) Téléchargé 5 fois
c
cemoibob
Membre habitué
Membre habitué
Messages : 80
Appréciation reçue : 1
Inscrit le : 23 août 2019
Version d'Excel : 2010

Message par cemoibob » 6 septembre 2019, 18:34

:) personne ne s'attaque a mon problèmes,
vu 29 fois et téléchargé mais personne!! :oops:
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'670
Appréciations reçues : 108
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 6 septembre 2019, 23:44

Bonjour toutes et tous
Si cela peut aider pour la liste déroulante un début pour la feuille devis après, je ne sais pas :oops:
Private Sub Worksheet_Change(ByVal Target As Range)
'declaration variable
Dim i$
i = Range("b2").Text
 If Cells(2, 2) <> "" Then
  Sheets(i).Activate
 End If
End Sub
crdlt,
André
c
cemoibob
Membre habitué
Membre habitué
Messages : 80
Appréciation reçue : 1
Inscrit le : 23 août 2019
Version d'Excel : 2010

Message par cemoibob » 7 septembre 2019, 18:19

Andre13 a écrit :
6 septembre 2019, 23:44
Bonjour toutes et tous
Si cela peut aider pour la liste déroulante un début pour la feuille devis après, je ne sais pas :oops:
Private Sub Worksheet_Change(ByVal Target As Range)
'declaration variable
Dim i$
i = Range("b2").Text
 If Cells(2, 2) <> "" Then
  Sheets(i).Activate
 End If
End Sub
crdlt,
André
bonsoir
merci pour ton aide! c'est très gentil de ta part
cordialement
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • casse tête
    par chtimili » 8 novembre 2016, 09:01 » dans Excel - VBA
    5 Réponses
    211 Vues
    Dernier message par chtimili
    8 novembre 2016, 10:41
  • Casse-tête
    par ctrl-alt-del » 28 juin 2014, 20:37 » dans Excel - VBA
    5 Réponses
    501 Vues
    Dernier message par tulipe_4
    7 juillet 2014, 21:08
  • Casse Tête
    par squallor72 » 4 août 2015, 12:07 » dans Excel - VBA
    3 Réponses
    330 Vues
    Dernier message par squallor72
    13 août 2015, 14:17
  • help casse tête ;)
    par kumade44 » 7 février 2019, 06:30 » dans Excel - VBA
    15 Réponses
    753 Vues
    Dernier message par kumade44
    8 février 2019, 13:33
  • Planning - casse tête
    par Babou193 » 19 octobre 2019, 12:13 » dans Excel - VBA
    2 Réponses
    116 Vues
    Dernier message par Babou193
    20 octobre 2019, 17:35
  • casse tête : taux d'impot
    par Sassi » 15 décembre 2018, 13:34 » dans Excel - VBA
    6 Réponses
    175 Vues
    Dernier message par Sassi
    15 décembre 2018, 17:00