Microsoft 365 Saisie automatique dans cellule en fonction d'une autre

[odohe]

Bonjour, à tous

je tiens à préciser que je suis novice.
Voila ma question j'ai un classeur qui se nomme PCC y aurait-il possibilité avec un code VBA d'inscrire automatiquement dans les cellules de la colonne B en fonction du nombre indiquer dans les cellules A et qui va rechercher le résultat sur le classeur nommer Affectation Tram
Voici un exemple que j'aimerai obtenir

Classeur PCC

Classeur Affectation Tram​

Ps: j'ai bien une formule qui fonctionne assez bien mais c'est pas terrible d'avoir des formule inscrit dans les cellules

=RECHERCHEV(A3;'Affectation Tram'!Y1:Z397;2;FAUX)

Merci d'avance pour votre aide.

 

[mapomme]

mapomme
L'est ou le fichier?

Il est arrivé.

 

[odohe]

Re

Oui la feuille idoine.
Et évidemment on ne peut pas avoir deux procédures Worksheet_Change sur la même feuille

Ce n'est pas grave, pour juste tester le dernier code VBA proposé, copie-le dans la première feuille venue d'un classeur vierge.
Et donc saisis en I7 par exemple, 1600 et observe ce qui s'affiche alors en L7


Partant de cette observation, va falloir adapter en conséquence
Par exemple pour se simplifier la vie, mettre la formule RECHERCHEV sans passer par VBA.

Sorry Staple c'est vrai que je n'ai pas été tout a fait clair sur mon message 33
Le code que vous m'avez donné fonctionne, par contre si j'ai bien compris votre précédent message, je ne sais pas placé 2 procédures Worksheet
par contre je suis preneur pour la formule

 

[Staple1600]

Re

La formule est à disposition depuis le message#2

mapomme
Je t'ai heurté?
T'as l'air chafouin

 

[odohe]

Bonjour @odohe , @Staple1600,

Je reviens sur le tri Oui/Non.

Excel a d'office (je sais le jeu de mots est facile) ce qu'il faut pour le faire.

Voir dans le fichier joint comment le mettre en œuvre. C'est plus facile et rapide à faire qu'à le décrire

Bonjour mapomme

je vais essayé
Merci à vous deux pour votre patience

 

[mapomme]

mapomme
Je t'ai heurté?
T'as l'air chafouin

Oh que nenni! L'émoticone voulait signifier que j'étais contrit d'avoir oublié de joindre le fichier privant ainsi l'humanité d'une oeuvre fondamentale et refondatrice. Ce doit être la campagne électorale qui me parlait fait comme eux.

 

[odohe]

Re

La formule est à disposition depuis le message#2

mapomme
Je t'ai heurté?
T'as l'air chafouin

je ne pense pas être encore prêt à modifié la formule pour qu'il prenne en compte le usename windows
j'ai essayé mais sans résultat

Help me

 

[Staple1600]

Re

[mapomme]
[aparté]
J'avions été voté au mitan de la journée.
Et de prime abord, je fus moi chafouin car il y avait la queue devant l'isoloir!
Et j'aime pas faire la queue (Sauf si c'est HFT qui la chante )
Après avoir réfléchi 17 secondes, je fus moins chafouin, me disant que c'était bon signe si l'humanité de France est nombreuse dans l'isoloir.
[/aparté]

Pour retourner dans le monde de la Cellule, m'en vais voir cette histoire de tri à ta sauce
(tri qui chez moi s'est fait par le biais d'un format personnalisé)

 

[Staple1600]

Re

[odohe]
Houla tu te mélanges les pinceaux, nom d'un petit bonhomme
Pour l'username c'est ceci

Private Sub Worksheet_Change(ByVal T As Range)
If T.Column = 9 Then
T(1, 4) = Environ("username")
End If
End Sub

• Quant à la formule, je parle de celle que j'ai posté dans le message#2
Donc il te faut derechef retourner voir le message#2

EDITION
mapomme
Very smart, le coup de la liste personnalisée
Reste à savoir ce qui est plus long
Appliquer un format personnalisée sur une colonne
ou
créer une liste personnalisée?

 

[odohe]

Oui je pense vous avoir compris mais comme vous me l'aviez evoqué plus haut je ne sais pas utilisé

deux procédures Worksheet_Change sur la même feuille
c'est de là que vous m'aviez proposé d'utilisé la formule du message 2 mais le souci cette formule était pour rechercher les données sur une autres feuilles non pas pour ma demande de username
je ne sais pas si je me suis bien fais compris ​

 

[Staple1600]

Re

Ma suggestion est la suivante
La formule est saisie manuellement et recopiée vers le bas.
Pour la procédure événementielle, on ne garde que celle que je t'ai proposée dans le message#53

Fais le test.

Qu'est-ce que cela donne à l'usage?

 

[Staple1600]

Re

Autre suggestion (si tu veux du tout VBA)
Donc dans le code de la feuille idoine
Remplace l'existant par les procédures ci-dessous

Private Sub Worksheet_Activate()
Dim DerL As Long
DerL = Cells(Rows.Count, 1).End(3).Row
Range("B3:B" & DerL + 5) = "=IFERROR(VLOOKUP(RC[-1],'Affectation Tram'!R1C25:R99999C26,2,FALSE),"""")"
End Sub

Private Sub Worksheet_Change(ByVal T As Range)
If T.Column = 9 Then
T(1, 4) = Environ("username")
End If
End Sub

PS: Je laisse deviner à quoi sert le +5 et pourquoi au lieu de +5, on pourrait mettre +13 ou +32
Bref +N

 

[odohe]

Sorry pour le retard, obligation conjugal mais celui que je désirais
je n'y arrive pas je dois vraiment être nul! j'ai placer les code que tu me propose mais je dois certainement bloqué quelque part, je pense qu'il faudra que je sacrifie des commandes VBA comme vous me l'avez dit, donc soit je place juste celui là en code VBA

Private Sub Worksheet_Change(ByVal T As Range)
If T.Column = 9 Then
T(1, 4) = Environ("username")
End If
End Sub​

Et pour les affectation des trams je prendrai la formule que vous m'aviez donné dans le poste 3
par contre serait il possible que vous me fassiez une formule pour les dates
- j'écrit à partir de la colonne A3 et les dates s'inscrivent dans les cellules de la colonne C3
-

j'écrit à partir de la colonne i3 et les dates s'inscrivent dans les cellules de la colonne J3​

Merci

 

[Staple1600]

Re

Dans le message#56, il y a deux macros.
Donc toujours dans le feuille idoine, il ne doit y a voir que ces deux codes.
Ni plus ni moins.
Une fois que cela est fait, sélectionne une autre feuille, puis retourne sur la feuille idoine.

Saisis un numéro de TRAM en colonne A puis une valeur dans la colonne Réparé par.

Normalement, il doit se passer quelque chose, non ?

 

[odohe]

Au risque de paraitre bête c'est quoi cette feuille idoine ou là trouver? c'est juste une feuille que vous avez nommer idoine?
Alors cela veut dire que je crée une nouvelle feuille que je nome comme bon me semble et ou je place le code donner tout en suivent la manipulation donné.

 

[Staple1600]

Re,

Voir le lien que je t'ai mis dans le message idoine
(message#40)

PS: Si la fatigue te guette, on peut continuer demain.
Car je vais pas tarder à utiliser ma zapette et appuyer sur le bouton idoine pour atterrir sur la chaîne TV que je souhaite regarder ce soir.

NB: J'ai mis aussi un lien dans ce message.
Normalement, avec tout cela, tu as du désormais trouvé quelle était la feuille idoine, non ?