Contenu récent par Gégé-45550

sans fichier exemple ... ! que répondre ?

Bonjour, Utilisez la fonction NB.SI. Cordialement,

Bonjour, Une proposition en PJ. Cordialement,

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,