Résultats de la recherche

  1. I

    XL 2019 Supprimer millions de lignes vide après un tableau dans une feuille excel

    Bonjour, à tester avec la macro ou en exécutant manuellement chaque ligne du code suivant, Sub test() Columns("DN:XFD").Delete Shift:=xlToLeft Rows("10513:1048576").Delete Shift:=xlUp Application.Goto Range("A1") ThisWorkbook.Save End Sub
  2. I

    Microsoft 365 Envoi d'une image via Outlook image non lisible

    Bonjour, désolé, après plusieurs test, aucun collègue ne vois d'erreur.
  3. I

    XL 2013 Suivie de l'évolution d'une facture après l'établissement

    Bonjour, quel est votre idée à propos de "enregistrement des détails de la facture" ? est ce qu'il y aura toujours 17 lignes (13 à 29) sur la facture ? la première ligne de ces données toujours à la ligne 13 ?
  4. I

    XL 2019 Onglets dans une boîte de dialogue

    stl Patrick, du coup je pense à Robert Charlebois :) pour redimensionner les pages d'un MultiPage, il y a une discussion et une solution à ce sujet ici: https://www.developpez.net/forums/d1960758/logiciels/microsoft-office/excel/macros-vba-excel/gestion-userform-multipages/
  5. I

    Microsoft 365 Ajouter ouvrage dans excel avec bouton

    Bonjour, pour copier les nouvelles lignes à la suite l'un de l'autre il faut trouver d'abord la dernière ligne remplie. c'est difficile à trouver avec ton exemple. il y aura t'il une plage de cellule sur une colonne qui sera entièrement renseignée ? en ajoutant un espace en cellule A18, on...
  6. I

    XL 2019 Onglets dans une boîte de dialogue

    Boujour, Est-ce que le contrôle est ajouter au moment de la conception ou au moment de l'exécution ?
  7. I

    XL 2019 Onglets dans une boîte de dialogue

    merci soan
  8. I

    XL 2019 Onglets dans une boîte de dialogue

    Bonjour, Est-ce que le contrôle est ajouter au moment de la conception ou au moment de l'exécution ?
  9. I

    Microsoft 365 faire apparaitre un numéro de tel par rapport à un critère et faire apparaitre autre numero de tel avec d'autres critères.

    si tu modifie une valeur de la colonne "Permanence" il faudrait prévoir que la valeur de la colonne Agent soit aussi modifier
  10. I

    XL 2016 Lecture depuis un fichier et écriture dans un autre

    Bonjour, dans cette exemple, je lis tout le fichier et par la suite je supprime les 29 première lignes ps/ n'oublie pas d'ajouter la référence Microsoft Scripting Runtime Sub test_lire() 'ajouter la référence Microsoft Scripting Runtime Dim oFl As Scripting.file Dim oTxt As...
  11. I

    Microsoft 365 faire apparaitre un numéro de tel par rapport à un critère et faire apparaitre autre numero de tel avec d'autres critères.

    Bonjour, je n'ai pas utilisé les nom tableau, mais je pense que tu pourras y remédier, =SI(ESTERREUR(EQUIV(D3;Paramètres!$I$1:$I$8;0));"";INDEX(Paramètres!$N$1:$N$8;EQUIV(C3;Paramètres!$M$1:$M$8;0)))
  12. I

    Microsoft 365 Base de donnée double

    Bonjour, j'ai ajouté une condition pour vérifier la présence du Stage sur l'onglet "Besoin" For i = LBound(Tbs) To UBound(Tbs) If OptionButton2.Value = True Then If Not IsError(Application.Match(Tbs(i, 1), Sheets("Besoin").Columns(3), 0)) Then a = 1'<--------------- If Tbs(i...
  13. I

    Microsoft 365 Aide sur Formule SI avec plusieurs conditions

    Bonjour, une possibilité avec les fonctions INDEX et EQUIV =SI(C6>A2;INDEX(J1:J5;EQUIV(A2;G1:G5;0));INDEX(I1:I5;EQUIV(A2;G1:G5;0)))
  14. I

    XL 2019 Problème pour modifier une BDD avec listbox

    Bonjour, La valeur de la propriété ListIndex de la première ligne de la liste est zéro, la valeur de la deuxième liste est 1, et ainsi de suite. en tenant compte que votre BD commence à la ligne 3 essayez avec : Ln = .List(.ListIndex, 0) - 1
  15. I

    XL 2016 Utiliser une variable en lieu et place d'une adresse internet

    il faut que url pointe sur un shape et non sur une page web général, comme le font tes autres liens.
  16. I

    XL 2016 Utiliser une variable en lieu et place d'une adresse internet

    Bonjour, peux-tu faire le test sur ce fichier, pour voir si tu obtiens la même erreur.
  17. I

    Microsoft 365 Activer les macros sous Teams

    Bonjour, si c'est sur un serveur, il y a une discussion à ce sujet ici: https://techcommunity.microsoft.com/t5/microsoft-teams/right-way-to-use-macro-enabled-excel-files-on-microsoft-teams/m-p/292121
  18. I

    XL 2013 Index et Equival

    Bonjour, pour retracer une information présente sur plusieurs onglets, tu pourrais utiliser Power Query (gratuit sur Microsoft) ou une macro VBA, mais je ne crois pas que ce soit possible via une formule. ps/ voici l'information pour Power Query...
  19. I

    XL 2016 Utiliser une variable en lieu et place d'une adresse internet

    Bonjour, voici un exemple, avec en cellule D4 la valeur: http://www.stockvault.net/data/2011/04/05/121121/small.jpg à tester: Sub test() Dim qurl As Range Set qurl = Sheets("Perf").[D4] Call GetShapeFromWeb(qurl.Value, Sheets("Perf").[A1]) End Sub
  20. I

    XL 2013 demande aide userform 2 feuilles suivi interventions

    Bonjour, je joint ton fichier avec quelque modification au code, dit-moi ci ça convient, je reste disponible pour toutes question. ps/ je ne pas compris de quel façon tu voulait renseigner la colonne D de l'onglet suivi...