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

O

odohe

XLDnaute Occasionnel

• 31 Mai 2019

• #76

j'avais retenu votre méthode

 

Dernière édition: 31 Mai 2019

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 31 Mai 2019

• #77

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

 

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 31 Mai 2019

• #78

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

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Mai 2019

• #79

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

VB:

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

 

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 31 Mai 2019

• #80

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Mai 2019

• #81

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?

 

Dernière édition: 31 Mai 2019

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 31 Mai 2019

• #82

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

 

Dernière édition: 31 Mai 2019

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 5 Décembre 2019

• #83

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.

 

Dernière édition: 8 Décembre 2019

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 5 Décembre 2019

• #84

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.

 

Dernière édition: 7 Décembre 2019

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 7 Décembre 2019

• #85

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Décembre 2019

• #86

Bonjour le fil, odohe

Petit rappel

La Charte XLD à dit:

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.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 7 Décembre 2019

• #87

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Décembre 2019

• #88

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) ?

 

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 7 Décembre 2019

• #89

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Décembre 2019

• #90

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

 

Vote positif 0 Vote négatif