USF rechercher sur plusieur onglet

creolia · 2 Février 2010

bonjour je suis confronter a un problème je cherche comment faire une recherche sur 3 onglet de mon classeur j'utilise cette macro pour rechercher sur un seul onglet mais je sais pas comment faire sur plusieur onglet

Code:

With Sheets("DONNEE")
    If Flag = True Then Exit Sub
    Flag = True
    On Error Resume Next
    If ComboA = Left((.Cells(ComboA.ListIndex + 8, 1)), Len(ComboA)) Then
        ComboB = .Cells(ComboA.ListIndex + 8, 2)
        
        TXT = .Cells(ComboA.ListIndex + 8, 5)
       
TXT0 = .Cells(ComboA.ListIndex + 8, 3)

merci pour votre aide

creolia · 2 Février 2010

Re : USF rechercher sur plusieur onglet

j'ai fais un USF en fichier joint pour une seul feuil donc si une bonne âme peut m expliquer pour plusieurs feuil merci a tous

Excel-lent · 2 Février 2010

Re : USF rechercher sur plusieur onglet

Bonsoir Creolia,

creolia à dit:
je suis confronter a un problème je cherche comment faire une recherche sur 3 onglet

Il n'y a pas un problème, mais deux 😉

En effet, ta macro ne fait la recherche que sur le premier onglet. Mais la macro alimentant ta combobox est également banquale, elle ne prend que les valeurs du premier onglet.

Voici ci-joint ton fichier corrigé et complété.

Si besoin d'explications, il n'y a qu'à demander!

Cordialement

cpeens · 2 Février 2010

Re : USF rechercher sur plusieur onglet

MERCI c'est vraiment sympa pour ton aide

mais ce que je cherche a faire c'est pas rechercher de cette facon

mais plus du genre
onglet1 NOM-PRÉNOM-AIDE-COMMENTAIRE
onglet2
option1-option2-option3

et mon usf affichera donc

combo1-NOM
TXT0-PRÉNOM
TXT1-AIDE
TXT2-COMMENTAIRE
TXT3-OPTION1
TXT4-OPTION2
TXT5-OPTION3

En claire comme une suite entre plusieurs onglet

existe t'il une solution comme ceci svp

merci

Excel-lent · 2 Février 2010

Re : USF rechercher sur plusieur onglet

Bonsoir Cpeens, Créolia,

Entre ce post et celui sur lequel nous sommes, je suis vraiment perdu!

Vous ne faîte donc qu'un? Tu utilise deux pseudos?

Je n'ai rien contre le fait d'avoir deux pseudo, mais poser pratiquement la même question, de deux façons différentes, avec deux pseudo différent, on s'y perd complétement!

Pour que cela soit plus clair, ferme une des deux discussions et continue sur l'autre!

**************************

Je ne suis pas sûr d'avoir bien compris ton explication! Cela sort tellement des sentiers battus!

C'est vraiment bizarre! Je vais voir si la pièce jointe et plus clair et je reviens.

A tout à l'heure.

Excel-lent · 2 Février 2010

Re : USF rechercher sur plusieur onglet

Bonsoir,

En faite, si j'ai bien compris, tu t'es inspiré de l'idée de JP14? Une colonne par formation, mais comme tu n'as pas assez de colonne, tu continue sur l'onglet d'après?

Tu peux me confirmer cela, avant que je me lance sur un code hors sujet?

Si mon interprétation est juste, il serait bien de prévoir une colonne sur chaque onglet contenant ta clé primaire (cf. language ACCESS : code unique et sans doublons attribué à chaque entrée).

Excel-lent · 2 Février 2010

Re : USF rechercher sur plusieur onglet

Bonsoir à vous deux,

Voici ci-joint une proposition. Sauf erreur, elle correspond à vos questions.

Bonne fin de soirée

cpeens · 3 Février 2010

Re : USF rechercher sur plusieur onglet

c'est exactement sa t'a taper dans le mille

et cette clef primaire je peut l'ajouter manuellement je pense .

une derniere precision stp pour ajouter les donner j'usqua lors j'utilisais une ligne vide que je renseignais gace a la propriete des textbox
ex

Code:

nom_de_la_feuil!A2

dois je toujours utiliser cette technique ou ya t'il une autre solution pour remplir ma base de donner stp merci

Excel-lent · 3 Février 2010

Re : USF rechercher sur plusieur onglet

Bonjour Cpenns,

