forum d'entraide Sketchup Artlantis Archicad et bien d'autres
Bonjour sunny

Bonjour et bienvenue sur biblio3d, forum destiné à l'entraide concernant plus particulièrement les logiciels

SKETCHUP - ARTLANTIS - ARCHICAD - PIRANESI
Basketball

Attention : concernant les nouveaux venus, l'inscription est obligatoire pour accéder à la totalité du forum. Après inscription, veuillez vous présenter dans la section adéquate. Nous serons ravis de vous souhaiter la bienvenue dans la communauté ! sourire
Galerie


Excell et liste de choix Empty
addthis
Derniers sujets
» [ PRESENTATION ] Pierre-Jean
par Coulou Aujourd'hui à 16:55

» [ MATOS INFORM. ] LE STYLO SOURIS
par tenrev Aujourd'hui à 16:27

» [ PRESENTATION ]
par tenrev Aujourd'hui à 10:22

» [ AUTRES LOGICIELS ] Game Builder by Google (free)
par YPY Hier à 15:49

» [ AUTRES LOGICIELS ] Fusion 360
par tenrev Hier à 13:11

» [Houdini] pour le jeu vidéo...
par Pilou Hier à 10:38

» [ CINEMA4D ] Tuto UV Mapping CINEMA4D (anglais)
par YPY Mer 17 Juil 2019 - 11:21

» [ SKETCHUP ] PB3 ou les Assemblages paramétriques en folie!
par Pilou Mar 16 Juil 2019 - 23:26

» [ AUTRES LOGICIELS ] Manu
par tenrev Lun 15 Juil 2019 - 12:15

» [ CINEMA4D ] Créez un Virus (Générateur de Volume / Mailleur de Volume + Extrusion Matricielle) C4D r20
par YPY Lun 15 Juil 2019 - 7:31

» [ AUTRES LOGICIELS ] EbSynth Vos vidéos en dessins animés!
par YPY Mer 10 Juil 2019 - 17:24

» [ MATOS INFORM. ] sortie du Raspberry Pi 4B/4GB
par tenrev Mar 9 Juil 2019 - 10:04

» [AUTRES LOGICIELS] Moi3D 4.0 - 64 bits Mac / PC 26 Février 2019
par Pilou Ven 5 Juil 2019 - 11:01

» [ PRESENTATION ] Je peux venir ? Hein je peux ?
par Markus-83 Jeu 4 Juil 2019 - 21:21

» [ CINEMA4D ] FREE 3D Scan by RenderPeople (3DS MAX, Maya, C4D, FBX)
par Pilou Jeu 4 Juil 2019 - 15:47

» [ PRESENTATION ] Salut à tous !
par Coulou Mer 3 Juil 2019 - 10:50

» [ ARCHICAD ] Traducteur DXF-DWG requis manquant
par Wutxo Lun 1 Juil 2019 - 15:07

» [ SKETCHUP plugins ] Medeek - tout pour la maison en bois
par Pilou Sam 29 Juin 2019 - 23:46

» [ AUTRES LOGICIELS ] BricsCad Shape tribulations...
par tenrev Ven 28 Juin 2019 - 9:53

» [ ARCHICAD ] TUTO - Exporter un projet entier en DWG de manière efficace.
par Wutxo Ven 28 Juin 2019 - 7:58

» [ CINEMA4D ] VIMEO Channel VRAYforC4D (Fabio Palvelli)
par YPY Jeu 27 Juin 2019 - 14:40

» [ WIP ] Projet en cours WUTXO
par Wutxo Jeu 27 Juin 2019 - 14:07

» [ ARTLANTIS ] Artlantis 6.5 sur Mojave (OS 10.14)
par loic46 Mer 26 Juin 2019 - 23:28

» Nouveau Plugin de TIG Lattice Maker
par Pilou Mer 26 Juin 2019 - 23:15

» [ SKETCHUP plugins ] Didier Bur fait des fenêtres!
par Pilou Mer 26 Juin 2019 - 23:09

biblio3d
biblio3d sur facebook
biblio3d sur Linkedin
pinterest
upload



Uploader ici vos fichiers
à partager sur le forum

livre doh Sketchup

