Contenu récent par Amadéus

  1. A

    Compter les tabulations dans une cellule

    Re : Compter les tabulations dans une cellule Bonjour Modeste, je dois faire mon méa culpa, je n'ai pas percuté sur ton post qui montrait ce qu'il fallait voir. Pour ceux qui chercheront un jour, j'ai résolu avec une simple fonction personnalisée. Function Retrait(CL As Range) As Long...
  2. A

    Compter les tabulations dans une cellule

    Re : Compter les tabulations dans une cellule Bonjour Patrick, ne cherches plus, en VBA .IndentLevel = 10 donne le résultat cherché. Merci de m'avoir mis sur la piste. Cordialement
  3. A

    Compter les tabulations dans une cellule

    Re : Compter les tabulations dans une cellule Merci Patrick Merci de ta remarque, toutefois, les tabulations (espaces invisibles Code 9) existent et si tu regardes bien dans Format cellule, tu as bien "Centré". Et tu as également "Retrait: 10". Ce retrait 10 m'avait échappé et c'est vers...
  4. A

    Compter les tabulations dans une cellule

    Re : Compter les tabulations dans une cellule Bonjour Juste un petit "Up" pour faire remonter ce sujet qui va disparaitre de la page dans un moment.
  5. A

    Compter les tabulations dans une cellule

    Re : Compter les tabulations dans une cellule Bonjour Pour l'instant, aucune des solutions proposées n'apporte de résultats. La Macro VBA renvoie 0 et les 2 formules également. La question reste donc ouverte. Merci à ceux qui ont essayé. Cordialement
  6. A

    Compter les tabulations dans une cellule

    Re : Compter les tabulations dans une cellule Bonjour Merci, mais ce n'est pas la question. Voici l'exemple. Cordialement http://cjoint.com/?BDtng0U77Qr
  7. A

    Compter les tabulations dans une cellule

    Bonjour Nous savons compter les caractères d'une cellule avec NBCAR, nous savons compter le nombre de a ou d'un caractère visible avec une formule du style =NBCAR(A1)-NBCAR(SUBSTITUE(A1;"a";"")) Mais comment compter le nombre de tabulations dont le Code sauf erreur est 9 Je n'ai pas mis de...
  8. A

    Affichage de divers nombres par tirage aleatoire

    Re : Affichage de divers nombres par tirage aleatoire Bonjour Dans le fichier Cordialement
  9. A

    Double click dans une case

    Re : Double click dans une case Bonjour Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean) If Not Application.Intersect(target, Range("$D:$D,$F:$F, $H:$H")) Is Nothing Then target = "X" Else Exit Sub End If cancel = True End SubCordialement
  10. A

    Les Cc sur un Mail?

    Re : Les Cc sur un Mail? Bonsoir Merci pour ta réponse qui fonctionne parfaitement. Moi, j'avais tapé "Cc dans Mail" " Mail avec Cc", etc..et n'avais pas trouvé. Merci encore, bonne soirée
  11. A

    Les Cc sur un Mail?

    Re : Les Cc sur un Mail? Bonjour Pas d'inspiration ? cordialement
  12. A

    Les Cc sur un Mail?

    Bonjour Ce code fonctionne parfaitement (Source Joss) pour envoyer à plusieurs destinataires dont les adresses sont en D1, le sujet en D2 et le texte du message en D3 Sub EnvoiUnMail() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = Range("d1")...
  13. A

    Conversion implicite à l'ouverture d'un fichier

    Re : Conversion implicite à l'ouverture d'un fichier Bonsoir Si les TRUE et FALSE sont le résultats de formules, il faudrait voir le fichier. Si les TRUE et FALSE indiquent seulement VRAI et FAUX, fonction SI par exemple, tu peux écrire "VRAI" et "FAUX" avec des guillemets anglais, cela...
  14. A

    Formule de mise en forme conditionnelle

    Re : Formule de mise en forme conditionnelle Bonsoir =ET(AUJOURDHUI()-A1>=360;A1<>"") Cordialement
  15. A

    Equivalent NB.JOURS.OUVRES sur Matrice

    Re : Equivalent NB.JOURS.OUVRES sur Matrice Bonsoir Merci beaucoup pour ton aide Cordialement Amadéus