Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Macros sous excel + BDD excel ... [ Base de données / XML ] (critof13)

mardi 27 juin 2006 à 16:41:00 | Macros sous excel + BDD excel ...

critof13

Bonjour à tous,

Je suis en stage d'entreprise et mon boss me demande de réaliser un glossaire technique/base de donnée, impérativement réalisé sous excel (pour des question de maintenance et d'administration de la BDD).
J'ai commencé à faire un truc mais ca ne marche pas.
En fait, la base de donnée sous excel commence à la ligne 15 (qui est vierge) 16 (début du remplissage ... vis a vis du code), et ceci sur 3 colonnes consécutives (A pour les mots en Anglais, B pour les mots en Francais et C pour les Observations).
J'ai besoin pour utiliser la fonction RECHERCHE sous excel de ranger mes colonnes (A ou B) par ordre alphabétique.
==> Ceci, je sais le faire chaque colonne, indépendamment les unes des autres, via des "cas d'option" et des macros (cf. suite) :


""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Option Explicit

Sub Casdoption3_QuandClic()

Cells(15, 1).Select
ActiveCell.End(xlDown).Select
   
    While ActiveCell.Row < 10015
        ActiveCell.Resize(ActiveCell.End(xlDown).Row - ActiveCell.Row + 1, i).Select
        Selection.Sort Key1:=Cells(15, i), Order1:=xlAscending, Header:=xlGuess
        ActiveCell.End(xlDown).Select
    Wend

Range("a15").Select
Range("c9").Select

End Sub


Sub Casdoption4_QuandClic()

Cells(15, 2).Select
ActiveCell.End(xlDown).Select
   
    While ActiveCell.Row < 10015
        ActiveCell.Resize(ActiveCell.End(xlDown).Row - ActiveCell.Row + 1, 2).Select
        Selection.Sort Key1:=Cells(15, 2), Order1:=xlAscending, Header:=xlGuess
        ActiveCell.End(xlDown).Select
    Wend

Range("a15").Select
Range("c9").Select

End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""


Le problème que je rencontre, c'est que quand j'ordonne une colonne, elle s'ordonne que elle, et les 2 consécutives ne suivent pas, ce qui fait qu'après un réordonnancement par ordre alphabétique, ma base de donnée ne veut plus rien dire (les mots ne se correspondent plus !!!).

Est ce que quelqu'un saurait donc comment pallier ce problème ? ... que quand j'ordonne la seconde colonne par exemple, que les cases qui concordent (sur la meme ligne) dans la première et la troisième colonne suivent cet ordonnancement.

PS : J'ai déjà défini ma base de donnée sous excel de manière traditionnelle (insertion, nom, définir, etc ...)

Merci d'avance pour les quelconques réponses que vous pourrez m'apporter !
N'hésitez pas à me poser des questions.

TOF


mardi 27 juin 2006 à 20:54:30 | Re : Macros sous excel + BDD excel ...

cameleon044

Bonjour tu ne peu pas utiliser simplement la finction de tri d'excel (via une macro et ainsi selectionner tes 3 colonnes)?
come ceci

    Range("A16:C50").Select
    Selection.Sort Key1:=Range("A16"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

'A16 pour tier par ordre alphabetique la colonne A
'B16 pour tier par ordre alphabetique la colonne B et ainsi de suite

En esperant t'avoir été utile

A+

mercredi 28 juin 2006 à 06:47:06 | Re : Macros sous excel + BDD excel ...

mortalino

Membre Club
Cameleon044 à raison, pour le tri, la clé c'est ta première colonne mais si les 2 autres ne sont pas également sélectionnées, c'est normal qu'elles ne soient pas triées. Pense qu'excel possède l'automation de code VB, c'est à dire que tu as la possibilité de t'enregistrer en train de faire certaines actions, un p'tit coup de Alt F11 et hop, le code généré peut s'avérer très utile ! @++ --Mortalino-- Le Mystérieux Chevalier "Provençal, le Gaulois" N'oubliez pas de lire le règlement !

jeudi 29 juin 2006 à 09:33:38 | Re : Macros sous excel + BDD excel ...

critof13

Sincèrement, merci, les gars ...!
C'est déjà super sympa de votre part d'avoir répondu.
C'était ça !
(Je sais pas comment j'ai fait pour passer à coté)
Enfin, le fait est que cela marche donc vraiment merci beaucoup.

TOF

mercredi 28 mars 2007 à 16:45:42 | Re : Macros sous excel + BDD excel ...

julien59lille

Bonjour,
j'ai bien tape le code et tout fonctionne presque normalement. le pb est que dans ma colonne a trier j'ai une formule, le tri ce fait correctement du plus grand au plus petit mais les 0 sont avant ca fait par exemple dans la colonne les nombres sont (0 , 0 , 0 , 6.5,  4.2 , 2.8) et moi je voudraia avoir (6.5 , 4.2 , 2.8 , 0 , 0 , 0)
Voici la formule =IF(AN4=0,"0",AO4*100/AN4) 

et voici mon code ;
Private Sub CommandButton1_Click()
 Range("A4:BB95").Select
    Selection.Sort Key1:=Range("AP4"), Order1:=xlDescending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Quelqu,un a-t-il une idee????
Merci d'avance
Julien



Cette discussion est classé dans : end, excel, select, activecell, xldown


Répondre à ce message

Sujets en rapport avec ce message

auto [ par benben00 ] Bonjour,J'aimerais faire une routine en visual qui automatise le tracage d'un graphe Excel a partir de donnée excelje veux faire un truc genresub grap Excel : Selection de lignes selon sa valeur [ par minotaure083 ] Voilà mon souci, j'aimerai selectionner toutes les lignes (et non les cellules) qui ont pour valeur "9" dans la colonne E.Mon code est le suivant mais Pb avec selection.end(xldown).select [ par Alboure ] Bonjour, je travaille sur Excel 2002. A moment donné dans mon code, j'écrit: Range("A1").select If Activecell.Offset(1,0).value "" then Select Aide création fichier excel sous vb [ par thuglife6938 ] Bonjour à tous,Voila j'ai fais un programme que je ne peux pas encore tester et je voudrais savoir si la syntaxe vous parait bonne et si j'ai le droit Problème avec macro Excel de recherche [ par Vinz90 ] Bonjour, Je fais appel à vous car je bute depuis 2 semaines sur une macro Excel permettant de rechercher des valeurs. Je vous explique : J'ai 2 listes Gestion d'erreur [ par Skygod ] Bonjour,Je rencontre un problème en ce moment avec une gestion d'erreur du style On Error GoTo 1. Je vous explique, c'est une application en excel. J' Cache Excel [ par Azmo31 ] Bonjour a tous,Bon je vous explique mon problème:J'ai une macro qui fait le tri dans un tableau de données qui me fait le total d'une colonne, puis qu Fonction Filtre + Somme VBA Excel [ par bastien0675 ] Bonjour,   <p class="MsoNormal" st Insertion et copie macro Excel [ par catbou ] Bonjour,Je souhaite par une macro Excel, modifier mon fichier. J'ai très peu de connaissance VB 6, et je n'arrive pas à finaliser ma macro.Lorsque ma copier dans un classeur masqué [ par nico5969 ] hello a tousvoila je souhaite ecrire une macro qui me permette de copier les données d'une feuille d'un classeur vers une feuille d'un autre classeur,


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,702 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.