Les posteurs les plus actifs du mois
Coulou
Excell et liste de choix Vote_lcapExcell et liste de choix Voting_barExcell et liste de choix Vote_rcap 
tenrev
Excell et liste de choix Vote_lcapExcell et liste de choix Voting_barExcell et liste de choix Vote_rcap 
Pilou
Excell et liste de choix Vote_lcapExcell et liste de choix Voting_barExcell et liste de choix Vote_rcap 
YPY
Excell et liste de choix Vote_lcapExcell et liste de choix Voting_barExcell et liste de choix Vote_rcap 
nono.lerat
Excell et liste de choix Vote_lcapExcell et liste de choix Voting_barExcell et liste de choix Vote_rcap 
pb3d
Excell et liste de choix Vote_lcapExcell et liste de choix Voting_barExcell et liste de choix Vote_rcap 
Markus-83
Excell et liste de choix Vote_lcapExcell et liste de choix Voting_barExcell et liste de choix Vote_rcap 
youyou40
Excell et liste de choix Vote_lcapExcell et liste de choix Voting_barExcell et liste de choix Vote_rcap 
AK40Cess
Excell et liste de choix Vote_lcapExcell et liste de choix Voting_barExcell et liste de choix Vote_rcap 
cestquoiladresse
Excell et liste de choix Vote_lcapExcell et liste de choix Voting_barExcell et liste de choix Vote_rcap 

Statistiques
Nous avons 15561 membres enregistrés
L'utilisateur enregistré le plus récent est Kobalt32

Nos membres ont posté un total de 149293 messages dans 12305 sujets

Excell et liste de choix

Page 1 sur 2 1, 2  Suivant

Aller en bas

Excell et liste de choix Empty Excell et liste de choix

Message par Sebdhem le Lun 13 Sep 2010 - 20:49

Je vous explique mon nouveau problème qui, j'espère, trouvera sa solution.

Je suis en train de réaliser une fiche d'estimation rapide de logements sur excell mais je suis confronté à plusieurs problèmes dont celui-ci :

J'ai fait une liste de choix avec les différents types de constructions que je veux estimer (construction ossature bois et construction traditionnelle) et je voudrais pouvoir, lorsque je choisis tel ou tel type, "programmer" la valeur de base de l'estimation.

Par exemple : je choisis construction ossature bois : le prix de base est de X€ du m², je rentre mes surfaces et j'ai mon estim. Si je choisis après "construction traditionnelle", le prix de base se modifie et recalcule mon estim.

Il me manque juste savoir comment lier la liste de choix avec le prix de base

Algorithme simple :
Si cellule A contient "construction ossature bois" alors cellule B = prix X (le prix X est dans cellule X)
Si cellule A contient "construction traditionnelle" alors cellule B = prix Y (le prix Y est dans cellule Y)
Sinon cellule B = 0

Mais je n'arrive pas à coder cela en mettant cette structure.
Sebdhem
Sebdhem
V.I.P.
V.I.P.

Masculin Taureau
Date d'inscription : 24/09/2009
Nombre de messages : 1055
Points : 1225
Age : 38
Localisation : Aisne
Emploi : Dessinateur Assistant Architecte - Maître d'Oeuvre - Économiste de la construction

http://www.sd-architecture.fr

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par ga le Lun 13 Sep 2010 - 21:28

Tu veux du code vba ou une formule ?

-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!

Jérôme
ga
ga
méga posteur
méga posteur

Masculin Scorpion
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 42
Localisation : Chez moi !........
Emploi : Charpentier

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par Sebdhem le Lun 13 Sep 2010 - 21:31

j'avais essayé avec une formule donc si c'est possible, je préfèrerais rester en formules
Sebdhem
Sebdhem
V.I.P.
V.I.P.

Masculin Taureau
Date d'inscription : 24/09/2009
Nombre de messages : 1055
Points : 1225
Age : 38
Localisation : Aisne
Emploi : Dessinateur Assistant Architecte - Maître d'Oeuvre - Économiste de la construction

http://www.sd-architecture.fr

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par ga le Lun 13 Sep 2010 - 21:37

formule à copier dans B1
=SI(A1="construction ossature bois";"x";"y")
ce qui veux dire : si la cellule A1 est égale à "construction ossature bois " alors affiche "x" sinon affiche "y".
X le tarif construction ossature bois , Y tarif tradi .

-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!

Jérôme
ga
ga
méga posteur
méga posteur

Masculin Scorpion
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 42
Localisation : Chez moi !........
Emploi : Charpentier

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par Sebdhem le Lun 13 Sep 2010 - 21:46

pour x et y, je peux remplacer par l'adresse d'une cellule?

comme ça :
=SI(A1="construction ossature bois";A3;A4)

je vais tester.
Sebdhem
Sebdhem
V.I.P.
V.I.P.

Masculin Taureau
Date d'inscription : 24/09/2009
Nombre de messages : 1055
Points : 1225
Age : 38
Localisation : Aisne
Emploi : Dessinateur Assistant Architecte - Maître d'Oeuvre - Économiste de la construction

http://www.sd-architecture.fr

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par ga le Lun 13 Sep 2010 - 21:48

bien sur

-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!

Jérôme
ga
ga
méga posteur
méga posteur

Masculin Scorpion
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 42
Localisation : Chez moi !........
Emploi : Charpentier

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par Sebdhem le Lun 13 Sep 2010 - 21:50

Merci Ga pour ta formule, j'ai réussi à la mettre sans problème pour le codage de l'estimation.

Sebdhem
Sebdhem
V.I.P.
V.I.P.

Masculin Taureau
Date d'inscription : 24/09/2009
Nombre de messages : 1055
Points : 1225
Age : 38
Localisation : Aisne
Emploi : Dessinateur Assistant Architecte - Maître d'Oeuvre - Économiste de la construction

http://www.sd-architecture.fr

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par ga le Lun 13 Sep 2010 - 21:53

Code vba a copier dans Workbook
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If [A1] = ("construction ossature bois") Then
[B1] = "x"
End If

If [A1] = ("construction traditionelle") Then
[B1] = "y"
End If
End Sub


-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!

Jérôme
ga
ga
méga posteur
méga posteur

Masculin Scorpion
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 42
Localisation : Chez moi !........
Emploi : Charpentier

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par Sebdhem le Lun 13 Sep 2010 - 22:00

ga a écrit:Code vba a copier dans Workbook
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If [A1] = ("construction ossature bois") Then
[B1] = "x"
End If

If [A1] = ("construction traditionelle") Then
[B1] = "y"
End If
End Sub


Enfin, là on joue pas dans la même catégorie... et par rapport à toi, je suis newby sur excell... moi ça reste du basique...

T'as appris tout ça où?
Sebdhem
Sebdhem
V.I.P.
V.I.P.

Masculin Taureau
Date d'inscription : 24/09/2009
Nombre de messages : 1055
Points : 1225
Age : 38
Localisation : Aisne
Emploi : Dessinateur Assistant Architecte - Maître d'Oeuvre - Économiste de la construction

http://www.sd-architecture.fr

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par ga le Lun 13 Sep 2010 - 22:10

En créant mon petit "logiciel" Devis&Facture sur la base d'excel , il existe des tas de cours sur excel ,code vba , des forums comme celui-ci et puis Google bien sur .
Pour moi excel est le meilleur des logiciel ... c'est fou tout se qu'on peux en faire .

-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!

Jérôme
ga
ga
méga posteur
méga posteur

Masculin Scorpion
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 42
Localisation : Chez moi !........
Emploi : Charpentier

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par jojo2 le Mar 14 Sep 2010 - 17:33

ga a écrit:En créant mon petit "logiciel" Devis&Facture sur la base d'excel , il existe des tas de cours sur excel ,code vba , des forums comme celui-ci et puis Google bien sur .
Pour moi excel est le meilleur des logiciel ... c'est fou tout se qu'on peux en faire .

Je plussoie ton avis sur Excel! bien

Même s'il n'a pas la portabilité d'autres logiciels, il est très complet et permet de créer facilement des maquettes fonctionnelles voire de très bonnes applis individuelles.


jojo2
modérateur
modérateur

Date d'inscription : 14/11/2009
Nombre de messages : 135
Points : 170

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par ga le Mar 14 Sep 2010 - 19:10

Salut jojo2