(tu n'as pas répondu, tu es également Créolia?)

Oui, tu peux ajouter la clef primaire manuellement. A ce propos :
--> tu remarqueras que j'ai mis un format spécial pour tes cellules colonnes A.
Il te suffit d'écrire 1, et excel rajoute les zéro nécessaire devant

--> attention, si tu le fais manuellement, d'être TRES rigoureux pour ne pas faire de doublons

--> tu as vu que sur la feuille 2, il n'y a pas d'information pour la clef primaire "002"? C'est volontaire. C'est pour te montrer que la macro fonctionne (ben oui... il arrivera bien un jour où tu n'auras pas tous les renseignements - c'est mieux de ne rien mettre que de mettre une ligne entièrement vide?).

cpeens à dit:
pour ajouter les donner j'usqua lors j'utilisais une ligne vide que je renseignais gace a la propriete des textbox
ex

Code:

nom_de_la_feuil!A2

dois je toujours utiliser cette technique ou ya t'il une autre solution pour remplir ma base de donner stp merci

Je comprend pas comment tu fais. Tu peux nous joindre ton exemple?

Sinon, une méthode sympa :
-> créer une USF "SAISIE", dans laquelle l'utilisateur mettra toutes les informations nécessaire, et la macro se chargera d'alimenter automatiquement ta base de donnée (et elle créera automatiquement une clef primaire - évite ainsi les erreurs).

Bonne journée

Cordialement

creolia · 3 Février 2010

Re : USF rechercher sur plusieur onglet

merci de m'avoir repondu

oui je suis egalement creolia j'ai changer de pseudo car j'arrivais pas a modifier l intitulé et comme le premier poste etait plus un apelle aux idées

j'ai fais un autre topic avec ce pseudo pensant que se serais plus simple et plus clair mais apparement non.

pour informer ma base de donnee je clique sur chaque textbox et je rentre dans propriete controlsource et j'ajoute

Code:

DONNE!A2

DONNEE etant le nom ma feuille. puis une macro qui renseigne une ligne la copie dans la ligne libre de ma base de donne et une autre macro qui efface la ligne je t'ai mis un exemple.

toi tu me propose -> créer une USF "SAISIE", je sais pas ce que c'est mais je ferais une reherche es ce qu'il va me permettre de faire un peut comme pour la recherche sur plusieur onglet de feuille?

en tous cas l'exemple que tu ma fais est super merci encore m'aider vue le gros truc(pour moi lol) que je me suis attaquer mais bon c'est passionant c'est deja sa .
a bientot

creolia · 3 Février 2010

Re : USF rechercher sur plusieur onglet

je crois j'ai omis le fichier

creolia · 4 Février 2010

Re : USF rechercher sur plusieur onglet

bonjour pour essayer de comprendre le code de exelence j'ai ajouter un 3 onglet et tenter dans usf de le faire apparaitre sauf qu'il ya rien qui ce passe quelqu un pourais t il m aider a comprendre pourquoi

Code:

Private Sub UserForm_Initialize()

Dim cell As Range

With Sheets("DONNEE")
    For Each cell In .Range("B2:B" & .Range("B65536").End(xlUp).Row)
        Combo1.AddItem (cell)
    Next
End With

End Sub

Private Sub Combo1_Change()

NbOnglet = Sheets.Count

For i = 0 To 10
 Controls("TXT" & i) = ""
Next i

With Sheets("DONNEE")
    For Each cell In .Range("B2:B" & .Range("B65536").End(xlUp).Row)
        If Combo1.Value = cell.Value Then
           For j = 0 To 2
                Controls("TXT" & j) = cell.Offset(0, j + 1).Value
                ClePrimaire = cell.Offset(0, -1).Value
           Next j
        End If
    Next
End With

With Sheets("DONNEE2")
        For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
            If ClePrimaire = cell.Value Then
               For j = 2 To 6
                Controls("TXT" & j) = cell.Offset(0, j - 1).Value
               Next j
             End If
        Next
End With


With Sheets("DONNEE3")
        For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
            If ClePrimaire = cell.Value Then
               For j = 7 To 10
                Controls("TXT" & j) = cell.Offset(0, j - 1).Value
               Next j
             End If
        Next
End With


End Sub



Private Sub CommandButton1_Click()
  
  Unload UserForm1

End Sub

creolia · 4 Février 2010

Re : USF rechercher sur plusieur onglet

solution trouver pour le post precedent

il falais juste modifier

Code:

With Sheets("DONNEE3")
        For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
            If ClePrimaire = cell.Value Then
               For j = 7 To 10
                Controls("TXT" & j) = cell.Offset(0, j - [COLOR="Red"]1 en [COLOR="Lime"]-6[/COLOR][/COLOR]).Value
               Next j
             End If
        Next
End With


End Sub

voilou

USF rechercher sur plusieur onglet

creolia

XLDnaute Impliqué

creolia

XLDnaute Impliqué

Pièces jointes

Excel-lent

XLDnaute Barbatruc

Pièces jointes

cpeens

XLDnaute Occasionnel

Pièces jointes

Excel-lent

XLDnaute Barbatruc

Excel-lent

XLDnaute Barbatruc

Excel-lent

XLDnaute Barbatruc

Pièces jointes

cpeens

XLDnaute Occasionnel

Excel-lent

XLDnaute Barbatruc

creolia

XLDnaute Impliqué

creolia

XLDnaute Impliqué

Pièces jointes

creolia

XLDnaute Impliqué

Pièces jointes

creolia

XLDnaute Impliqué

Discussions similaires

USF rechercher sur plusieur onglet

XLDnaute Impliqué

XLDnaute Impliqué

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Impliqué

Pièces jointes

XLDnaute Impliqué

Pièces jointes

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency