Contenu récent par achraf26

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

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

la solution est parfaite, avec ce code je peux rajouter des shapes en fonction de la valeur de la cellule. Merci à toi

j'avais trouvé cette solution, mais je ois repeter à chaque fois pour chaque connecteur. Shapes("Connecteur droit 2").Visible = [B5] = "F" Shapes("Connecteur droit 3").Visible = [B5] <> "F" Shapes("Connecteur droit 4").Visible = [B5] <> "F" Shapes("Connecteur droit 5").Visible = [B5] <>...

Bonjour Darnerb merci pour ton message, malgré que la valeur change en B5 le connecteur est toujours visible.

Bonjour tout le monde, je ne sais comment masquer un connecteur quand la valeur n'est pas correcte, j'ai mis en code vba pour afficher mais pour masquer je ne sais pas le faire, si quelqu'un peut m'aider. Shapes("Connecteur droit 2").Visible = [B5] = "F" Bien à vous

Bonjou Phil, un grand merci pour une solution plus simple. :)

Bonjour, Je voudrai créer 2 boutons vba pour faire additioner une cellule avec le chiffre 1 Exemple en D6 il y'a l'année 2023, avec un bouton(+1) je peux augmenter et un autre bouton (-1) pour diminuer. Merci d'avance. @ACH

voilà j'ai crée macro ActiveWorkbook.SlicerCaches("Segment_Catégories").ClearManualFilter + une selction d'une cellule [C13].Select

Bonjour j'ai crée un segment d'une colonne (Tableau), je voudrais rajouter dans la même liste de segment "Tous" pour pouvoir annuler le filtre et voir tout à la place d'appuyer sur la croix rouge. est ce quelq'un peut me proposer une idée ? Merci à vous