XL pour MAC Report de valeur

Phil69970

XLDnaute Barbatruc

• 13 Mars 2024

• #2

Bonjour @Mkarambole


Comme tu as mis un fichier PDF j'ai une piste tout en image :

Bonne lecture

 

Vote positif 0 Vote négatif

M

Mkarambole

XLDnaute Nouveau

• 14 Mars 2024

• #3

Ohlala pardon, je n'ai fait pas attention ! Voici en PJ
(modifié dans le message initial également)

 

Pièces jointes

• Test équipes-3.xlsx

  72 KB · Affichages: 4

Vote positif 0 Vote négatif

M

Mkarambole

XLDnaute Nouveau

• 14 Mars 2024

• #4

@Phil69970

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 15 Mars 2024

• #5

Bonjour @Mkarambole

Avec un fichier c'est beaucoup mieux !!!
Je te propose ce fichier

Merci de ton retour

 

Pièces jointes

• Cherche equpe V1.xlsm

  105.3 KB · Affichages: 22

Vote positif 0 Vote négatif

M

Mkarambole

XLDnaute Nouveau

• 15 Mars 2024

• #6

Merci beaucoup pour ton aide mais il semblerait que je ne peux pas lancer la macro...Existe-t-il une formule plus simple je pourrais utiliser ?

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 15 Mars 2024

• #7

Re

@Mkarambole

Mkarambole à dit:

mais il semblerait que je ne peux pas lancer la macro...

Cliquez pour agrandir...

1)Tu revois le niveau de sécurité

2)Tu actives les macros à l'ouverture du fichier



3)Et tu cliques sur le bouton !!!


Je penses que tu peux le faire !!!


4)Sinon tu copies la macro dans ton fichier

VB:

Sub QuelEquipe()
Application.ScreenUpdating = False
Dim Ws As Worksheet, Rg As Range, i&, Zone
Set Ws = Worksheets("Feuille 1")
Zone = "E2:L11"
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    Set Rg = Ws.Range(Zone).Find(What:=Ws.Range("A" & i), lookat:=xlWhole)
    If Not Rg Is Nothing Then
        Ws.Range("B" & i) = Ws.Cells(1, Rg.Column)
    Else
        Ws.Range("b" & i) = "Pas trouvé"
    End If
Next i
End Sub

5)Tu crées un bouton et tu associes la macro au bouton

 

Dernière édition: 15 Mars 2024

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 16 Mars 2024

• #8

Bonjour à tous,

Un essai avec Power Query et formules

JHA

 

Pièces jointes

• Test équipes.xlsx

  106.3 KB · Affichages: 3

Vote positif 0 Vote négatif

M

Mkarambole

XLDnaute Nouveau

• 21 Mars 2024

• #9

Bonjour, merci à tous les deux, mais je n'arrive pas à faire marcher la macro ou la formule via PowerQuery, merci quand même.
N'y a-t-il pas moyen de faire autrement avec "simplement" une formule ?

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 21 Mars 2024

• #10

Bonjour à tous

@Mkarambole

Mkarambole à dit:

je n'arrive pas à faire marcher la macro

Cliquez pour agrandir...

La macro sur le fichier que j'ai fourni du post # 5 fonctionne t'elle ?

As tu un message d'erreur si oui lequel etc .....

Dire cela ne marche pas sans explication ne veut rien dire
Et chez moi mon fichier fonctionne
La preuve en image

 

Dernière édition: 21 Mars 2024

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 21 Mars 2024

• #11

Bonjour à tous,

Pour le tableau réalisé avec Power Query, il faut actualiser le tableau si changement des données en "Feuille 1".
Pour actualiser, tu sélectionnes une cellule du tableau de l'onglet "Tableau1" et clic droit puis "Actualiser".
Pour les formules, rien à faire.

JHA

 

Vote positif 0 Vote négatif