_Tu travail sur excel aussi , moi c'était surtout pour me simplifier la vie avec mes devis/facture , maintenant c'est devenu une vrais passion , je cherche toujour d'améliorer mon fichier 'Devis&Facture" tarif auto , userforms , enregistrement auto , imprimer auto avec image de fond , base de donnée pratiquement tout en VBA , je me m'amuse comme un fou langue mdr1 .
_Si tu trafique un peu sur excel VBA je te poserais une question , je suis coincé avec une sortie de Sub via une userform pleure pleure

-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!

Jérôme
ga
ga
méga posteur
méga posteur

Masculin Scorpion
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 42
Localisation : Chez moi !........
Emploi : Charpentier

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par jojo2 le Mar 14 Sep 2010 - 19:29

Salut Ga,

J'eus bricolé le VBA effectivement.
Pose toujours ta question et j'y répondrai avec plaisir si c'est dans mes cordes.

Mais je suppute déja le problème des variables locales de VB. fou

jojo2
modérateur
modérateur

Date d'inscription : 14/11/2009
Nombre de messages : 135
Points : 170

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par ga le Mar 14 Sep 2010 - 19:53

Alors voilas mon code
Code:
Sub Enregister()

If ControlImprimer = 0 Then
AttentionImprimer.Show              <====== problème dans cette userform
End If

 If (Range("G1").Value = "") Then
 LaisserLaTva.Show
End If

 If (Range("A10").Value = "DEVIS") Then
 With ActiveSheet
            Dossier = CStr(.Range("A10").Value)
            Fichier = CStr(.Range("d11").Value) & (.Range(" B5").Value) & (.Range("A2").Value) & Format(Date, " dd-mm-yyyy")
            DossierMere = "J:\devis"
            End With
      If Trim(Dossier) = "" Then Exit Sub
      If Trim(Fichier) = "" Then Exit Sub
Dim Nom As String
Nom = [b5]
Sheets("Devis").Copy
ActiveWorkbook.SaveAs "j:" & Dossier & "" & Fichier & ".xls"
Workbooks("Devis&Facture++.xls").Close False

Else

  TTC = Sheets("Devis").Range("E97").Value
  Sheets("Chiffre d'affaire").Range("A500").End(xlUp).Offset(1, 0).Value = TTC
 
 With ActiveSheet
 
            Dossier = CStr(.Range("A10").Value)
            Fichier = CStr(.Range("d11").Value) & " " & (.Range(" B5").Value) & Format(Date, " dd-mm-yyyy")
            DossierMere = "J:\devis"
            End With
      If Trim(Dossier) = "" Then Exit Sub
      If Trim(Fichier) = "" Then Exit Sub

Nom = [b5]
Sheets("Devis").Copy
ActiveWorkbook.SaveAs "J:" & Dossier & "" & Fichier & ".xls"

'sélectionne un classeur
Workbooks("Devis&Facture++.xls").Activate

  Sheets("Sauvegarde").Select
    Range("A2:E99").Select
    Selection.Copy
    Sheets("Devis").Select
    Range("A2:E99").Select
    ActiveSheet.Paste
    Range("B5").Select
    Sheets("Sauvegarde").Select
    Range("B5").Select
    Application.CutCopyMode = False
   
   
   
Sheets("Options").Range("e2").Value = Sheets("Options").Range("e2").Value + 1


    Sheets("Devis").Select
    Rows("41:94").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=-51
    Range("B5").Select
    Workbooks("Devis&Facture++.xls").Close True
   

   
End If
                                    <============ j'aimerais une fois cliqué sur "Annuler" dans ma  userform AttentionImprimer.Show que le programme arrive ici 
End Sub

