Contenu récent par Gégé-45550

Bonjour, Une possibilité : 1. Redimensionner le tableau => colonne A à colonne F (ou G ?) 2. Mettre sous forme de tableau les colonnes suivantes. Facultatif : insérer une colonne vide entre les deux tableaux. Cordialement,

Bonjour, Remplacer la ligne selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("Liste2"), 2, False) par celle_ci: selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("Liste2"), 1, False) Cordialement,

Bonjour, Modifier le code comme suit : Private Sub Worksheet_Change(ByVal Target As Range) 'job75 Dim r As Range, ca, rtt, am, n1, n2, n3 Set r = [g5].Resize(Application.Match("zzz", [g:g]) - 3) If Intersect(Target, r) Is Nothing Then Exit Sub ca = [DroitCA]: rtt = [DroitRTT]: am = [DroitAM]...

Bonjour, Format => # ##0,00" kg" Cordialement

Bonsoir, En PJ, une solution un peu pourrie mais qui fonctionne à condition de supprimer la protection (illusoire) de la feuille.. C'est aussi faisable en VBA. Cordialement,

Bonjour, avec un fichier de test anonymisé et contenant un exemple de résultat attendu, ce serait mieux et ça éviterait aux contributeurs de se taper l'écriture d'un fichier de test. Si les numéros en bleu sont au nombre de 6 et à la même position (3 à 8), c'est très facile à faire. Cordialement,

Déjà, comme dans la vraie vie et conformément à la charte du site, on dit "bonjour" et, accessoirement "Merci". Du coup, j'arrête là. Bonne journée.

Bonjour, Dans la colonne "Solde" du tableau "DECOMPTE", vous avez remplacé deux formules par des valeurs "manuelles" (soulignées et affichées en bleu dans le document fourni), d'où l'erreur finale. Voici en attache votre tableau avec les formules reconstituées, qui donne un résultat correct...

Bonsoir, une proposition : Dim A as Variant, i as Long A = Array(1,2,6,8,9,15) For i = LBound(A) To UBound(A) .Cells(i + 6, 1) = ListView1.ListItems(i).SubItems(1) Next i Cordialement,

Bonsoir, Voir PJ, Si la réponse vous convient, merci de valider en cliquant sur la coche verte dans le bandeau à droite de ce post #10. Cdlt

Bonjour Patrick, Comme d'hab, un code d'une remarquable technicité ... mais qui nécessite quelques corrections mineures pour fonctionner en 64 bits. Ça devrait bien mieux marcher comme ça : Option Explicit #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias...

Bonsoir, Choisir le mois en D2. Cordialement,

Bonjour, Voir PJ. Attention, j'ai modifié le champ L2:W3 de l'onglet 'Table_calc_tva' et j'ai ajouté la colonne calculée E dans l'onglet 'FEC 2025' Cordialement,

Bonsoir, Pas sûr d'avoir bien compris, voir formules en colonne L de l'onglet 'Table_calc_tva'. Ne marche que si vous avez un onglet de type 'FEC 2025' par mois. Si tous les mois sont regroupés dans cet onglet, il faudra changer les formules en SOMME.SI.ENS pour ajouter un critère d'extraction...

Re À mon tour de faire une proposition, sur la base de l'excellent fichier de mapomme, avec possibilité de décimales pour les kilomètres, totaux et moyennes. Cordialement,