Ton bloc notes
Derniers sujets
» [ SKETCHUP généralité ] Problème avec le 3d warehouse
par tenrev Jeu 25 Juil 2024 - 11:35
» [ INTELLIGENCE ARTIFICIELLE ] quelques vidéo IA
par tenrev Mer 24 Juil 2024 - 13:37
» [ SKETCHUP généralité ] modélisation rapide d'un grand pouf style "fatboy"
par tenrev Mer 24 Juil 2024 - 13:30
» [ SKETCHUP généralité ] Retourner le long de
par vick Mar 23 Juil 2024 - 15:17
» [ ENSCAPE ] tuto rendu style "studio" et amélioration avec IA
par tenrev Mar 23 Juil 2024 - 13:43
» [ SKETCHUP généralité ] short sur youtube bien organiser les scénes
par tenrev Mar 23 Juil 2024 - 13:40
» [ SKETCHUP composants dynamiques ] un petit short youtube qui montre une utilisation de composants dynamiques
par tenrev Mar 23 Juil 2024 - 13:35
» [ SKETCHUP plugins ] Parametric Modeling
par Anar Mar 23 Juil 2024 - 10:11
» [ SKETCHUP plugins ] Universal Importer
par tenrev Sam 20 Juil 2024 - 19:55
» [ D5_RENDER ] Le Cull effect dans un scatter
par Gaspard Hauser Ven 19 Juil 2024 - 17:52
» [ LUMION ] mémorandum LUMION
par Lumion France Jeu 18 Juil 2024 - 11:36
» [ LUMION ] Lumion 2024
par Lumion France Jeu 18 Juil 2024 - 11:28
» [ SKETCHUP composants dynamiques ] Hidden avec formule IF et OR imbriqué
par simjoubert Lun 15 Juil 2024 - 23:05
» [ PRESENTATION ] Anar (Spacymen)
par simjoubert Jeu 11 Juil 2024 - 23:11
» [ CHALLENGES ] Ca vous intéresserait un challenge - je lance un sondage
par Gaspard Hauser Jeu 11 Juil 2024 - 14:13
» [ SKETCHUP généralité ] barre outils 2024
par JDD Mer 10 Juil 2024 - 11:52
» [ SKETCHUP plugins ] boolean
par Anar Mar 9 Juil 2024 - 17:30
» [ D5_RENDER ] Quelques Rendus D5 Render
par Gaspard Hauser Sam 6 Juil 2024 - 11:39
» [ SKETCHUP composants dynamiques ] Demande aide Composant dynamique
par tenrev Sam 6 Juil 2024 - 7:31
» [ ARCHICAD ] Alignement entre textures et hachures en façades
par eddyje Jeu 4 Juil 2024 - 17:01
» [ PRESENTATION ] Alpilles AMO
par tenrev Sam 29 Juin 2024 - 14:19
» [ SKETCHUP plugins ] JHS power bar
par vick Mer 19 Juin 2024 - 22:51
» [ SKETCHUP tutos ] Modéliser à partir d'1 image, d'1 photo
par jerryvento Lun 17 Juin 2024 - 8:38
» [ SKETCHUP généralité ] Modéliser à partir d'1 image, d'1 photo
par jerryvento Lun 17 Juin 2024 - 8:38
» [ SKETCHUP plugins ] plugin fredo 6 - réinstallation des licences
par vick Ven 14 Juin 2024 - 17:31
» [ SKETCHUP généralité ] export-import de scènes
par silic Mer 12 Juin 2024 - 18:18
» [ SKETCHUP plugins ] import nuages de points
par bruno Mar 11 Juin 2024 - 13:08
» [ SKETCHUP plugins ] layout sketchup et VBO LayOut Flattener
par JDD Mer 5 Juin 2024 - 19:42
» [ CHAINE TWITCH ] replay d'un mini live
par tenrev Mar 4 Juin 2024 - 9:35
» [ SKETCHUP Layout ] Texture en rendu vectoriel
par tenrev Mar 4 Juin 2024 - 8:30
» [ SKETCHUP objets ] tiroir cuisine
par JDD Dim 2 Juin 2024 - 10:43
» [ SKETCHUP composants dynamiques ]
par Miroslav Mar 28 Mai 2024 - 15:51
» [ SKETCHUP composants dynamiques ] Masquer valeur attribut
par Manutio Mar 21 Mai 2024 - 14:02
» [ TWINMOTION ] CONSEIL FORMATION
par tenrev Mar 21 Mai 2024 - 10:17
» [ AUTRES LOGICIELS ] LOGICIEL OFFERT
par jerryvento Ven 17 Mai 2024 - 8:36
par tenrev Jeu 25 Juil 2024 - 11:35
» [ INTELLIGENCE ARTIFICIELLE ] quelques vidéo IA
par tenrev Mer 24 Juil 2024 - 13:37
» [ SKETCHUP généralité ] modélisation rapide d'un grand pouf style "fatboy"
par tenrev Mer 24 Juil 2024 - 13:30
» [ SKETCHUP généralité ] Retourner le long de
par vick Mar 23 Juil 2024 - 15:17
» [ ENSCAPE ] tuto rendu style "studio" et amélioration avec IA
par tenrev Mar 23 Juil 2024 - 13:43
» [ SKETCHUP généralité ] short sur youtube bien organiser les scénes
par tenrev Mar 23 Juil 2024 - 13:40
» [ SKETCHUP composants dynamiques ] un petit short youtube qui montre une utilisation de composants dynamiques
par tenrev Mar 23 Juil 2024 - 13:35
» [ SKETCHUP plugins ] Parametric Modeling
par Anar Mar 23 Juil 2024 - 10:11
» [ SKETCHUP plugins ] Universal Importer
par tenrev Sam 20 Juil 2024 - 19:55
» [ D5_RENDER ] Le Cull effect dans un scatter
par Gaspard Hauser Ven 19 Juil 2024 - 17:52
» [ LUMION ] mémorandum LUMION
par Lumion France Jeu 18 Juil 2024 - 11:36
» [ LUMION ] Lumion 2024
par Lumion France Jeu 18 Juil 2024 - 11:28
» [ SKETCHUP composants dynamiques ] Hidden avec formule IF et OR imbriqué
par simjoubert Lun 15 Juil 2024 - 23:05
» [ PRESENTATION ] Anar (Spacymen)
par simjoubert Jeu 11 Juil 2024 - 23:11
» [ CHALLENGES ] Ca vous intéresserait un challenge - je lance un sondage
par Gaspard Hauser Jeu 11 Juil 2024 - 14:13
» [ SKETCHUP généralité ] barre outils 2024
par JDD Mer 10 Juil 2024 - 11:52
» [ SKETCHUP plugins ] boolean
par Anar Mar 9 Juil 2024 - 17:30
» [ D5_RENDER ] Quelques Rendus D5 Render
par Gaspard Hauser Sam 6 Juil 2024 - 11:39
» [ SKETCHUP composants dynamiques ] Demande aide Composant dynamique
par tenrev Sam 6 Juil 2024 - 7:31
» [ ARCHICAD ] Alignement entre textures et hachures en façades
par eddyje Jeu 4 Juil 2024 - 17:01
» [ PRESENTATION ] Alpilles AMO
par tenrev Sam 29 Juin 2024 - 14:19
» [ SKETCHUP plugins ] JHS power bar
par vick Mer 19 Juin 2024 - 22:51
» [ SKETCHUP tutos ] Modéliser à partir d'1 image, d'1 photo
par jerryvento Lun 17 Juin 2024 - 8:38
» [ SKETCHUP généralité ] Modéliser à partir d'1 image, d'1 photo
par jerryvento Lun 17 Juin 2024 - 8:38
» [ SKETCHUP plugins ] plugin fredo 6 - réinstallation des licences
par vick Ven 14 Juin 2024 - 17:31
» [ SKETCHUP généralité ] export-import de scènes
par silic Mer 12 Juin 2024 - 18:18
» [ SKETCHUP plugins ] import nuages de points
par bruno Mar 11 Juin 2024 - 13:08
» [ SKETCHUP plugins ] layout sketchup et VBO LayOut Flattener
par JDD Mer 5 Juin 2024 - 19:42
» [ CHAINE TWITCH ] replay d'un mini live
par tenrev Mar 4 Juin 2024 - 9:35
» [ SKETCHUP Layout ] Texture en rendu vectoriel
par tenrev Mar 4 Juin 2024 - 8:30
» [ SKETCHUP objets ] tiroir cuisine
par JDD Dim 2 Juin 2024 - 10:43
» [ SKETCHUP composants dynamiques ]
par Miroslav Mar 28 Mai 2024 - 15:51
» [ SKETCHUP composants dynamiques ] Masquer valeur attribut
par Manutio Mar 21 Mai 2024 - 14:02
» [ TWINMOTION ] CONSEIL FORMATION
par tenrev Mar 21 Mai 2024 - 10:17
» [ AUTRES LOGICIELS ] LOGICIEL OFFERT
par jerryvento Ven 17 Mai 2024 - 8:36
formulaire/diaporama
chaine sketchup.tv
Serveur Discord
Excell et liste de choix
Page 1 sur 2 • Partagez
Page 1 sur 2 • 1, 2
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.
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.
- gaMoulin à parole
-
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 47
Localisation : Chez moi !........
Emploi : Charpentier
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
- gaMoulin à parole
-
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 47
Localisation : Chez moi !........
Emploi : Charpentier
formule à copier dans B1
X le tarif construction ossature bois , Y tarif tradi .
ce qui veux dire : si la cellule A1 est égale à "construction ossature bois " alors affiche "x" sinon affiche "y".=SI(A1="construction ossature bois";"x";"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
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.
comme ça :
=SI(A1="construction ossature bois";A3;A4)
je vais tester.
- gaMoulin à parole
-
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 47
Localisation : Chez moi !........
Emploi : Charpentier
bien sur
-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!
Jérôme
- gaMoulin à parole
-
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 47
Localisation : Chez moi !........
Emploi : Charpentier
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 a écrit:Code vba a copier dans WorkbookPrivate 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ù?
- gaMoulin à parole
-
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 47
Localisation : Chez moi !........
Emploi : Charpentier
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 .
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
- jojo2modérateur
- Date d'inscription : 14/11/2009
Nombre de messages : 135
Points : 170
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](/users/2813/51/05/40/smiles/963465.gif)
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.
- gaMoulin à parole
-
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 47
Localisation : Chez moi !........
Emploi : Charpentier
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
.
_Si tu trafique un peu sur excel VBA je te poserais une question , je suis coincé avec une sortie de Sub via une userform
_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](/users/2813/51/05/40/smiles/698412.gif)
![mdr1](/users/2813/51/05/40/smiles/997922.gif)
_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](/users/2813/51/05/40/smiles/717912.gif)
![pleure](/users/2813/51/05/40/smiles/717912.gif)
-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!
Jérôme
- jojo2modérateur
- Date d'inscription : 14/11/2009
Nombre de messages : 135
Points : 170
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.
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](/users/2813/51/05/40/smiles/927425.gif)
- gaMoulin à parole
-
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 47
Localisation : Chez moi !........
Emploi : Charpentier
Alors voilas mon code
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:
- 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
- jojo2modérateur
- Date d'inscription : 14/11/2009
Nombre de messages : 135
Points : 170
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:
Dans ton Main:
A tester car j'ai écrit ce code de mémoire veille de 8 ans maintenant...
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](/users/2813/51/05/40/smiles/609156.gif)
- gaMoulin à parole
-
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 47
Localisation : Chez moi !........
Emploi : Charpentier
Merci joj2
Je regarde çà demain et je te tiens au courant
Merci de ton aide
Je regarde çà demain et je te tiens au courant
![bravo](/users/2813/51/05/40/smiles/383867.gif)
Merci de ton aide
![bien](/users/2813/51/05/40/smiles/963465.gif)
-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!
Jérôme
- jojo2modérateur
- Date d'inscription : 14/11/2009
Nombre de messages : 135
Points : 170
de rien!
![aurevoir](/users/2813/51/05/40/smiles/816867.gif)
- gaMoulin à parole
-
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 47
Localisation : Chez moi !........
Emploi : Charpentier
Bonsoir
j'ai modifier des lignes car il me renvoyé quelques erreurs voilas ce que sa donne :
Ainsi que celui-ci :
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..........
![hmm](/users/2813/51/05/40/smiles/212924.gif)
![hmm](/users/2813/51/05/40/smiles/212924.gif)
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 .....Il me faudrait le code de ton userForm "AttentionImprimer" pour bien comprendre.
-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!
Jérôme
- gaMoulin à parole
-
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 47
Localisation : Chez moi !........
Emploi : Charpentier
Dommage que l'on puise pas faire tout simplement comme ça :
le problème c'est que les variables ne se communiques pas entre sub
- 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
- Code:
Sub Enregister()
If ControlImprimer = 0 Then
AttentionImprimer.Show
If A = 1 Then Exit Sub
End If
If (Range("G1").Value = "") Then etc ......
![fou](/users/2813/51/05/40/smiles/927425.gif)
![rigole](/users/2813/51/05/40/smiles/37129.gif)
![rigole](/users/2813/51/05/40/smiles/37129.gif)
le problème c'est que les variables ne se communiques pas entre sub
![pleure](/users/2813/51/05/40/smiles/717912.gif)
![pleure](/users/2813/51/05/40/smiles/717912.gif)
-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!
Jérôme
- jojo2modérateur
- Date d'inscription : 14/11/2009
Nombre de messages : 135
Points : 170
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.
De plus, si ton formulaire est aussi réduit, pourquoi n'utilises tu pas une Message Box à la place du fomulaire?
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](/users/2813/51/05/40/smiles/37129.gif)
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
...
- gaMoulin à parole
-
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 47
Localisation : Chez moi !........
Emploi : Charpentier
Parce que je ne sais pas faire
mais je vais essayé ...
![langue](/users/2813/51/05/40/smiles/698412.gif)
![langue](/users/2813/51/05/40/smiles/698412.gif)
![rigole](/users/2813/51/05/40/smiles/37129.gif)
![bien](/users/2813/51/05/40/smiles/963465.gif)
-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!
Jérôme
- gaMoulin à parole
-
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 47
Localisation : Chez moi !........
Emploi : Charpentier
Ouaaaaaas sa marche nickel
milles merci jojo2
:icon_mrgreen: :icon_mrgreen:
Par contre je vais avoir un autre problème c'est sur ma deuxième ligne :
Car pour faire le teste j'ai simplement rajouté en fin de ma sub "ImprimerOriginalCopie" ceci :
voici ma sub ImprimerOriginalCopie
PS : Promis sa sera ma dernière question , je profite d’avoir un amoureux du VBA en ligne pour pouvoir m'amélioré
:icon_wink: :icon_wink:
![bien](/users/2813/51/05/40/smiles/963465.gif)
![bien](/users/2813/51/05/40/smiles/963465.gif)
milles merci jojo2
![respect](/users/2813/51/05/40/smiles/463848.gif)
![bravo2](/users/2813/51/05/40/smiles/654904.gif)
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
PS : Promis sa sera ma dernière question , je profite d’avoir un amoureux du VBA en ligne pour pouvoir m'amélioré
![rigole](/users/2813/51/05/40/smiles/37129.gif)
-------------------------------------------------------------------------------------------------------------------------
_"Ne compte pas les jours, fais en sorte que chaque jour compte"
Bonne journée à vous !!!!!
Jérôme
- jojo2modérateur
- Date d'inscription : 14/11/2009
Nombre de messages : 135
Points : 170
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):
Je ne vais pas plus loin car le sujet est vaste.
Content d'avoir pu t'aider.
++
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](/users/2813/51/05/40/smiles/816867.gif)
++
- gaMoulin à parole
-
Humeur : boiseuse ......
Date d'inscription : 02/01/2010
Nombre de messages : 312
Points : 363
Age : 47
Localisation : Chez moi !........
Emploi : Charpentier
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
Tu m'as coupé l'herbe sous le pied Jérôme il est vraiment superbe se cite merci...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 .
![respect](/users/2813/51/05/40/smiles/463848.gif)
![respect](/users/2813/51/05/40/smiles/463848.gif)
- Contenu sponsorisé
Page 1 sur 2 • 1, 2
Sujets similaires
Créer un compte ou se connecter pour répondre
Vous devez être membre pour répondre.
Page 1 sur 2
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum