Toutes mes réponses sur les forums

3 sujets de 1 à 3 (sur un total de 3)
  • Auteur
    Articles
  • 29 avril 2018 à 22 h 39 min en réponse à : 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 avril 2018 à 21 h 06 min en réponse à : 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 avril 2018 à 21 h 09 min en réponse à : 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"))

  • Auteur
    Articles
3 sujets de 1 à 3 (sur un total de 3)