Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
4771 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  macro avec userform,commandbutton...

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

macro avec userform,commandbutton...

n°2125540
benoit56
Posté le 09-02-2012 à 07:12:57  profilanswer
 

Bonjour à tous,
Étant novice sous excel j'ai besoin de votre aide pour concrêtiser un projet :
Je souhaite informatiser les pleins de carburant qui sont fait à l'entreprise pour une flotte de 200 machines et véhicules.
Pour supprimer le plus possible d'erreur de saisie je souhaite que ces renseignements se fasse via une macro.
1) Sélection du type de carburant (3 choix possible)
2) sélection de l'immatriculation dans une liste déroulante
3) saisie du kilométrage ou des heures du véhicules
4) saisie du nombre de litres
report de ces informations sur une feuille du classeur.
 
Voici une macro que j'ai réalisée mais le risque d'erreur de saisie est important :
Sub immat()
question0 = InputBox("Quel le carburant utilisé :" )
Sheets("immat" ).[E2] = question0
question1 = InputBox("Entrez l'immatriculation du véhicule :" )
Sheets("immat" ).[A2] = question1
question2 = InputBox("Entrez le kilométrage du véhicule :" )
Sheets("immat" ).[B2] = question2
question3 = InputBox("Entrez le nombre de litre :" )
Sheets("immat" ).[C2] = question3
x = Sheets("BD" ).Range("B65536" ).End(xlUp).Row + 1
With Sheets("BD" )
.Range("B" & x) = Sheets("immat" ).Range("A2" )
.Range("C" & x) = Sheets("immat" ).Range("B2" )
.Range("D" & x) = Sheets("immat" ).Range("C2" )
.Range("A" & x) = Sheets("immat" ).Range("D2" )
.Range("E" & x) = Sheets("immat" ).Range("E2" )
End With
Sheets("immat" ).Range("A2,B2,C2,E2" ).ClearContents
MsgBox "Enregistrement réussi !"
End Sub
 
En fait je me perds un peu avec les Userform,commandbutton et autres ...
 
Si quelqu'un peut éclairer ma lanterne ?
Merci d'avance
Benoît

mood
Publicité
Posté le 09-02-2012 à 07:12:57  profilanswer
 

n°2126281
Cutter
Posté le 13-02-2012 à 19:12:13  profilanswer
 

Ça me paraît compliqué. Comment faire si l'utilisateur veut corriger une saisie validée? Comment retourner en arrière (champ précédent / suivant)?
 
Excel a un outil de validation de données qui permet de s'assurer, au moment de la saisie, qu'une valeur remplit certains critères (valeurs parmi une liste, date etc...).
 
C'est dans l'onglet Données > Validation de données. Tu sélectionnes la ou les cellules sur lesquelles tu veux vérifier les données saisies, et tu cliques sur Validation de données > Validation de données. Ensuite tu as une liste de critères disponibles et éventuellement un message d'erreur à afficher. Pour les plaques d'immatriculation par exemple, tu peux choisir "Liste" et renvoyer à une liste de cellules contenant les plaques d'immatriculation, qui apparaîtra dans une liste déroulante sous la cellule.


---------------
last.fm
n°2126313
kiki29
Posté le 14-02-2012 à 07:48:03  profilanswer
 

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  macro avec userform,commandbutton...

 

Sujets relatifs
urgent : macro ecriture sur classeur excelbesoin d'aide (URGENT) pour une macro-EXCEL VBA
Macro insertion et copie de lignesRépétition macro
Executer une macro dans un classeur deja ouvertAfficher une UserForm en fonction de la valeur de "Listindex"
comparer des lignes sur macro exceldeplacer par macro la feuille à l'écran
Excel macro, grille de nombre, changer couleur fond selon choixIntégration d"une macro
Plus de sujets relatifs à : macro avec userform,commandbutton...


Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)