Aide macro bouton recherche

Bonjour à tous,

Mon problème aujourd'hui est que j'ai un bouton sur ma feuille excel, et il faudrait que, en appuyant dessus cela me fasse une recherche de "Nom" sur les autres feuilles afin d'avoir la ou les personnes correspondant au nom rentrer par la personne et le lieu de vote

Mon réel problème et que je ne sais pas ou coder en VB ( Dans la feuille, "dans le bouton").

Je reste continuellement un débutant en Excel car je ne l'utilise que très rarement!

je vous joins le fichier

Si vous savez comment je dois faire, je vous en remercie d'avance.

Cordialement,

Salut Marwan, et bienvenue sur ce Forum,

Est-ce que tu veux que l'on te fasse directement ce code, ou est ce que tu veux que l'on te dise comment procéder étape par étape pour t'entraîner ?

Les deux me vont.

Restant à ta dispo

Merci juice

jaimerais quon me fasse le code en meme temps je m’entraine pour connaitre les bases

Bonjour et bienvenue sur le forum

Bonjour à tous

Un essai à tester. Te convient-il ?

Bye !

Re-

Salut gmb

Un code similaire :

Sub BtnExec_Clic()
Dim Nom As Range
Dim x As Long, y As Long, z As Long
For x = 2 To Worksheets.Count
    Set Nom = Sheets(x).Cells.Find(what:=Sheets("rechercher").Cells(5, 2))
    If Not Nom Is Nothing Then
    z = Range("F" & Rows.Count).End(xlUp).Row + 1
        For y = 1 To 6
            Sheets("rechercher").Cells(z, y + 5) = Sheets(x).Cells(Nom.Row, y)
        Next
    End If
Next
End Sub

J'ai supprime la colonne Numéro de la feuille "FRANCE" car c'est la seule à changer de disposition.

Restant dispo au besoin

bien recu

je vais tester et je reviens a vous

merci de votre aide

MERCI JUICE ET GMP

CA ME CONVIENT

JUICE JE N'AI PAS COMPRIS CE CODE JE DOIS L´AJOUTER SUR LE CODE OU BIEN ???

GMP SI PAR EXEMPLE DANS UN FICHIER EXCEL AVEC 48 FEUILLES (ON A TESTE QUE TROIS) JE DOIS MODIFIER LE CODE OU BIEN???

JE MEXCUSE POUR LE DERANGEMENT

CORDIALEMENT

Re-

Évite de laisser la touche majuscule activée xD

Concernant mon code, il est fait pour remplacer et pas pour être rajoutée :p

Concernant le code de gmB (et pas gmp xD), je vous laisse voir sa ensemble

Restant tout de même à dispo!

merci pour ta reponse

[color=#008000]Juice[/color]

par exemple j'ai un fichier excel avec 48 feuilles differents pays

avec ce code tu as besoin de modifier

Re-

Tu n'a pas besoin de modifié le code.

Gmb et moi avons utilisé une Boucle For pour exécuter la procédure sur toute les feuilles :

extrait du code de gmb :

For Each f In Worksheets

extrait de mon code :

For x = 2 To Worksheets.Count

Donc tu peux avoir 2 feuilles comme en avoir 48, le code exécutera la procédure sur toutes les feuilles

Donc pas besoin de modif

bonjour tout le monde

bonjour GMP et juice

merci de votre aide

j´essaie de m´entrainer avec le VBA mais j´ ai un petit probleme comme je travaille avec 50 feuilles

il m´a signale un petit erreur

voila

Option Explicit

Dim f As Worksheet

Dim i&, col&, lgn&

Sub Executer()

Range("F5:K" & Range("F" & Rows.Count).End(xlUp)(2).Row).Clear

For Each f In Worksheets

If f.Range("B1") = "PRENOM" Or f.Range("A1") = "PRENOM" Then

col = f.Rows("1:1").Find("PRENOM").Column

For i = 2 To f.Cells(Rows.Count, col).End(xlUp).Row

If UCase(f.Cells(i, col)) = UCase(Range("C5")) And UCase(f.Cells(i, col + 1)) = UCase(Range("B5")) Then

lgn = Range("F" & Rows.Count).End(xlUp)(2).Row

f.Range(f.Cells(i, col), f.Cells(i, 7)).Copy Range("F" & lgn)

End If

Next i

End If

Next f

End Sub

voila couleur bleu

cordialement

Re Marwan,

Tu peux nous mettre une copie de ton fichier ?

voila

En feuille "LERIDA" à la Cellule "B239" tu a une liaison avec un autre fichier, ce qui te génère ton erreur.

Restant à dispo

hop c est juste une erreur de frappe merci mon cher

je reviens a vous tt a lheure

Cordialement

HOLA JUICE

TOUT EST NORMAL

JUSTE UNE DERNIERE QUESTION

SI JE VOULAIS CHANGER COMME LE FICHIER COMMENCE PAR RECHERCHER NOM ET PRENOM

JE VOULAIS FAIRE PRENOM ET NOM

JE DOIS LE CHANGER If UCase(f.Cells(i, col)) = UCase(Range("B5")) And UCase(f.Cells(i, col + 1)) = UCase(Range("C5")) CONTRE CELUI

If UCase(f.Cells(i, col)) = UCase(Range("C5")) And UCase(f.Cells(i, col + 1)) = UCase(Range("B5"))

CORDIALEMENT

Salut Marwan,

Je ne comprend pas ta demande,

MARWAN2610 a écrit :

SI JE VOULAIS CHANGER COMME LE FICHIER COMMENCE PAR RECHERCHER NOM ET PRENOM

JE VOULAIS FAIRE PRENOM ET NOM

Qu'est ce que tu veux faire ?

Et pour info, la ligne de code [...]

If UCase(f.Cells(i, col)) = UCase(Range("B5")) And UCase(f.Cells(i, col + 1)) = UCase(Range("C5")) 

[...] permet de tester si la ligne trouver correspond bien au nom et prénom renseigné dans ta feuille "Rechercher"

Joyeuse fête!

hola juice

je mexcuse

je voulais rechercher par prenom et nom comme fichier actuelle cest nom et prenom

JOYEUSES FETES

Cordialement

Aaaah oui je vois ce que tu veux!

Donc oui, si en cellule B5 tu renseigne le prénom, et que en cellule C5 tu renseigne le nom, alors tu devras modifier ton code comme tu l'indique dans ton message :

MARWAN2610 a écrit :

CONTRE CELUI

If UCase(f.Cells(i, col)) = UCase(Range("C5")) And UCase(f.Cells(i, col + 1)) = UCase(Range("B5"))

Tu avais déjà la réponse

Restant à dispo

merci juice

le probleme est resolu

je vais mattaquer gestion des stocks entree sorti inventaire

si tu as un fichier gestion de stocks je suis preneur

je te souhaite BONNE FETE