Forum Replies Created

Viewing 3 posts - 1 through 3 (of 3 total)
  • Author
    Posts
  • 29 April 2018 at 22 h 39 min in reply to: Traiter les mots de passe avec Macro VBA #42895
    Jean-Marc Voyer
    Participant

    Bonjour,
    Il est possible de protéger les macros en ajoutant un mot de passe sur le “projet VBA” (VBAProject).
    Pour se faire, il suffit d’aller dans l’éditeur VBA et de cliquer avec le bouton de droite sur “VBAProject (NomDufichier.xlsm) > VBAProject Properties…
    Ensuite, dans l’onglet “Protection”, il ne reste qu’à ajouter un mot de passe. (et de NE PAS le perdre).
    Sans le mot de passe, il ne sera pas possible de voir le code des macros.

    10 April 2018 at 21 h 06 min in reply to: conditions en excel. #42550
    Jean-Marc Voyer
    Participant

    Bonjour,
    Par formule, je ne saurais trop comment le faire facilement mais par VBA, voici 2 exemples. Il suffit de sélectionner la plage et d’exécuter la macro (ALT+F8 et choisir la macro)

    La 1re : éléments ne sont pas triés.

    Sub Doublons()
   Dim rg As Range, c As Range
   Dim Dic
   
   Set Dic = CreateObject("scripting.dictionary")
   Set rg = Selection
   For Each c In rg
      If c.Value <> "" And Not Dic.exists(c.Value) Then Dic.Add c.Value, ""
   Next c

   Set rg = Application.InputBox("Choisir cellule destination", , , , , , , 8)
   rg.Resize(Dic.Count, 1) = Application.Transpose(Dic.keys)
   
End Sub

    La 2e : les éléments sont triés:

    Sub DoublonsTri()
   Dim rg As Range, c As Range
   Dim AL
   
   Set AL = CreateObject("system.collections.arraylist")
   Set rg = Selection
   For Each c In rg
      If c.Value <> "" And Not AL.contains(c.Value) Then AL.Add c.Value
   Next c

   Set rg = Application.InputBox("Choisir cellule destination", , , , , , , 8)
   AL.Sort
   rg.Resize(AL.Count, 1) = Application.Transpose(AL.toarray)
   
End Sub
    7 April 2018 at 21 h 09 min in reply to: conditions en excel. #42450
    Jean-Marc Voyer
    Participant

    Bonjour,

    voici une proposition à tester:

    =IF(OR([@Type]="SGN1", [@Type]= "SGN2"),IF(WEEKDAY([@Date],2) = 5, [@Date]+5,[@Date]+2), IF(OR([@Type]="CDD", [@Type]="CDG"),"Disponible"))

  • Author
    Posts
Viewing 3 posts - 1 through 3 (of 3 total)