Résultats de la recherche

  1. job75

    XL 2016 Nettoie Nombres

    Bonsoir, De passage, perso j'aurais écrit simplement : Sub NettoieNombres() Dim c As Range For Each c In Range("U38:U41") c = Trim(Mid(c, InStrRev(c, "/") + 1)) Next End Sub Les cellules sans slash / ne posent pas de problème. Bonne nuit.
  2. job75

    XL 2010 extraire des mots en gras

    Bonsoir carber, Il est temps de vous manifester ! Je ne vois pas l'intérêt d'utiliser une 2ème feuille mais bon. Voyez ce fichier (3) et la macro dans le code de la feuille "Résultat" : Private Sub Worksheet_Activate() With Feuil1.UsedRange 'CodeName de la feuille à adapter With...
  3. job75

    Microsoft 365 Insérer note dans cellule d'une feuille protégé

    Bonsoir odohe, Il ne s'agit pas de la protection du classeur mais de celle d'une feuille. La notion de "note" n'existe pas chez moi sur Excel 2019. Elle n'existait pas non plus sur Excel 2013, 2010, 2003... A+
  4. job75

    Microsoft 365 Tris spéciaux

    Bonsoir Lionel, Les codes des 2 boutons : Sub Tri_CP() Application.ScreenUpdating = False With ActiveSheet.UsedRange .Columns(.Columns.Count + 1).Resize(, 2).Insert xlToRight '2 colonnes auxiliaires With .Columns(.Columns.Count + 1) .FormulaR1C1 = "=LEFT(RC[-1],FIND(""...
  5. job75

    XL 2016 boutons modifier et supprimer des enregistrements

    Bonjour jorge1201, Voyez le fichier joint, je me suis contenté de corriger les codes des 3 boutons Valider. Et j'ai mis une formule en colonne A de la feuille DataBase. Il faudrait faire en sorte qu'on ne puisse pas modifier les textes des catégories. Pas compris pourquoi il y a TextBox1 et...
  6. job75

    XL 2016 VBA - Affichage de colonne par catégories

    Puisqu'on en a parlé on peut même imaginer d'afficher/masquer la 3ème colonne avec v3 : Private Sub Worksheet_Change(ByVal Target As Range) Dim v1, v2, v3, c As Range v1 = [B1]: v2 = [B4]: v3 = [B5] Application.ScreenUpdating = False With Range("A1", UsedRange) .Columns(3).Hidden = LCase(v3)...
  7. job75

    XL 2016 VBA - Affichage de colonne par catégories

    Bonjour gbinforme, Bah Roseline ne fournissant pas de fichier on peut tout imaginer : Private Sub Worksheet_Change(ByVal Target As Range) Dim v1, v2, v3, c As Range v1 = [B1]: v2 = [B4] & "*": v3 = [B5] If v1 & v2 & v3 = "*" Then Columns.Hidden = False: Exit Sub 'affiche tout...
  8. job75

    Microsoft 365 comment faire une moyenne de valeurs contenu dans un tableau variant

    Compte tenu de la remarque précédente le test If IsNumeric(tab_calcul(i, 16)) Then/End If ne sert qu'à éliminer les valeurs d'erreur, il est inutile s'il n'y en a pas.
  9. job75

    Microsoft 365 comment faire une moyenne de valeurs contenu dans un tableau variant

    Une chose importante à bien comprendre avec la macro précédente. Empty est considéré en VBA comme numérique et la dernière valeur est donc récupérée. Mais comme elle se trouve dans un tableau (auxiliaire) elle n'est pas traitée dans la moyenne. Contrairement à ce qui est observé au post #5.
  10. job75

    Microsoft 365 comment faire une moyenne de valeurs contenu dans un tableau variant

    Evidemment s'il y a beaucoup d'éléments à traiter on utilisera une boucle. Mais en ne retenant que les valeurs numériques et en les entrant dans un tableau auxiliaire : Sub Test2() Dim o&, IndA&, tab_calcul(), i&, aux(), n&, SMA5 o = 1 IndA = 4 ReDim tab_calcul(o + IndA, 16) tab_calcul(o, 16)...
  11. job75

    Microsoft 365 comment faire une moyenne de valeurs contenu dans un tableau variant

    Avec le post #2 il y a 5 valeurs il faut toutes les entrer dans la fonction : SMA5 = Application.Average(tab_calcul(o, 16), tab_calcul(o + 1, 16), tab_calcul(o + 2, 16), tab_calcul(o + 3, 16), tab_calcul(o + 4, 16))
  12. job75

    Microsoft 365 comment faire une moyenne de valeurs contenu dans un tableau variant

    Non, je me suis contenté de traiter lr problème posé au post #1. Et c'est bien le vrai problème avec un Array : seules les valeurs numériques sont traitées correctement.
  13. job75

    Microsoft 365 comment faire une moyenne de valeurs contenu dans un tableau variant

    Pour obtenir le bon résultat il faut entrer les valeurs du tableau dans des cellules : Sub Test1() Dim o, IndA, tab_calcul(), SMA5 o = 1 IndA = 4 ReDim tab_calcul(o + IndA, 16) tab_calcul(o, 16) = 100: [Z1] = tab_calcul(o, 16) tab_calcul(o + IndA, 16) = Empty: [Z2] = tab_calcul(o + IndA, 16)...
  14. job75

    Microsoft 365 comment faire une moyenne de valeurs contenu dans un tableau variant

    Bonjour Coco_lac, sylvanu, Cette ligne marche très bien si les variables et le tableau sont initialisés correctement : Sub Test() Dim o, IndA, tab_calcul(), SMA5 o = 1 IndA = 4 ReDim tab_calcul(o + IndA, 16) tab_calcul(o, 16) = 100 tab_calcul(o + IndA, 16) = 200 SMA5 =...
  15. job75

    XL 2016 recherche Auto tableau avec une condition

    Bonsoir achraf26, Les explications du post #1 ou du fichier sont incompréhensibles :mad: A+
  16. job75

    XL 2013 filtre vba avec msbox

    Bonsoir nabilexcel2007, Le code existant utilise deux mots, que faut-il en penser ? A+
  17. job75

    Microsoft 365 Saisie Combobox et recupération valeur

    Eh bien ça beugue, chez moi en tout cas.
  18. job75

    XL 2019 comment associer les fonction grande valeur et non(estformule)

    Bonjour à tous, Formule matricielle =MAX(SI(NON(ESTFORMULE(AG12:AL12));AG12:AL12)) A+
  19. job75

    Microsoft 365 Saisie Combobox et recupération valeur

    Bonjour Dudu2, La seule subtilité c'est qu'il faut effacer la propriété RowSource avant de modifier la base. A+
  20. job75

    XL 2010 extraire des mots en gras

    Bonjour mapomme, Sur mon ordi la macro de ton fichier s'exécute en 3,1 secondes, nos ordis sont semblables. A+
Haut Bas