Il y a actuellement 69 visiteurs
Mardi 27 Juillet 2021
accueilactualitésdossierscomparer les prixtélécharger gratuitement vos logicielsoffres d'emploiforum informatique
Connexion
Créer un compte

Création de macro "validation" sous Excel

Besoin d'aide pour configurer un serveur ? Vous souhaitez obtenir des conseils pour référencer votre site ? Un petit souci pour accéder à votre FTP ? Des soucis de programmation en PHP / ASP / HTML / XHTML / XML / XSLT / CSS / ReactJS / AngularJS / VueJS / CGI / PERL / C / MySQL / PostgreSQL ??? Nous avons peut-être la solution dans ce forum ...

Création de macro "validation" sous Excel

Message le 14 Nov 2009 11:54

Bonjour à tous et toutes !!

J'ai une petite question pour un gros problème.

J'ai quelques petites notions en vba, mais pas sufisament pour m'en sortir.

Pour faire simple je vais vous montrer la maccro que j'ai créer (bidouiller) et en suite (si vous y comprenez quelques chose, j'ai des modifications à y apporter.

Voici le bébé :


Sub Validation_pavois()
' validerclient Macro
' Macro enregistrée le 22/09/2003 par delta voiles
Sheets("formulaire").Select 'on va selec le feuillé "formulaire"
Range("A2:BB2").Select 'on selec la plage de donné de la ligne A du tableau
Selection.Copy 'fait copier le nouveau client recopié ligne 2
Sheets("Clients").Select 'on va sur la feuille clients et on la selectione
For i = 6 To 3000
If Cells(i, 1) = "" Then
Cells(i, 1).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'là on y fait un collage spécial en recopiant la ligne de données completes en gardant la même police
Sheets("Clients").Select 'on revient afficher la feuille client
Cells(5, 1).Show
i = 3000
End If
Next i
Range("A6").Select 'on selectione la cellule A6
Application.CutCopyMode = False 'on vide le presse papier de sa mémoire
Selection.Sort Key1:=Range("K5"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal 'apparement depuis la case A6 on choisi la fonciton trier dans ordre alphabétique
Columns("K:K").Select
Range("K3").Activate
Selection.NumberFormat = "[$-40C]d-mmm-yy;@"
Sheets("formulaire").Select
Range("prout").Value = ""
Range("D4").Select
Sheets("Clients").Select 'on revient afficher la feuille client
Range("A5").Select 'on séléctione enfin la case A5

End Sub


Bon je vous l'avou, il y a beaucoup de copier coller sur des exemples de macro que j'ai put voir par ci par là...
Il y a sans doute donc des lignes de commandes qui ne servent à rien et d'autre que l'on peux voir autrement.

Le principe de cette macro, est de créer une sorte de base de donné pour un fichier client.
D'une feuille de saisie des coordonées et divers info d'un client, je "clic" sur un bouton de "validation" une fois am saisie terminé, et l'ensemble des données vont alors se mettre sur une autre feuille du fichier, sur une seule ligne, à la suite des autres, puis il y a un "tri" par ordre alphabétique .... Avant ça, les données ont été alignés sur une seule ligne dans ma feuille de saisi pour n'avoir à copier qu'un seul RANGE, celui de la ligne de donnée....

Bon vous arrivez à suivre, encore là ?
Merci donc.

Mes questions sont donc :
- il y a t'il plus simple ?
- Si je veux mettre des conditions dans ma macro, comment faire ?

C'est à dire que, je créer dans le même fichier 3 feuilles identiques de données, mais une pour les PROSPECTS CLIENT, une autre pour les CLIENT ATELIER, et une dernière pour les DEVIS CLIENT.
Et que ma macro, suivant le renseignement du TYPE de client, elle va remplir soit la feuille PROSPECT, soit la feuille ATELIER, soit la feuille DEVIS. (voir 2 ... ou les 3!)

- Poussons le visse plus loin, si je veux faire un fichier avec cette fois si 3 feuilles différentes pour PROSPECT ATELIER et DEVIS, toujours avec le principes de remplissage de lignes de données, comment faire si les lignes ne sont pas les mêmes sur chaques feuilles ? (là ça devient tordue en effet...)

Merci millle fois à vous tous pour votre patience et votre coup de main.
N'hésitez pas à simplement me renvoyer vers des listes de commandes VBA simple, avec explication en français, je devrais me débrouiller ....

A bientôt.
Juju.
Gams
Visiteur
Visiteur
 
Messages: 4
Inscription: 09 Oct 2008 15:49
 



Sujets similaires

Message Création site web - Code ou CMS ?
Bonjour, Je suis ici car je cherche un avis vraiment honnête là dessus.J'entends beaucoup de critique sur Wordpress. Hors j'aimerai faire un petit site, type blog / site vitrine avec des articles mis en ligne de temps en temps. J'aimerai un truc assez beau et facile à prendre en main.Mais quand je d ...
Réponses: 3

Message Création d'un médiacenter / Pc de salon Gaming
Bonjour à tous ! Je viens vous demander conseils pour la création d'un médiacenter, vu que ca fait une éternité que je ne me suis plus plongé dans le matos informatique, je suis un peu perdu J'ai tenté de faire une config mais j'ai besoin de vos avis pour savoir s'il y a moyen d'abaisser un peu le ...
Réponses: 7

Message validation config
Bonjour à tous R7 3700XMSI B 450 tomahawk max2x8 go vengeance lpx 4000 mhzssd corsair force mp 510 v2 960go m.2 2280 3.0 x4 pour la CG je suis indéci RTX 2060, 2070, 2080 super OC ou TI pour le reste pour l'allim j'ai une corsair 650 W + gold modulairedoit je changer le ventirad livrer avec le CPU ...
Réponses: 9

Message Configutation macro corsair scimitar
Bonjour à tous,Alors voila, je rencontre actuellement des problèmes avec ma souris Corsair Scimitar concernant le réglage de mes macros.Ma souris à 4 ans et tourne toujours. Je dois même dire que je suis agréablement surpris de sa durée de vie. Par contre je n'arrive pas à créer mes macros. A l'époq ...
Réponses: 1

Message Création sonnerie portable
bonjour tous, ça fait longtemps que je veux m'y mettre et ça y est, enfin, je me lance, Fini les sonneries de portable pourries, je veux créer les MIENNES, avec MA musique, MES refrains préférés ! Donc en surfant un peu j'ai dégoté un log, Audacity, permettant de "couper" mes chansons pr ...
Réponses: 5

Message Macro touches clavier
Bonjour à tous et meilleurs vœux,Je pense que cela s’appelle une macro (désolé si je me trompe), mais comment pourrais-je faire pour que lorsque j’appuie sur une touche de mon volant ou manette elle simule une touche de mon clavier x2.Par exemple : START = espace, espace.Merci beaucoup!
Réponses: 2

Message Problème avec une macro dans Access 2023
BonjourJ'ai un ennui avec ACCESS avec mon programme de comptabilité. Comme je l'ai fait depuis des années en décembre je viens de copier mon fichier Compta 2019 pour créer mon fichier Compta 2020,J'ai supprimé ma table des écritures comptables de 2019 et j'ai créé une table pour 2020 que j'ai comme ...
Réponses: 1


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 3 invités


.: Nous contacter :: Flux RSS :: Données personnelles :.