Programmer en vb
Bonjour et bienvenue,

vous venez de vous inscrire et vous souhaitez avoir accès aux différents forum.
il vous suffit alors de poster une présentation sur le forum "Présentation" ou divers sujets
votre accès aux autres forums sera automatiquement autorisé.

A vos claviers :

Merci d'avoir pris le temps de lire.
Merci pour votre inscription.

L'équipe de Programmer-en-VB
Qui est en ligne ?
Il y a en tout 2 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 2 Invités

Aucun

Statistiques
Nous avons 120 membres enregistrésL'utilisateur enregistré le plus récent est TutoariiNos membres ont posté un total de 6300 messagesdans 706 sujets
Recherche dans les forums

Utiliser cette méthode afin de trouver rapidement les discussions disponible sur notre forum.


Utiliser le bouton résolu

Dans votre message d'origine
cliquer sur le bouton



Ensuite tout en bas sur
Modifier le titre du sujet
cliquer sur le bouton

Résolu !!!

Ensuite changer l’icône du sujet par le bouton

Voilà pas plus compliqué que cela.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Partenaires

créer un forum



Annuaire referencement


Flux RSS

MSN 
Novembre 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  

Calendrier


Partagez
Aller en bas
avatar
grisan29
Modérateur
Modérateur
Localisation : BRETAGNE Nord 29
Messages : 838
Date d'inscription : 25/07/2013
http://pascalcuisines.fr

message avant exécution procédure

le Ven 26 Mai - 5:44
bonjour a tous et toutes
voici un petit code qui permet en début de procédure de demander si oui où non j'efface la feuille ou autre chose bien sur
vous pouvez le mettre en haut de votre code, ou mettre les lignes de codes après "then"

Code:
Private Sub CommandButton1_Click()
If MsgBox("Etes vous sur de vouloir remettre à ZERO la feuille ?", _
              vbExclamation + vbOKCancel + vbDefaultButton2, "Attention remise à ZERO") = vbOK Then  ' Définit le message
              ' effacement des cellules de la feuille base PENSEZ a changer ces cellules
              Sheets("base").Range("A1:G1000").ClearContents
              End If
End Sub

faites vous plaisir a l'essayer et si problèlme où question le Forum est la

_________________
Pascal
http://vbaddict.altervista.org/Fichier_upload/grisan29/13.php

Comment mettre votre sujet en résolu.
 
Dans votre message d'origine

cliquer sur le bouton



Ensuite tout en bas sur 
Modifier le titre du sujet 
cliquer sur le bouton 

Résolu !!!

avatar
Berly
Step_Three_VBA
Step_Three_VBA
Localisation : Rodez(Aveyron)
Messages : 549
Date d'inscription : 23/04/2017

Re: message avant exécution procédure

le Ven 26 Mai - 11:52
Code:
[Private Sub CommandButton1_Click()]

Bonjour le Forum et Merci Grisan  Wink.

Une petite question .

CommandButton1,est il un bouton  en interface sur la feuille ,ou une commande cachée qui exécute le programme Question 

A+
avatar
grisan29
Modérateur
Modérateur
Localisation : BRETAGNE Nord 29
Messages : 838
Date d'inscription : 25/07/2013
http://pascalcuisines.fr

Re: message avant exécution procédure

le Ven 26 Mai - 12:20
bonjour Berly
le bouton est sur la feuille que j'ai dans mon fichier de facture , mais peut etre mis sur un userform

_________________
Pascal
http://vbaddict.altervista.org/Fichier_upload/grisan29/13.php

Comment mettre votre sujet en résolu.
 
Dans votre message d'origine

cliquer sur le bouton



Ensuite tout en bas sur 
Modifier le titre du sujet 
cliquer sur le bouton 

Résolu !!!

avatar
Berly
Step_Three_VBA
Step_Three_VBA
Localisation : Rodez(Aveyron)
Messages : 549
Date d'inscription : 23/04/2017

Re: message avant exécution procédure

le Ven 26 Mai - 14:05
Ok ,c'est bien ce que je pensais Wink .

