Contenu récent par Jujube

  1. J

    XL 2016 Ajouter données à une form

    Merci beaucoup Sylvanu, ta réponse me satisfait grandement. Je sais que j'ai beaucoup à apprendre en vba excel et ta réponse m'éclaire énormément. Bonne fin de journée
  2. J

    XL 2016 Ajouter données à une form

    Bonjour Fanfan38, ta réponse est pas mauvaise, mais je que je désire faire est que pas seulement le nom de la personne soit dans le formulaire, mais j'aimerais avoir l'adresse, le téléphone et le code postal également? Merci ton ton aide.
  3. J

    XL 2016 Ajouter données à une form

    Bonjour, bonsoir je suis encore en panne et je sollicite votre aide s.v.p.. De ma feuille TEST du fichier ci-joint, j'aimerais, quand cliquant ou double cliquant sur le nom, d'aller récupérer les cinq champs qui se trouve sur la feuille DATA et des ajouter dans les champs correspondants de ma...
  4. J

    XL 2016 Récupérer le numéro de ligne d'un range

    Génial Rouge. Un Gros Merci
  5. J

    XL 2016 Récupérer le numéro de ligne d'un range

    Ma question est sans doute très bête, mais j'aimerais savoir que si je clique sur une ligne queconque dans un range de cellules, de quelle façon en VBA je peux savoir sur quelle ligne du Range1 ou du Range2 que j'ai cliqué.
  6. J

    XL 2016 Lire un range de bas en haut

    Merci Soan pour ta réponse. Oui j'ai été un peu avare dans ma demande, mais ta réponse me satisfait beaucoup. Un gros merci. Bonne fin de journée
  7. J

    XL 2016 Lire un range de bas en haut

    Bonjour, j'aimerais être en mesure d'écrire dans mon range en commençant la dernière ligne. Qu'est ce qui ne va pas dans mon code? For Each c In Range("Range" & (Y)).Cells For w = 6 To 1 Step -1 If Trim(c.value) = "" Then c.value = Tableau(X, 1)...
  8. J

    XL 2016 Formule VBA

    Merci Staple1600, excuse mon délai de réponse, tout fonctionne correctement. Je l'aurais cherché longtemps celle-là. Clément
  9. J

    XL 2016 Formule VBA

    Bonjour, j'ai essayé de beaucoup de façon de rendre cette formule fonctionnelle, mais comme vous le constater il me manque encore des connaissances. J'aimerais remplacer le mot "Test" par une variable texte ActiveCell.FormulaR1C1 = "= ""Test"" & "" "" & TEXT(RC[-2],""##"") & "" ans"""...
  10. J

    XL 2016 Paiement automatique

    Bonjour, je croyais avoir trouvé une solution, mais en fait les montants se rajoute plus d'une fois si re-exécute cette procédure. J'aurais besoin de votre logique s.v.p. Merci
  11. J

    XL 2016 Paiement automatique

    J'ai trouvé je crois une solution, mais il y a peut-être plus simple étant donné que la feuil1 est en réalité beaucoup plus imposante. Sub PaiementAutomatique() Dim Lr As Long ' Parcourir la Feuil1 Lr = Sheets("Feuil1").Range("A60000").End(xlUp).Row Dim x As Long: Dim y As Long...
  12. J

    XL 2016 Paiement automatique

    Bonjour, À l'ouverture de mon fichier excel et j'aimerais qu'une procédure en VBA fasse le travail suivant: 1 - Regarder dans la Feuil2 et ce jusqu'à la date du jour si l'une des dates("D") et montants correspondants("C") à la condition que la valeur soit active("B") est présente dans la...
  13. J

    XL 2016 ListView

    Merci beaucoup Jean-Marie, tout fonctionne à la merveille. Clément
  14. J

    XL 2016 ListView

    Bonjour ChTi160, cette procédure est bien, mais elle me cause un petit souci. Elle me sort peut importe le mois ou l'année choisie la première ligne de ma feuille excel? Merci à l'avance. For Each c In f.Range("A2:A" & Lr) If Lr = 1 Then Exit Sub If Month(CDate(f.Cells(Ligne +...
  15. J

    XL 2016 ListView

    Merci infiniment de votre temps et de vos idées.... J'aime bien la méthode du tableau.