Simplement avant l'enregistrement je vérifie si l'utilisateur a bien imprimer le document , si oui le programme continu , si non il va directement a End sub (il n'enregistre pas ) comme un GOTO .
Voilas mon souci en espérant que tu puise m'aidé sa serais cool
:icon_mrgreen: :icon_mrgreen:

-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!

Jérôme
ga
ga
méga posteur
méga posteur

Masculin Scorpion
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 42
Localisation : Chez moi !........
Emploi : Charpentier

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par jojo2 le Mar 14 Sep 2010 - 21:36

Il me faudrait le code de ton userForm "AttentionImprimer" pour bien comprendre.

Mais avec les éléments que tu m'as donné, je pense que le principe serait:

Dans AttentionImprimer:
Code:
Public Annulation = false

Private Sub UserForm_Activate()
    Me.Annulation = false
End Sub

Private Sub Bouton_ANNULER_Click():
    Me.Annulation = true
    Unload Me
End Sub

Dans ton Main:
Code:
Sub Enregister()

If ControlImprimer = 0 Then
    AttentionImprimer.Show           
    if AttentionImprimer.Annulation = true Then Exit Sub
End If

 If (Range("G1").Value = "") Then
etc....

A tester car j'ai écrit ce code de mémoire veille de 8 ans maintenant... saispas

jojo2
modérateur
modérateur

Date d'inscription : 14/11/2009
Nombre de messages : 135
Points : 170

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par ga le Mar 14 Sep 2010 - 21:41

Merci joj2
Je regarde çà demain et je te tiens au courant bravo
Merci de ton aide bien

-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!

Jérôme
ga
ga
méga posteur
méga posteur

Masculin Scorpion
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 42
Localisation : Chez moi !........
Emploi : Charpentier

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par jojo2 le Mar 14 Sep 2010 - 21:59

de rien! aurevoir

jojo2
modérateur
modérateur

Date d'inscription : 14/11/2009
Nombre de messages : 135
Points : 170

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par ga le Mer 15 Sep 2010 - 20:12

Bonsoir
j'ai modifier des lignes car il me renvoyé quelques erreurs voilas ce que sa donne :
Code:
Private Sub AttentionImprimer_Activate()
    Me.Annuler = True
End Sub

Private Sub Annuler_Click()
    Me.Annuler = False
    Unload Me
End Sub

Private Sub Ok_Click()
    Unload Me
End Sub


Ainsi que celui-ci :
Code:
Sub Enregister()

If ControlImprimer = 0 Then
AttentionImprimer.Show
If AttentionImprimer.Annuler = True Then Exit Sub
End If

 If (Range("G1").Value = "") Then etc..........
Mais sa ne marche pas , en exécutant le code pas à pas (F8) il passe bien partout sauf qu'il me renvois toujours "Me.Annuler = Faux" donc il poursuit toujours le code comme si j'avais cliqué sur "Ok"
hmm hmm

Il me faudrait le code de ton userForm "AttentionImprimer" pour bien comprendre.
je n'ai pas de code pour l'userForm , c'est juste une UserForm avec un Label "Vous n'avez pas inprimer ce document !" un deuxiéme Label "Il ne vous sera plus possible de le faire après avoir cliqué sur Ok" avec un bouton "Ok" puis un autre "Annuler" c'est tout .....

-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!

Jérôme
ga
ga
méga posteur
méga posteur

Masculin Scorpion
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 42
Localisation : Chez moi !........
Emploi : Charpentier

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par ga le Mer 15 Sep 2010 - 20:58

Dommage que l'on puise pas faire tout simplement comme ça :
Code:
Private Sub AttentionImprimer_Activate()
    A = 0
End Sub

Private Sub Annuler_Click()
    A = 1
    Unload Me
End Sub

Private Sub Ok_Click()
    Unload Me
End Sub
et
Code:
Sub Enregister()

If ControlImprimer = 0 Then
AttentionImprimer.Show
If A = 1 Then Exit Sub
End If

 If (Range("G1").Value = "") Then etc ......
fou rigole rigole
le problème c'est que les variables ne se communiques pas entre sub pleure pleure

-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!

Jérôme
ga
ga
méga posteur
méga posteur

Masculin Scorpion
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 42
Localisation : Chez moi !........
Emploi : Charpentier

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par jojo2 le Mer 15 Sep 2010 - 21:21

Salut Ga,

Ton code ne peut pas marcher car tu donnes le même nom "Annuler" à la variable et au bouton. Le bouton n'étant plus actif quand tu vérifies la valeur, tu obtiendras toujours false.
De là, une petite astuce en VB: essaie toujours de nommer tes objets graphiques comme "Bouton_OK", "Liste_Choix" ou "Form_Impression", ça évitera beaucoup de confusions avec la fonction Me. rigole

De plus, si ton formulaire est aussi réduit, pourquoi n'utilises tu pas une Message Box à la place du fomulaire?

Code:
Sub Enregister()
If ControlImprimer = 0 Then
    If MsgBox("Vous n'avez pas inprimer ce document !" & vbCrLf _
                    & "Il ne vous sera plus possible de le faire après avoir cliqué sur Ok", _
                    vbOKCancel, "Contrôle d'Impression") = vbCancel Then Exit Sub
End If
...
++

jojo2
modérateur
modérateur

Date d'inscription : 14/11/2009
Nombre de messages : 135
Points : 170

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par ga le Mer 15 Sep 2010 - 21:26

Parce que je ne sais pas faire langue langue rigole mais je vais essayé ... bien

-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!

Jérôme
ga
ga
méga posteur
méga posteur

Masculin Scorpion
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 42
Localisation : Chez moi !........
Emploi : Charpentier

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par ga le Mer 15 Sep 2010 - 21:44

Ouaaaaaas sa marche nickel bien bien
milles merci jojo2 respect bravo2 :icon_mrgreen: :icon_mrgreen:

Par contre je vais avoir un autre problème c'est sur ma deuxième ligne :
Code:
If ControlImprimer = 0 Then

Car pour faire le teste j'ai simplement rajouté en fin de ma sub "ImprimerOriginalCopie" ceci :
Code:
 ControlImprimer = 1

voici ma sub ImprimerOriginalCopie
Code:
Sub ImprimerOriginalCopie_QuandClic()
'
'
'
' Touche de raccourci du clavier: Ctrl+i

 If (Range("G1").Value = "") Then
 LaisserLaTva.Show
End If

    With ActiveSheet.PageSetup
.BlackAndWhite = True
End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
   
    With ActiveSheet.PageSetup
.BlackAndWhite = Faste
End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

If Sheets("Devis").Range("G1").Value = ("1") And Range("A10").Value = "DEVIS" Then
 
 Sheets("TVA 5,5%").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Devis").Select
 End If
 ControlImprimer = 1

End Sub
Et bien sur sa ne marche pas , comment faut faire pour que les variables communiquent entre différentes sub ?


PS : Promis sa sera ma dernière question , je profite d’avoir un amoureux du VBA en ligne pour pouvoir m'amélioré rigole :icon_wink: :icon_wink:

-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!

Jérôme
ga
ga
méga posteur
méga posteur

Masculin Scorpion
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 42
Localisation : Chez moi !........
Emploi : Charpentier

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par jojo2 le Mer 15 Sep 2010 - 22:06

Dans ce cas précis, c'est encore un problème de variable locale.

Alors pour partager une variable dans un script VB, il faut déclarer au début de ta feuille principale (module Main):
Code:
Public ControlImprimer as Integer

Je ne vais pas plus loin car le sujet est vaste.

Content d'avoir pu t'aider. aurevoir
++

jojo2
modérateur
modérateur

Date d'inscription : 14/11/2009
Nombre de messages : 135
Points : 170

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par ga le Mer 15 Sep 2010 - 22:08

Ok et merci encore jojo2 :icon_wink:

-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!

Jérôme
ga
ga
méga posteur
méga posteur

Masculin Scorpion
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 42
Localisation : Chez moi !........
Emploi : Charpentier

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par Fab le Jeu 16 Sep 2010 - 10:25

ga a écrit:En créant mon petit "logiciel" Devis&Facture sur la base d'excel , il existe des tas de cours sur excel ,code vba , des forums comme celui-ci et puis Google bien sur .
Pour moi excel est le meilleur des logiciel ... c'est fou tout se qu'on peux en faire .
Tu m'as coupé l'herbe sous le pied Jérôme il est vraiment superbe se cite merci... respect respect
Fab
Fab
modérateur
modérateur

Masculin Sagittaire
Humeur : Rester COOL......
Date d'inscription : 03/10/2008
Nombre de messages : 4575
Points : 4993
Age : 52
Localisation : Eure
Emploi : Dessinateur en bâtiment et génie civil

Revenir en haut Aller en bas

Excell et liste de choix Empty Re: Excell et liste de choix

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Page 1 sur 2 1, 2  Suivant

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum