Contenu récent par achraf26

Bonjour Job, j'espère que vous allez bien, j'ai eu mon temps ce weekend pour avancer, j'avais rajouter un deuxième tableau que rien avoir avec le tableau4 déjà existant, le code recherche pour le tableau 4 ne fonctionne plus, ça beug au niveau de .Offset(1).SpecialCells(xlCellTypeVisible).Copy...

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%...

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...

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.

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 ?

Merci Sylvanu, tu m'as beaucoup aidé.

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...

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...

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...

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

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

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

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

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...

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...