begin process at 2013 05 26 10:45:44
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Visual Basic 6

 > 

Langages dérivés

 > 

VBA

 > 

Fonction "rechercher"


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Fonction "rechercher"

jeudi 7 mars 2013 à 18:08:38 | Fonction "rechercher"

benziz13

Bonjour à tous,

Voici mon problème,
j'ai un fichier excel pour le suivi de mes factures.
Ce fichier comporte 12 onglets qui correspondent chacun à un mois de l'année et un onglet qui récapitule les lignes de chaque onglet précédent pour lesquelles je suis en attente de règlement.

Je voudrais à partir de ce dernier onglet pouvoir par un double clic sur la cellule contenant le numéro de facture retrouver dans les onglets précédents ce numéro de facture.

Sachant qu'il peut y avoir plus d'une fois le même numéro de facture, je peux me retrouver avec plusieurs résultats.

Pour pallier à cela, il faudrait que la recherche se fasse dans la colonne (n-1) de chaque onglet mensuel sachant que la colonne (n) est celle de la cellule sur laquelle j'ai double cliqué.

Merci pour votre aide
jeudi 7 mars 2013 à 19:01:33 | Re : Fonction "rechercher"

ucfoutu

Membre Club
Bonjour,
Utilise pour cela la méthode Find (exposée et assortie d'un exemple dans ton aide VBA), appliquée en boucle à chacune des 12 feuilles concernée.
D'autres manières existent, mais toutes en bouclant bien entendu sur les 12 feuilles de calcul concernées.
Reviens avec ton code d'essai d'application de cette méthode, si encore en difficulté.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
jeudi 7 mars 2013 à 21:19:40 | Re : Fonction "rechercher"

benziz13

Merci ucfoutu pour ton aide,

cependant je n'y arrive pas, j'ai vraiment du mal avec le vba.
Un coup de pouce supplémentaire m'aiderait.

Voici mon code:
Code Visual Basic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim i As Integer
Dim EndLine As Integer
Dim SchVal As String


SchVal = Sheets("Attente_règlement").ActiveCell.value
For i = 1 To 12
    With Sheets(i)
    EndLine = .Cells(65000, 1).End(xlDown).Row
        If .Find(SchVal, 7, Target.Column - 1, EndLine, Target.Column - 1) = 1 Then
           '??????????????? 'afficher la cellule trouvée
        End If
    End With
Next i

End Sub


End Sub

jeudi 7 mars 2013 à 21:45:58 | Re : Fonction "rechercher"

ucfoutu

Membre Club
1) boucler sur les feuilles par des index n'est pas forcément adroit
Boucle plutôt ainsi
dim feuille as woksheet
Code Visual Basic :
For each feuille in worksheets
 if not feuille is worksheets("nom_de_la_feuille_a_ne_pas_traiter") then
   ' et là tu cherches sur la feuille feuille de manière récursive
 end if
next

2) l'exemple donné à la rubrique Find est pourtant clair. Il traite de surcroît de manière récursive. Tu ne t'es même pas inspiré de cet exemple ! recommence.
3) la dernière ligne remplie d'une colonne (exemple colonne B de la feuille feuille ) est :
feuille.range("B" & rows.count).end(xlup).row
Met un peu du tien, maintenant. Montre que tu as envie de développer et non de simplement attendre qu'on écrive à ta place ce code. En ce qui me concerne : j'y tiens et attends de toi cet effort-là
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
vendredi 8 mars 2013 à 21:05:51 | Re : Fonction "rechercher"

MPi


N'oublie pas que si tu double-cliques une cellule, la cellule se met en mode édition et rien ne peut s'y écrire en principe...

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI


Cette discussion est classée dans : fonction, numéro, onglet, facture, rechercher


Répondre à ce message

Sujets en rapport avec ce message

fonction "Rechercher..." de word [ par Thrakkazz2000 ] Bonjour,Je travaille sur une appli vb qui doit me permettre de supprimer des paragraphes d'un document word en fonction du profile du destinataire (Do Enregistrement d'un numéro [ par DjTommy ] Salut, Je suis en train de faire un programme de facturation, et je voudrais que a chaque fois que je fais Nouvelle Facture, le numéro de facture s'in Fonction Rechercher de Windows [ par neXus ] Est ce que quelqu'un sait comment lancer la fonction rechercher qui se trouve dans le menu demarrer de Windows.Existe il un exe dans windows assurant Fonction verifie nom [ par kat40 ] Bonjour, Dans mon application VB utilise une base de données Acess. Lorsque je rentre des données, je dois vérifier si le numéro du chèque est déjà ut fonction lors d'un changement d'onglet [ par HZ ] BonjourJ'aimerais savoir si il existe une fonction qui traite l'évenement de "changement d'onglet" dans une SSTAB C'est-a-dire une fonction qui sera a NO.SEMAINE [ par fzoul ] Excel fournit une fonction, via une macro complémentaire, qui permet de "calculer" le numéro de semaine d'une date donnée, fonction qui m'a déjà ammen associer fonction et numéro [ par brid ] Voila j'ai une question assez simple mais j'ai du mal à la formuler.Par exemple j'ai un label1 et label2. une variable temp (entier)Je veux par exemp fonction rechercher dans un textbox [ par VirusMan2 ] bonjouj'ai un textbox et je voudrai pouvoir chercher des lettres ou des mots dans le textbox par exemple'si je cherche "a" dans "a b c d f g h j k l m VB : lancer l'explorateur (option ?) et surtout fonction rechercher un texte [ par DUX76 ] Bonjour, Je suis a la recherche des différentes options utilisables avec explorer.exe.Le but étant de pouvoir lancer l'explorer et d'utiliser la fonct


Nos sponsors


Sondage...

CalendriCode

Mai 2013
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Photothèque

A découvrir



 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,716 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales