Contenu récent par dindin

  1. dindin

    XL 2019 générer un mot de 3 lettres suivant liste nommée alpha et colorier chaque caractère d'une couleur différente

    Bonjour sylvanu le code est bon, sauf que ma liste de caractère contient une seule lette d'un alphabet étranger (l'arabe) dans chaque cellule soit (29 caractères en tout) autrement dit, le code doit piocher 3 caractères à chaque fois sans doublon. résultat souhaité : Voici ton fichier avec la...
  2. dindin

    XL 2019 générer un mot de 3 lettres suivant liste nommée alpha et colorier chaque caractère d'une couleur différente

    Bonjour le forum En utilisant cette formule : =INDEX(alpha;ALEA.ENTRE.BORNES(1;LIGNES(alpha)))&INDEX(alpha;ALEA.ENTRE.BORNES(1;LIGNES(alpha)))&INDEX(alpha;ALEA.ENTRE.BORNES(1;LIGNES(alpha))) j'ai réussi à générer des mots composée de 3 lettres chacune depuis une liste nommée alpha je...
  3. dindin

    XL 2016 simplifier une macro enregistrée

    je viens de le tester sur Excel 2016, c'est excellent. Merci
  4. dindin

    XL 2016 simplifier une macro enregistrée

    Encore merci @Staple1600
  5. dindin

    XL 2016 simplifier une macro enregistrée

    Bonjour sylvanu, Merci beaucoup
  6. dindin

    XL 2016 simplifier une macro enregistrée

    Bonjour, Comment faire pour simplifier cette macro enregistrée Sub couleur() ' ' couleur Macro Range("D15:j200").Select Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="=""CA"""...
  7. dindin

    XL 2016 Vérifier si la valeur d'une cellule est plus grande que 1

    le fichier gère un planning de vacation, dons si un nom est sélectionné depuis une liste déroulante plus d'une fois par jour, le msgbox récupéré le dernier nom sélectionné pour alerter que tel personne est sélectionnée par erreur.
  8. dindin

    XL 2016 Vérifier si la valeur d'une cellule est plus grande que 1

    je l'ai déjà fait avec la MFC, j'ai voulu rajouté encore un petit message de rappel. En tout cas merci.
  9. dindin

    XL 2016 Vérifier si la valeur d'une cellule est plus grande que 1

    Merci Job75 voici votre code final et qui fonctionne cette fois ci Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range For Each c In ActiveSheet.Range("M15:o2300") If IsNumeric(c) Then If CDbl(c) > 1 Then MsgBox "Le vacataire : " & ActiveCell & " est sélectionné plus d'une...
  10. dindin

    XL 2016 Vérifier si la valeur d'une cellule est plus grande que 1

    Bonjour JHA votre idée est bonne sauf que elle ne fonctionne pas avec des cellules qui contiennent des formules. ou c'est moi qui a mal compris?
  11. dindin

    XL 2016 Vérifier si la valeur d'une cellule est plus grande que 1

    Bonjour job75 je n'arrive pas à adapter ce code. je joins un exemple, c'est plus simple le but est de parcourir la plage en permanence et afficher un msgbox "xxxxxxxxxxxxxxx" si la valeur >1
  12. dindin

    XL 2016 Vérifier si la valeur d'une cellule est plus grande que 1

    Bonjour, Comment peut on exprimer en VBA dans une boucle la condition suivante : Si la valeur d'une cellule dans la la plage suivante est plus grande que 1 Si vrai afficher le message suivant .... Sinon rien faire Merci pour votre aide.
  13. dindin

    XL 2016 recherche dans 3 litbox depuis 3 texbox

    Bonjour François Merci pour ton aide
  14. dindin

    XL 2016 recherche dans 3 litbox depuis 3 texbox

    Bonjour le Forum j'ai téléchargé un fichier et j'ai adapté le code de Job75 pour qu'il s'adapte à mon fichier. Reste à trouver ce fameux code pour rechercher dans chaque listbox du formulaire ( il y en a 3 pour le moment ). le code qu'ai trouvé me sort l'erreur 13 je vous joins le fichier merci...