XL pour MAC Report de valeur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

Dernière édition:
Bonjour @Mkarambole

1710364454790.png

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

Bonne lecture
 
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:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
410
Réponses
26
Affichages
1 K
Retour