Nous sommes bien en présence ,d'une action de confort et de rapidité venant de l'utilisateur .

Le "If" en début de procédure m'a interpellé  Wink.

L'Utilisateur pourrait t'il avoir une  action autre que de cliquer sur le "VbOk" ?.

Sachant qu'une action effectuée par le biais d'un appui sur le bouton ,concernant des documents importants comme Devis facture au sein d'une entreprise peuvent rendre les choses très compliquées.

Une confirmation "Manuscrite" oblige l'Utilisateur a avoir une certaine concentration.(Éveiller,Veiller et Sécuriser les actions de l'Utilisateur)

Ex:Création D'une variable de récupération de la réponse Utilisateur

-Affectation et Récupération de la réponse Utilisateur ----->"InputBox"  .

-Déclencher un son a l'Ouverture de "InputBox""
Code:

' Mot clé "Or" permet une indifférence de syntaxe quant a la saisie de la réponse par l'Utilisateur.

If Réponse Utilisateur ="OUI" Or "oui" Then
(Instruction)

Elseif Réponse Utilisateur="NON" Or "non" Then
(Instruction)

Endif

EndSub



Merci pour cet instant de Partage ,ça nous permet de se bouger les Neurones  Very Happy.

A+
avatar
grisan29
Modérateur
Modérateur
Localisation : BRETAGNE Nord 29
Messages : 838
Date d'inscription : 25/07/2013
http://pascalcuisines.fr

Re: message avant exécution procédure

le Ven 26 Mai - 15:46
bonjour Berly
dans ton code il manque la reconnaissance de "utilisateur"qui donne une erreur de syntaxe
je pense que le code est incomplet

mais je vois que tu mets "if" en début de procédure aussi

le code que j'ai mis au début, est issu de  la procédure de mise a blanc de ma feuille devis/facture écrit comme ci dessous


Code:
Public Sub RemiseAZeroDeLaFacture()
    If MsgBox("Etes vous sur de vouloir remettre à ZERO la feuille ?", _
              vbExclamation + vbOKCancel + vbDefaultButton2, "Attention remise à ZERO") = vbOK Then  ' Définit le message.
        Application.ScreenUpdating = False
'procédure
end sub

_________________
Pascal
http://vbaddict.altervista.org/Fichier_upload/grisan29/13.php

Comment mettre votre sujet en résolu.
 
Dans votre message d'origine

cliquer sur le bouton



Ensuite tout en bas sur 
Modifier le titre du sujet 
cliquer sur le bouton 

Résolu !!!

avatar
Berly
Step_Three_VBA
Step_Three_VBA
Localisation : Rodez(Aveyron)
Messages : 549
Date d'inscription : 23/04/2017

Re: message avant exécution procédure

le Ven 26 Mai - 15:54
Tu as raison Grisan

Laughing,tout code produit de par nature est incomplet ,c'est pour cela que l'on essaye d'apprendre a développer  Wink.

Concernant un autre type que "string" je suis d'accord ,essayons de développer Encore ......

On garde le sujet sous le coude  Very Happy .

Merci .

A+
avatar
grisan29
Modérateur
Modérateur
Localisation : BRETAGNE Nord 29
Messages : 838
Date d'inscription : 25/07/2013
http://pascalcuisines.fr

Re: message avant exécution procédure

le Ven 26 Mai - 15:59
bonjour
je savais avoir un autre code, moins brutal que celui plus haut


Code:
Private Sub CommandButton1_Click()
Dim ret As Integer
ret = MsgBox("Voulez-vous éffacer le document le document?", vbYesNo)
If ret = vbNo Then
    Exit Sub
Else
    'procédure'
End If
End Sub

juste les boutons oui /non


Dernière édition par grisan29 le Sam 27 Mai - 7:54, édité 1 fois

_________________
Pascal
http://vbaddict.altervista.org/Fichier_upload/grisan29/13.php

Comment mettre votre sujet en résolu.
 
Dans votre message d'origine

cliquer sur le bouton



Ensuite tout en bas sur 
Modifier le titre du sujet 
cliquer sur le bouton 

Résolu !!!

avatar
Berly
Step_Three_VBA
Step_Three_VBA
Localisation : Rodez(Aveyron)
Messages : 549
Date d'inscription : 23/04/2017

Re: message avant exécution procédure

le Ven 26 Mai - 16:10
Wink ,je n'ai pas trop le temps aujourd'hui,mais je te promet de m'accrocher au sujet  Very Happy .

Dim ret as integer  Question --------> explique moi ------->a quel objet,ou donnée est attribué cette variable Question

Le Message est bien une chaîne de caractères  Question.

A+,je dois sortir
avatar
Berly
Step_Three_VBA
Step_Three_VBA
Localisation : Rodez(Aveyron)
Messages : 549
Date d'inscription : 23/04/2017

Re: message avant exécution procédure

le Ven 26 Mai - 22:05
Bonsoir Grisan 

Je reviens vers toi ,Peux tu essayer ce code dans Excel  ?Wink.

C'est le code pour l'écriture d'une valeur Numérique dans la cellule A5 d'une feuille .

J'Utilise pour le moment LibreOffice .Apparemment il y a des différences de syntaxe entre excel et Libre office.

En essayant ton code sur libre office ,j'avais message d'erreur ."Sous procédure ou procédure de fonction non définie" Exclamation

Bonne soirée

Whaoo,c'est chaud tant de lignes pour afficher une valeur  Laughing.
Code:
[REM  *****  BASIC  *****



Sub EcrireDansCellule

'oDoc comme Objet,Feuille comme objet,Cellule comme objet

Dim oDoc As Object , Feuille As Object
Dim Cellule As Object

'oDoc= Ce composant ou composant en cours d'utilisation

oDoc = ThisComponent

'Feuille= Obtenir des feuilles.Obtenir par Nom ("Feuille1")

Feuille = oDoc.getSheets.getByName("Feuille1")


'Ecrit valeur numérique

' Feuille Ramène la gamme de cellules par son nom ("A5")

Cellule = Feuille.getCellRangeByName("A5")

'Valeur = 12345
Cellule.Value = 12345
End Sub]


Dernière édition par Berly le Sam 27 Mai - 10:05, édité 1 fois
avatar
grisan29
Modérateur
Modérateur
Localisation : BRETAGNE Nord 29
Messages : 838
Date d'inscription : 25/07/2013
http://pascalcuisines.fr

Re: message avant exécution procédure

le Ven 26 Mai - 22:48
Bonsoir Berly
et comment défini tu thiscomponet qui bug car il n'est pas déclaré
et apparement ce code est pour écrire dans une cellule
ce n'est pas le sujet
le sujet est de donner un avertissement si une action(écrire/effacer/autre) est tentée et dire non la sauvegarde

_________________
Pascal
http://vbaddict.altervista.org/Fichier_upload/grisan29/13.php

Comment mettre votre sujet en résolu.
 
Dans votre message d'origine

cliquer sur le bouton



Ensuite tout en bas sur 
Modifier le titre du sujet 
cliquer sur le bouton 

Résolu !!!

avatar
Berly
Step_Three_VBA
Step_Three_VBA
Localisation : Rodez(Aveyron)
Messages : 549
Date d'inscription : 23/04/2017

Re: message avant exécution procédure

le Sam 27 Mai - 10:09
Bonjour Grisan et le Forum 

Hier soir tu m'a posé une question sur La définition du "This Component"

J'ai modifié le code correspondant et ajouté des commentaire relatifs ,avec une traduction des instructions demandées dans ce code.

Souvent on ajoute des commentaires Globaux ;
Réagissant comme une personne n'ayant pas une maîtrise parfaite de l'anglais,j'ai eu l'idée de traduire les instructions dans mon langage Maternelle.
Néanmoins en faisant cette action ,on aperçois que programmer devient possible,de plus l'apprenti que je suis appréhende de manière plus sereine la construction d' un code .
Il apparaît clairement que ces instruction ne sont pas plus difficiles a comprendre que l'élaboration d'une recette de cuisine  Wink .

Tout devient de suite plus clair  Wink
Contenu sponsorisé

Re: message avant exécution procédure

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