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.

 

[odohe]

j'avais retenu votre méthode

 

[odohe]

Oui c'est bizarre et pourtant je n'ai rien modifié hormis les 2 codes que vous m'avez fournis
Je peux vous montré les différent codes qu'il y a sur la feuille PCC

 

[odohe]

Donc comme je vous ai dis même après clic sur refresh la ligne 3 reste vide

Voici les codes sur la feuille PCC

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Column = 1 And T.Count = 1 Then
T(1, 2) = "=IFERROR(VLOOKUP(RC[-1],'Affectation Tram'!R1C25:R99999C26,2,FALSE),"""")"
End If
End Sub


Private Sub Worksheet_Change(ByVal T As Range)
If T.Column = 9 Then
T(1, 4) = Environ("username")
T(1, 2) = Date ' dernier ajout
End If
If T.Column = 1 Then
T(1, 3) = Date ' dernier ajout
End If
End Sub


Sub supprimerligne()
Dim l As Long
  Application.EnableEvents = False
  For l = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
    If Cells(l, "k") = "toto" Then Rows(l).ClearContents
  Next
  Application.EnableEvents = True
End Sub

Sub refresh()
Dim derlig
  With Sheets("PCC")
    derlig = .Cells(.Rows.Count, "a").End(xlUp).Row
    .Range("a2:L" & derlig).Sort Key1:=.Range("a2"), Order1:=xlAscending, Header:=xlYes
 End With
 
 ' Macro2_Tri_colonne_F Macro

With Worksheets("PCC").[A3:L233]
.Sort Key1:=.Item(6), Order1:=1, Header:=1
 End With
End Sub

 

[Staple1600]

Re

Pourquoi avoir indiqué comme plage Range("A3:L233").
alors que ta ligne d'entêtre est en ligne 2
(c'est que je viens de remarquer sur ta dernière copie d'écran)
Donc dans ce cas, corrigez mon code comme suit

.Sub test_TRI_II()
With Worksheets("PCC").[A2:L233]
.Sort Key1:=.Item(6), Order1:=1, Header:=1
End With
End Sub

 

[odohe]

oui effectivement le problème venait de cette ligne A3 au lieu de A2


pour l'ordre du OUI et NON le souci pourrais venir d'où

Merci

 

[Staple1600]

Re

Tu as bien appliqué le format personnalisé dans la colonne F sur la plage de cellules concernées ?
[F2:F233]
Et dans cette plage, il n'y a que des 1 ou des 2?

 

[odohe]

Bizarre dans mon enceint classeur il fonctionnait correctement mais comme j'ai modifié pas mal de fois j'ai du faire une erreur quel que part
Je vais jeté un coup d'œil ce soir comme je suis au travail il y a couvre-feu merci encore pour votre aide

 

[odohe]

Bonjour,
je solicite votres aides pour perfectioner mon fichier du boulot, je m'explique depuis vôtres dernières aides j'ai apporté quelques petites modifications sur le fichier, par contre j'aimerai bien que vous puissiez m'aider a sécuriser certaines colonnes, je m'explique est-ce possible de verrouiller certaines colonnes en fonction de son User de session windows.

Via un code VBA j'aimerai que certains User est accès à toutes les colonnes et que d'autre est accès juste aux colonnes J, M, N et O


merci d'avance.

 

[odohe]

Bonjour,

J'aurai aussi aimer que lorsque je sélectionne l'une des priorités de la liste déroulante de la colonne D qu'ils soit placer en tète de ligne et que la cellule soit en rouge vif pour urgent, rouge très claire pour élevé.
Exp : toutes les lignes urgent soit en tète puis les lignes élevé et pour terminé les lignes normal

Merci d'avance.

 

[odohe]

Bonjour,

Désolé d'insisté qui peut m'aider a apporter ses modification, sans vouloir abusé j'aimerai mettre en place le fichier le plus rapidement à mon boulot

Merci d'avance.

 

[Staple1600]

Bonjour le fil, odohe

Petit rappel

2 – Tous les membres du forum répondent gracieusement aux questions.
Il n’y a donc aucune obligation de résultat et de délai.

 

[odohe]

Salut, Staple

J'en suis vraiment conscient, et je m'en excuse si je me suis montré insistant, sur tout que je vous en suis déjà très reconnaissant pour toutes vôtres aides passé et future bien sûr

 

[Staple1600]

Re

Donc comme disait ma tante Angèle: "On vient à bout de ses desseins avec la patience."
Quand au boulot, le week-end s'est fait pour en décrocher, non , (entre autres choses) ?

 

[odohe]

Sur ces paroles sages je me décline et je me montrerai patien, blague à part je vous promets que je suis vraiment conscient et reconnaissant du bon taf et de patience que tous les bénévoles du forum font pour des novices comme moi.

Merci encore à vous.

 

[Staple1600]

Re


Si tu déclines, vite va voir un médecin
Et si tu t'inclines, c'est que comme disait (sans doute) Le Grand Schtroumph
"Le découragement est beaucoup plus douloureux que la patience."
tu aimes bien avoir mal