Résultats de la recherche

  1. J

    XL 2016 Macro pour Import CA Compta

    Bonjour "707000- Partie soumise a aucune taxe soit quand colonne HT > colonne P ou R ou U " Si j'ai bien compris : si P+Q+R = 0 alors on a le code 70700. JP14
  2. J

    Vider une page d'enregistrement

    Bonjour Caractères à supprimer : "" ").Select "" A tester JP14
  3. J

    XL 2010 récupérer les entrées dans un listbox

    Bonjour Ci joint le fichier avec deux solutions. A tester JP14
  4. J

    Aide création formule

    Bonjour Une autre formule Option Explicit Function Essai1(Valeur_d_arrive As Double, Valeur_de_depart As Double) As Double Application.Volatile Essai1 = (Valeur_d_arrive - Valeur_de_depart) / Valeur_de_depart End Function A tester JP14
  5. J

    XL 2016 Macro pour Import CA Compta

    Bonjour Ci joint le fichier avec la feuille "final" qui contient les données des fichiers Gescom, Gescom2, Gescom3. Bonnes fêtes JP14
  6. J

    XL 2016 Macro pour Import CA Compta

    Bonjour Ci joint le fichier avec quelque modifications Message lors de la fermeture de l'userform avec le bouton quitter. La colonne S contient la date du transfert. A tester JP
  7. J

    VBA - Décompte caractères d'une même colonne

    Bonsoir Il faut modifier le code : Pour la fin de la série (dernière ligne) If .Range("I" & Dl2) = "*" Then .Range("J" & Dl2) = Dl1 en remplaçant "J" par "K" If .Range("I" & Dl2) = "*" Then .Range("K" & Dl2) = Dl1 Pour choisir une autre colonne il faut modifier la valeur de l'offset Colonne...
  8. J

    VBA - Décompte caractères d'une même colonne

    Bnjour JBond13600, phlaurent55 En reprenant une réponse d'un post précédant, ci dessous la procédure modifiée. Option Explicit Dim Cellule1 As Range, Plg1 As String, Dl1 As Long, Dl2 As Long, Dl3 As Long, Plg3 As Range Dim Col1 As String Sub Demande() Dim Sh As Worksheet For Each Sh In...
  9. J

    XL 2013 Ventilation de données et Ecarts de lignes

    Bonjour Fichier à tester JP14
  10. J

    XL 2013 Ventilation de données et Ecarts de lignes

    Bonjour (Re) Ci dessous la macro avec sélection de la ligne de départ. Option Explicit Sub travdem() Dim Cellule1 As Range, Plg1 As String, Dl1 As Long, Dl2 As Long, Plg3 As Range Dim Nomfeuille1 As String, Col1 As String Dim MonTab As Variant, Compt1 As Long 'parametre Nomfeuille1 = "Base"...
  11. J

    XL 2013 Ventilation de données et Ecarts de lignes

    Bonjour et bienvenue suur le Forum Ci dessous une macro pour le premier fichier Option Explicit Sub travdem() Dim Cellule1 As Range, Plg1 As String, Dl1 As Long Dim Nomfeuille1 As String, Col1 As String 'parametre Nomfeuille1 = "Base" Col1 = "A" 'code With Sheets(Nomfeuille1)...
  12. J

    Ajouter "" et ,

    Bonjour Ci joint un exemple de code Sub travdem() Dim Cellule1 As Range, Plg1 As Range Dim Nomfeuille1 As String, Col1 As String, data1 As String 'parametre Nomfeuille1 = "Feuil1" Col1 = "A" 'code With Sheets("Feuil1") For Each Cellule1 In .Range(Col1 & "2:" & Col1 & .Range(Col1 &...
  13. J

    XL 2010 créer des macros pour calculer le nombre total des noms qui se repetent

    Bonjour Le code Dl1 = .Range(Col1 & .Rows.Count).End(xlUp).Row indique la dernière ligne utilisée, quelque soit le nombre de lignes. JP14
  14. J

    XL 2016 Macro pour Import CA Compta

    Bonjour J'ai fait des test la procédure fonctionne. J'ai ajouté des textbox pour afficher les informations. Attention le code ci dessous sélectionne la feuille numéro 1 : Feuil1 dans l'éditeur VBA Set WsE = WbE.Worksheets(1) : A vérifier JP14
  15. J

    XL 2010 créer des macros pour calculer le nombre total des noms qui se repetent

    Bonjour Ci joint une solution Private Sub UserForm_Initialize() Dim I1 As Long Dim Mois As String, Annee As String Erreur travdem With ListBox1 .Clear '.ColumnCount = 6 '.ColumnWidths = "100,100 ,100,50 ,20,50" .AddItem "Nom" .List(.ListCount - 1, 1) = "Prénom"...
  16. J

    XL 2010 créer des macros pour calculer le nombre total des noms qui se repetent

    Bonjour Il est plus simple de comprendre avec une image. Ci joint le fichier avec un résultat identique a l'image pour les deux dernières colonnes. A modifier pour la colonne "nom père". A tester JP14
  17. J

    XL 2010 créer des macros pour calculer le nombre total des noms qui se repetent

    Bonsoir Si j'ai bien compris. Dans la colonne E on trouve le nombre de donnée identiques. Si on désire le total la fonction "= SOMME(E1:E5)" répond au problème. JP14
  18. J

    XL 2016 Macro pour Import CA Compta

    Bonjour Pour rajouter une ligne il suffit d'écrire le code suivant dans le Module : Module11/travdem Entete Dl2, i Code1 Dl2, i, "numéro compte", "Colonne" Dl2 = Dl2 + 1 Ce qui donne pour les lignes suivantes 44571050 - Colonne V 44571000 - Colonne L...
  19. J

    XL 2010 créer des macros pour calculer le nombre total des noms qui se repetent

    Bonjour La macro utilise déjà la concaténation du nom et prénom pour remplir la collection: Data1 = Trim(MonTab(Compt1, 1)) & Trim(MonTab(Compt1, 2)) & Trim(MonTab(Compt1, 3)) Modifier le programme consiste à supprimer le code " Trim(MonTab(Compt1, 2))" et modifier les indices. 3 devient...
  20. J

    XL 2016 Macro pour Import CA Compta

    Bonjour Pour répondre à la question "Je ne sais pas ou placer mon fichier de base ni ou se trouve le fichier final." Ci joint un fichier zip qui contient deux fichiers : un fichier pour les données de base (Gescom) un fichier pour le résultat.(Final) Un userform pour sélectionner le fichier...
Haut Bas