Contenu récent par job75

  1. job75

    XL 2013 (RESOLU) Protection automatique des nouvelles feuilles

    Bonjour Bruno, J'utilise Workbook_SheetActivate qui fait la même chose que Workbook_NewSheet.
  2. job75

    XL 2019 Comment attendre la fin d'exécution de la macro pour passer à la ligne de VBA suivante ?

    Bonjour LeForain, sylvanu, mromain, Au lieu de contrôles de contenu on peut utiliser des signets (Bookmarks). Bien sûr ils se suppriment quand on les utilise mais il est facile de les recréer. Tout se fera à partir d'une seule macro Excel. A+
  3. job75

    XL 2013 (RESOLU) Protection automatique des nouvelles feuilles

    Si l'on veut que les feuilles créées soient protégées dès leur création mettre dans ThisWorkbook : Private Sub Workbook_Open() Dim Sh As Object For Each Sh In Sheets Sh.Protect "CharBel", UserInterfaceOnly:=True Next End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) Sh.Protect...
  4. job75

    XL 2013 (RESOLU) Protection automatique des nouvelles feuilles

    Bonjour chaelie2015, Pour protéger toutes les feuilles du classeur : Private Sub Workbook_Open() Dim Sh As Object For Each Sh In Sheets Sh.Protect "CharBel", UserInterfaceOnly:=True Next End Sub A+
  5. job75

    XL 2021 Paramètres de "Range" en VBA

    La méthode "Find" n'est pas très rapide mais en plus ici la feuille "Plan" est très tarabiscotée. Si l'on efface tous ses formats la macro s'exécute chez moi en 1,3 seconde.
  6. job75

    XL 2013 (RESOLU) Message lors de modification de la cellule fusionnée

    Bonjour chaelie2015 et les autres, On peut utiliser : Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [Y10]) Is Nothing Then Exit Sub Dim sel As Range, mem With Application .ScreenUpdating = False .EnableEvents = False Set sel = Selection .Undo 'annule...
  7. job75

    XL 2021 Paramètres de "Range" en VBA

    Dans mes premiers essais la macro précédente s'exécutait rapidement. Maintenant elle met beaucoup de temps, je ne sais pas pourquoi. Et chez vous ?
  8. job75

    XL 2021 Paramètres de "Range" en VBA

    Pour ce qui est de votre liste de courses mettez cette macro dans la feuille "Plan" : Private Sub Worksheet_Activate() Dim c As Range, cc As Range, P As Range, n& For Each c In Sheets("Listes").[D2:D1000] If c <> "" Then Set cc = Cells.Find(c, , xlValues, xlWhole) If cc Is...
  9. job75

    XL 2021 Paramètres de "Range" en VBA

    Bonjour Constantin, le forum, Pour rechercher les cellules qui contiennent des constantes de nombres ajouter l'argument 1 : For Each c In Cells.SpecialCells(xlCellTypeConstants, 1) Pour rechercher des textes ce sera 2 : For Each c In Cells.SpecialCells(xlCellTypeConstants, 2) A+
  10. job75

    XL 2021 valeur à attribuer selon plusieurs critères horaire

    Bonsoir ftpo69, Vous pouvez utiliser : =SI(ET(B7>=TEMPSVAL("5:30");B7<TEMPSVAL("12:30"));"matin";SI(ET(B7>=TEMPSVAL("12:30");B7<TEMPSVAL("20:00"));"APM";"nuit")) A+
  11. job75

    XL 2021 Paramètres de "Range" en VBA

    Pour le fichier du post #15 utilisez : Sub Grouper2() Dim c As Range, P As Range On Error Resume Next 'si aucune SpecialCell For Each c In Cells.SpecialCells(xlCellTypeConstants) If c <> "" Then Set P = Union(IIf(P Is Nothing, c.MergeArea, P), c.MergeArea) Next P.Select End Sub
  12. job75

    XL 2021 Paramètres de "Range" en VBA

    Avec Union il n'y aura aucun problème.
  13. job75

    XL 2021 Paramètres de "Range" en VBA

    D'expérience je peux vous dire que la fonction Union ne pose pas de problème pour unir quelques centaines de zones disjointes. Au delà de 1000 zones elle prend beaucoup de temps.
  14. job75

    XL 2021 Paramètres de "Range" en VBA

    Bonjour Constantin, mapomme, gbinforme, En VBA il existe la fonction Union qui permet de grouper plusieurs Range. Dans le fichier joint cette macro sélectionne toutes les cellules jaunes : Sub Grouper() Dim P As Range, Q As Range, i, j Set P = [B15:C16] Set Q = P For i = 0 To 4 For j = 0...
  15. job75

    XL 2019 Nommer exportation

    Bonsoir LeForain, kiki29, Utilisez les valeurs des cellules sources du fichier Excel. A+