XL pour MAC Report de valeur

Mkarambole

XLDnaute Nouveau
Bonjour,

J'organise un grand jeu où j'ai créé des équipes de manière aléatoire (équipes 1 à 8, colonnes E à L). J'aimerais trouver la formule pour reporter les numéros d'équipe (ligne E1 à L1 dans la colonne B), à côté des noms (colonne A).
Merci de votre aide !
 

Pièces jointes

  • Test équipes-3.xlsx
    72 KB · Affichages: 2
Dernière édition:

Phil69970

XLDnaute Barbatruc
Bonjour @Mkarambole

1710364454790.png

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

Bonne lecture
 

Phil69970

XLDnaute Barbatruc
Re

@Mkarambole

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

1)Tu revois le niveau de sécurité

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

1710537091241.png


3)Et tu cliques sur le bouton !!!
1710537354154.png


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:

JHA

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
315 166
Messages
2 116 912
Membres
112 911
dernier inscrit
zkazumba