Forums XLPages

Tous les messages (Mytå)

« 1 ... 11 12 13 14 15 16 17 18 »
Re: suppression dossier vide
#131
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 27-02-2012 02h23
 Re MyDearFriend, Slijack et le forum.

Une solution de Banzai64 basé sur un code du Site Excelabo
Option Explicit

Dim Ligne As Long

Sub RechercheFichiers()
Dim Chemin As String
Dim Ws As Worksheet
Dim I As Integer
Dim Fso As Object
Dim Dossier_Principal
Dim FdFolder As FileDialog

  Set FdFolder = Application.FileDialog(msoFileDialogFolderPicker)
  With FdFolder
    If .Show = -1 Then                    ' Clic sur Ok
      Chemin = .SelectedItems(1)
    Else                                  ' Clic sur Annuler
      Exit Sub
    End If
  End With
 
  Set FdFolder = Nothing
 
  Columns("A:B").Clear
  Ligne = 0
  Set Fso = CreateObject("Scripting.FileSystemObject")
  Set Dossier_Principal = Fso.getfolder(Chemin)
  Lit_Dossier Dossier_Principal
  Columns("A:B").AutoFit
End Sub

Sub Lit_Dossier(ByRef Dossier)
Dim Rep As Object

  For Each Rep In Dossier.SubFolders
    Lit_Dossier Rep
  Next
 
  On Error Resume Next
  Ligne = Ligne + 1
  Range("A" & Ligne) = Dossier.Path
  On Error Resume Next
  RmDir Dossier.Path
  If Err.Number = 0 Then
    Range("B" & Ligne) = "Effacé"
  Else
    Range("B" & Ligne) = "Non effacé"
  End If
  On Error GoTo 0
End Sub
Remove Directory (RmDir)
  • Commande interne DOS, elle permet de supprimer un répertoire vide.

Mytå





Edité par Mytå le 27/02/2012 02:39:10
Hors Ligne
 Rapport   Haut 

Re: suppression dossier vide
#132
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 27-02-2012 00h48
 Re le forum

Slijack, ce n'est pas mauvais lorsque l'on prends la peine de le mentionner.

Mais bien souvent, lorsqu'il y a «Crosspostage»,
je n'apporte pas d'aide sur la question posée. (Choix personnel)

Mytå
Hors Ligne
 Rapport   Haut 

Re: suppression dossier vide
#133
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 26-02-2012 19h06
Salut le forum

Merci Slijack de fournir la solution proposée par un autre forum.

C'est la moindre des choses lorsque l'on fait du «Crosspostage»

Mytå
Hors Ligne
 Rapport   Haut 

Re: comment formulé Myta
#134
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 26-02-2012 04h09
 Re le forum

Évite de mélanger les questions des autres ficelles à cette discussion.

Pour ton évolution je ne comprends pas ta demande.

Essaye de joindre le fichier avec le résultat souhaité.

Mytå
Hors Ligne
 Rapport   Haut 

Re: formulation imposible
#135
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 26-02-2012 04h05
 Re le forum

Ton texte en cellule A1

En B1 formule matricielle (A valider par Ctrl + Shift + Enter)
=SUBSTITUE(A1;STXT(A1;EQUIV(VRAI;ESTNUM(1*STXT(A1;LIGNE($1:$9);1));0);NB(1*STXT(A1;LIGNE($1:$9);1)));"")
En C1 formule matricielle (A valider par Ctrl + Shift + Enter)
=STXT(B1;EQUIV(VRAI;ESTNUM(1*STXT(B1;LIGNE($1:$9);1));0);NB(1*STXT(B1;LIGNE($1:$9);1)))
Mytå
Hors Ligne
 Rapport   Haut 

Re: ecrit plus simplement cette formul
#136
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 26-02-2012 03h38
 Salut le forum

La courtoisie est de rigueur sur ce forum : pour une demande de renseignements
Bonjour et Merci devraient être des automatismes. 

La deuxième partie de ta formule est inutile (&Si...)

La formule suivante fait le travail
=SI($C$25="boite à idée";"";DECALER($C$25;;SOMMEPROD(($C$25={"a"."b"."c"."d"."e"."f"."g"})*{2.4.6.8.10.12.14});;))

Si tu veux masquer les valeurs égales à zéro
=SI($C$25="boite à idée";"";SI(DECALER($C$25;;SOMMEPROD(($C$25={"a"."b"."c"."d"."e"."f"."g"})*{2.4.6.8.10.12.14});;)=0;"";DECALER($C$25;;SOMMEPROD(($C$25={"a"."b"."c"."d"."e"."f"."g"})*{2.4.6.8.10.12.14});;)))
Ou encore comme ceci
=SI(OU($C$25="boite à idée";DECALER($C$25;;SOMMEPROD(($C$25={"a"."b"."c"."d"."e"."f"."g"})*{2.4.6.8.10.12.14});;)=0);"";DECALER($C$25;;SOMMEPROD(($C$25={"a"."b"."c"."d"."e"."f"."g"})*{2.4.6.8.10.12.14});;))
Mytå

N.B. Dans certaine version d'excel il faut remplacer le point (.) par un antislash (\)






Edité par Mytå le 26/02/2012 04:14:15
Hors Ligne
 Rapport   Haut 

Re: comment formulé Myta
#137
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 25-02-2012 03h31
 Re le forum

Regarde ce lien : Cotes et rapports probables

 Mytå
Hors Ligne
 Rapport   Haut 

Re: formulation imposible
#138
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 25-02-2012 03h14
 Salut le forum

Ton texte contient des espaces . . .

Mytå
Hors Ligne
 Rapport   Haut 

Re: comment formulé
#139
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 24-02-2012 02h05
 Salut le forum

Regarde la pièce jointe

Mytå

Pièce jointe:
xls Enjeu_Eujeu.xls   [ Taille: 28.00 Ko - Téléchargements: 410 ]
Hors Ligne
 Rapport   Haut 

Re: Fonction SI (plus de deux conditions)
#140
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 22-01-2012 22h23
 Salut le forum

Avec cette formule
=INDEX({"E"."D"."C"."B"."A"};EQUIV(C2;{0.2,5.4,5.6,5.8,5};1))

Dans certaine version d'Excel
  • Il faut remplacer le point (.) par un antislash (\) 
  • Il faut remplacer le séparateur décimal (,) par un point (.)
  • Et le point virgule (;) en virgule (,) au besoin
=INDEX({"E""D""C""B""A"},EQUIV(C2;{0\2.5\4.5\6.5\8.5},1))
 Mytå
Hors Ligne
 Rapport   Haut 

« 1 ... 11 12 13 14 15 16 17 18 »