Résultats de la recherche

  1. anass1

    XL 2013 Fichier de sauvegarde sans macro

    Bonjour, J'ai utilisé ce code pour enregistrer une copie de sauvegarde; Sub CS() Dim DN As String Application.DisplayAlerts = False With ThisWorkbook On Error Resume Next DN = ThisWorkbook.Path & "\sauvegarde\" MkDir DN On...
  2. anass1

    XL 2013 Ouvrir UserForm et cacher le classeur

    Bonjour, J'ai utilisé ce code pour ouvrir seulement le UserForm et cacher le classeur (Seulement concerné); SVP, Je veux vérifier ce code. Est-ce efficace ? Merci. thisworkbook : Private Sub Workbook_Open() On Error Resume Next Set AppClass.AppXL = Application If Application.Workbooks.Count...
  3. anass1

    XL 2013 Problème lors de la duplication d'un item dans listbox

    Bonjour, Je veux ajouter un "X" à l'item sélectionné dans listbox , Mais j'ai un problème lors de la duplication de l'item; Le "X" est ajouté dans les deux items. Merci
  4. anass1

    XL 2013 Exécuter une macro après x minutes

    Bonjour, SVP, je veux exécuter une macro automatique après une période prédéterminée; Par exemple, je veux vider une cellule après une minute ( La durée est déterminée préalablement par combobox ). Merci.
  5. anass1

    XL 2013 Trier Listbox (colonne avec une partie vide)

    Bonjour, SVP, j'ai un problème pour trier les colonnes de listbox; Je veux trier trois colonnes comme dans l'image 1 J'ai utilisé ce code mais il ne trie pas correctement la sixième colonne; Parce qu'il contient un vide. Merci Img1: Code: Private Sub UserForm_Initialize() Dim y As Long...
  6. anass1

    XL 2013 Insérer un calendrier par combobox

    Bonjour, SVP, Est ce que possible insérer les jours d'un mois sélectionné par combobox dans la colonne A . Merci
  7. anass1

    XL 2013 COUNTIFS et argument date VBA

    Bonjour à toutes et tous ; J'ai besoin de calculer le nombre de jours présents dans une liste entre deux dates; La formule NB.SI.ENS me donne le bon résultat; Si je transpose en Vba en utilisant WorksheetFunction.CountIfs, j'ai la valeur 20 comme résultat . Merci Range("D4") =...
  8. anass1

    XL 2013 Numéro de série avec conditions

    Bonjour, Vous avez utilisé la fonction CountIfs pour donner à chaque nouveau client un numéro de série ; Le problème est que j'ai des anciennes données dans le tableau que je ne veux pas compter ; Je veux définir une nouvelle condition qui exclut toutes les données de l’année 2019. Merci...
  9. anass1

    XL 2013 Glisser formule COUNTIFS VBA

    Bonsoir, Svp, Je veux glisser la formule confits sur la colonne B Sub nbsi() nl = Feuil2.Range("A" & Rows.Count).End(xlUp).Row x = Application.WorksheetFunction.CountIfs(Feuil1.Columns(2), "A", Feuil1.Columns(3), "y", Feuil1.Columns(1), Feuil2.Range("A2")) Feuil2.Range("B2:B" & nl) = x End Sub...
  10. anass1

    XL 2013 Déterminer la date par textbox

    Bonjour, SVP Je veux déterminer une date spécifique en utilisant textbox. Depuis..... jusqu'au..... Merci
  11. anass1

    XL 2013 Compter les nombres avec critères en vba

    Bonsoir, Je veux compter les entrants et sortants dans deux service "A" , "B" chaque jour pendant un an, Nous avons trois types de clients "CC" , "DD" , "ACC". Si c'est possible : Je veux chaque fois qu'un nouveau client est ajouté, les résultats apparaissent sur la feuil A et B (colonne de...
  12. anass1

    XL 2013 La formule NB.SI.ENS en VBA

    Bonjour, Je voulais compter le nombre des entrants et des sortants dans chaque service comme dans le tableau; J’ai utilisé la formule NB.SI.ENS, Peut-on l'utiliser en ٍvba ?d’une manière facile et technique ? et afficher dans listbox. (En données réelles, nous enregistrons chaque jour un...
  13. anass1

    XL 2013 Filtrer un tableau en deux listbox

    Bonsoir, SVP est ce que possible filtrer un tableau en deux listbox ; Listbox1 les entrants : c'est-à-dire seuls qui ont une date d'entrée Listbox2 les sortants : qui ont à la fois une date d’entrée et de sortie Merci.
  14. anass1

    XL 2013 Filtrer par combobox et entre 2 date

    Bonjour svp je veux filtrer listbox par combobox et entre 2 date Existe-t-il une méthode simple merci
  15. anass1

    XL 2013 Modifier dans la listbox et textbox en cas de recherche

    Bonjour svp j'ai utilisé ce code pour modifier les données mais il ne modifie pas la ligne correcte si je recherche une ligne spécifique Dim Ligne As Long If ListBox1.ListIndex = -1 Then Exit Sub Ligne = ListBox1.ListIndex + 2 Range("B" & Ligne) = TextBox1 Range("C" &...
  16. anass1

    XL 2013 La recherche sur toutes les feuilles

    Bonsoir Est ce que le USF peux chercher sur toutes les feuilles de classeur; Exemple : si je veut chercher un contenu je doit déplacer sur chaque feuille Merci
  17. anass1

    XL 2013 Coloré la cellule à partir de textbox

    Bonsoir est ce que je peut colorer la cellule si modifié sa contenu dans la textbox ? Merci d'avance
  18. anass1

    Fermer le usf et classeur en cas de classeur est caché

    Bonjour à tous, Je veux éditer ce code pour fermer le usf quand deux classeurs ou plus sont ouverts Parce que si un autre classeur est ouvert et je ferme le usf à partir du bouton fermer, il le cachera et ne le fermera pas. Dans ce cas, je souhaite fermer le usf et son classeur et laisser les...
  19. anass1

    Fermeture automatique en cas d'erreur

    Bonsoir à tous Y a-t-il une méthode pour fermer automatique le classeur et USF en cas des erreurs dans les codes Je veux dire quand il y a une erreur dans USF se ferme automatiquement Merci
  20. anass1

    commandbutton enabled

    Bonjour, SVP Je souhaite désactiver un bouton en fonction de l'état du listbox : listbox vide = commandbutton désactiver listbox plein = commandbutton activé Merci