macro avec userform,commandbutton...

macro avec userform,commandbutton... - VB/VBA/VBS - Programmation

Marsh Posté le 09-02-2012 à 07:12:57    

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

Reply

Marsh Posté le 09-02-2012 à 07:12:57   

Reply

Marsh Posté le 13-02-2012 à 19:12:13    

Ç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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed