Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

recherche une condition ou une macro

  • Initiateur de la discussion Initiateur de la discussion jf-getaz
  • Date de début Date de début

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 !

J

jf-getaz

Guest
Bonjour,
je ne débute pas en Excel, mais je suis un peu perdu sur certaines fonctions. Je cherche à réalise une macro ou une commande pour le problème suivant:

j'ai une liste de nom en A1:A30 (Jacques; Pierre; etc)
ces personnes possèdes un casier avec un numéro de clé: liste en B1:B30
(exemple: Jacques A1 possède la clé 1344 notée en B1)

dans le plan du vestiaire le casier 1344 se trouve dans la case AA10

J'aimerai inscrire automatiquement le nom de Jacques dans la case AA11

Les places des casiers et leur no sur le plan son fixe.
Par contre la liste A1:A30 est variable ainsi que la liste B1:B30

Merci d'avance à tous les spécialistes pour leur réponse...
 
Re : recherche une condition ou une macro

Salut jf-getaz,
bienvenu sur le forum. Je dois t'avouer que je ne suis pas certain d'avoir tout compris de ton problème.

Je prendrai donc pour acquis que quand tu dis case, il s'agit d'une cellule.

Voici l'action réalisée. Il prendra toutes les cellules de la colonne C qui sont les "Cases". Il conservera en mémoire le nom qui lui est associé et ira le mettre dans la bonne cellule. Donc, par exemple, en A2, il y a le nom Pierre, et en C2, il y a la case "AA10". Le nom Pierre s'inscira donc dans la cellule AA10.

Voici un essai :
VB:
Sub Test()
Dim Cellule As String, Le_Nom As String
Dim i As Integer, DL As Integer

Application.ScreenUpdating = False
DL = Cells(65536, 3).End(xlUp).Row
For i = 2 To DL
    Cellule = Cells(i, 3).Value
    Le_Nom = Cells(i, 1).Value
    Range(Cellule).Value = Le_Nom
Next i

End Sub

C'est certain qu'avec un petit fichier exemple, sans données confidentielles, il serait beaucoup plus simple de t'aider. À te relire pour plus,

Cordialement,

Étienne
 
Re : recherche une condition ou une macro

Salut Etienne,
Merci pour cette réponse rapide. En effet, il s'agit de cellule... oups! je vais tester cette macro et je te fais un retour rapidement.

Salutations
Jacques
 
Re : recherche une condition ou une macro

Bonjour tout le monde,

Une proposition par formule. En AA11 :
=SI(NB.SI($B:$B;"="&AA10)>0;INDEX($A:$A;EQUIV(AA10;$B:$B;0));"")
à copier/coller dans les cellules concernées.

Si besoin on peut aussi contrôler si un casier est attribué plusieurs fois avec :
=SI(NB.SI($B:$B;"="&AA10)=1;INDEX($A:$A;EQUIV(AA10;$B:$B;0));SI(NB.SI($B:$B;"="&AA10)>1;"+++";""))

eric
 
Re : recherche une condition ou une macro

Bonjour jf,

Je me suis permis de reprendre le code de l'ami du Québec ... Etienne 😉

Si je peux me permettre une remarque... attention de bien recopier les numéros des casiers pour éviter les erreurs ...

A +
🙂

P.S. content d'aider les gens de l'Etat de Genève ...
 

Pièces jointes

Re : recherche une condition ou une macro

Merci à tous... j'aurai pu virer les infos du fichier... mais ne l'ébruitez pas trop c'est pas forcément à mon avantage!

Au fait la méthode d'Eric fonctionne également très bien.

A bientôt
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…