Contenu récent par achraf26

  1. A

    XL 2021 Modification et remplacer l'origine

    Bonjour Job, merci pour votre réponse, j'ai pris le code de post 13, je l'ai appliqué :: conclusion : les lignes recherché se met à partir de la 2é ligne du tableau, et lors d'une modification aucun changement n'est fais. Merci. Sub MettreAjour() Dim Lig&, Numéro, LO As ListObject, NL&, L&, C%...
  2. A

    XL 2021 Modification et remplacer l'origine

    Option Explicit Sub MettreAjour() Dim Lig&, L&, NL&, C%, Numéro Lig = 8 While Cells(Lig, "AN") <> "" Numéro = Cells(Lig, "BU") NL = [Tableau4].ListObject.ListRows.Count For L = 1 To NL If [Tableau4].Item(L, 1) = Numéro Then For C = 1 To 14...
  3. A

    XL 2021 Modification et remplacer l'origine

    Bonjour Job & Sylv, Merci pour votre solutions, j'ai appliqué les codes vba proposé, mais je n'arrive pas à résoudre la mise a jour, copier les données corrigés à leurs places origine.
  4. A

    XL 2021 Modification et remplacer l'origine

    Bonsoir Merci à vous aussi job, j'ai pris le post 8, fonctionne super rapide, je garde bien le bouton mettre à jour, mais pour le bouton chercher y'a moyen de l'enlever afin de gagner du temps, juste écrire le nom de la personne, appuyer sur Enter et sera un filtre automatique ?
  5. A

    XL 2021 Modification et remplacer l'origine

    Merci Sylvanu, tu m'as beaucoup aidé.
  6. A

    XL 2021 Modification et remplacer l'origine

    je pense que je vais mettre des numéros unique de ligne pour tous les tableaux afin de que la modification sera plus facile. Nom : Tableau 1 Nom : Tableau 2 Etc. exemple : - numéro de lignes non répétitifs pour tous les tableaux. dans la 1er colonne (Tableau 1) je mettrai numérotation de la...
  7. A

    XL 2021 Modification et remplacer l'origine

    Merci Sylvanu, j'ai bien vu le code, pour le tableau 2 résumé il y'aura plusieurs lignes et pas seulement J8:P8 suite au filtre, qui correspond aux résultats de ma recherche, lors de la modification d'une ou plusieurs lignes la fonction se supprime du coup ce n'est pas évident. NB un client peut...
  8. A

    XL 2021 Modification et remplacer l'origine

    Bonjour, j'ai crée un tableau nommé résumé dont il y'a les informations recherché du tableau(x) original(aux), au final je voudrais savoir quel fonction ou vba qui me permet de modifier si nécessaire des informations affiché et les remplacer automatiquement à la ligne correspondante du tableau...
  9. A

    XL 2021 split

    Merci Sylvanu, les lettres ne sont pas en ordre désiré. T cette formule est la mieux adapté. Merci beaucoup Sylavanu
  10. A

    XL 2021 split

    Bonjour pourriez vous me proposer une solution pour passer les 5 lettres un par un avec un seul bouton (ABCMT) j'ai essayé cette formule mais elle ne fonctionne pas pour toutes les lettres [B5] = Split("A B C M T")((Asc([B5]) - 64) Mod 5) Merci à vous
  11. A

    XL 2021 Codes vba : Worksheet_Change

    Bonjour Sylavnu, je n'étais pas connecté, j'ai bien pris le code ca fonctionne super bien. Un grand merci.
  12. A

    Microsoft 365 changer de valeur avec un clique

    Bonjour Pomme, Je viens de voir votre solution, je l'ai teste fonctionne super bien par contre pour un ordre d'alphabet : [B5] = Split("A B C M T")((Asc([B5]) - 64) Mod 5) que veux dire le "Mod" ? Merci
  13. A

    XL 2021 Codes vba : Worksheet_Change

    Bonjour, une fois je rajoute ce code, pour filtrer, tout bascule Private Sub Worksheet_Change(ByVal c As Range) If c.Address = "$B$5" Then Select Case c Case "": ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=3 Case Else...
  14. A

    XL 2021 Codes vba : Worksheet_Change

    Bonjour j'ai mis 2 code vba sur "Visualiser le code de la meme feuille (Feuil1) le 1er pour filter et le 2e pour Afficher et masque des shapes Sub Worksheet_Change(ByVal Target As Range) Private Sub Worksheet_Change(ByVal c As Range) mais j'ai une erreur impossible d'executer les macros, il...
  15. A

    XL 2021 Afficher & Masquer Connecteur

    Bonjour Jurrasic, il y'a plusieurs connecteurs et shapes.
Retour