Résultats de la recherche

  1. job75

    Microsoft 365 Code VBA pour cellule en surbrillance

    La macro précédente est à placer dans le code d'une feuille de calcul. Si on veut l'appliquer à toutes les feuilles du classeur placer dans ThisWorkbook : Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) ActiveCell.Parent.Cells.FormatConditions.Delete 'RAZ...
  2. job75

    Microsoft 365 Code VBA pour cellule en surbrillance

    Bonsoir Bruno09, En créant une MFC sur la cellule active : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.FormatConditions.Delete 'RAZ ActiveCell.FormatConditions.Add xlExpression, Formula1:=1 With ActiveCell.FormatConditions(1) .Interior.Color = vbBlack 'fond noir...
  3. job75

    Compter le nombre de chiffres dans une cellule

    Bonsoir debuissy, bienvenue sur XLD, Il valait mieux créer votre propre discussion ! Déduire ça veut dire quoi ? Déposez votre fichier, allégé et sans données confidentielles, montrant le résultat à obtenir. A+
  4. job75

    XL 2010 Trier de A à Z et calculer les doublons.

    Bonsoir DAVID-44-, excfl, sylvanu, Avec des tableaux structurés c'est vraiment très simple, voyez ce fichier et la macro : Sub Filtrer_Doublons() Dim LO As ListObject, P As Range, i& Application.ScreenUpdating = False For Each LO In Sheets("COMMANDE").ListObjects 'tableaux structurés Set P...
  5. job75

    XL 2016 Si CODE alors affiche moi toutes les images comportant CODE

    Bonjour pulelian, Voyez le fichier joint et cette macro dans le code de la 1ère feuille : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$C$3" Then Exit Sub Dim cible As Range, p As Object Target.Select Set cible = [B6] '1ère cellule de destination, à adapter...
  6. job75

    Autres Regroupement de feuilles

    S'il peut y avoir des lignes vides dans les tableaux on utilisera le UsedRange, fichier (2).
  7. job75

    Autres Regroupement de feuilles

    Bonjour chilo27, Yeahou, C'est un sujet très souvent traité sur XLD, voyez le fichier joint et le code de la feuille REGROUPEMENT : Private Sub Worksheet_Activate() Dim lig&, w As Worksheet lig = 6 '1ère ligne de destination Application.ScreenUpdating = False Rows(lig & ":" & Rows.Count).Delete...
  8. job75

    XL 2019 Je ne trouve pas l'erreur dans mon formulaire

    Oui mais malheureusement beaucoup utilisent ces tableaux n'importe comment.
  9. job75

    XL 2019 Je ne trouve pas l'erreur dans mon formulaire

    Perso Bernard je n'aime pas utiliser la méthode ListRows.Add. Car si le tableau est constitué d'une (ou plusieurs) ligne vide elle ne va pas l'utiliser mais en ajouter une.
  10. job75

    XL 2019 Je ne trouve pas l'erreur dans mon formulaire

    On peut traiter toutes les TextBoxes en même temps, sans boucle : Private Sub btnenregistrer_Click() With Sheets("Suivi de chantier").ListObjects(1).Range .Parent.Visible = xlSheetVisible 'sécurité si la feuille est masquée Application.Goto .Columns(1).EntireColumn.Find(""...
  11. job75

    XL 2019 Je ne trouve pas l'erreur dans mon formulaire

    Re, salut Bernard, sylvanu, Je mets ce message plus bas pour laisser Dranreb s'exprimer :) Vous n'utilisez pas la variable lig mais bon, on peut s'en passer : Private Sub btnenregistrer_Click() With Sheets("Suivi de chantier").ListObjects(1).Range .Parent.Visible = xlSheetVisible...
  12. job75

    XL 2019 Je ne trouve pas l'erreur dans mon formulaire

    Bonjour godumathis, bienvenue sur XLD, Pas vu de bouton valider dans les UserForms... Le numéro de la 1ère ligne vide sera donné par la variable lig : Dim lig As Long '--- lig = Range("A" & Rows.Count).End(xlUp).Row + 1 A+
  13. job75

    Microsoft 365 formule ne fonctionne pas; problème de répartition de données; encadrement de date

    Si (J$3=$B4) est VRAI (c'est à dire 1) prend la valeur $F4. Si (J$3>=$C4)*(J$3<=$E4) vaut 1 prend la valeur $H4.
  14. job75

    XL 2016 copier des cellules verrouillées sans codes

    Bonsoir, Bah JM, ce n'est pas une demande de déprotection, c'est juste une demande de copie !!! Et avec une macro pas besoin de sélectionner les cellules : Sub Copier() Dim fichier$ fichier = ThisWorkbook.Path & "\Source.xlsx" 'à adapter If Dir(fichier) = "" Then MsgBox "Fichier Source.xlsx...
  15. job75

    Microsoft 365 formule ne fonctionne pas; problème de répartition de données; encadrement de date

    Bonsoir diabolo75017, sylvanu, Voyez le fichier joint et la formule en J4 à tirer à droite et vers le bas : =$F4*(J$3=$B4)+$H4*(J$3>=$C4)*(J$3<=$E4) A+
  16. job75

    XL 2010 Coloriser cellule si elle ne contient pas qu'un chiffre ou un nombre.

    Fichier joint avec la MFC =ESTERREUR(-A1)+ESTLOGIQUE(A1)
  17. job75

    XL 2010 Coloriser cellule si elle ne contient pas qu'un chiffre ou un nombre.

    Salut sylvanu, Donc tu penses que 12345 doit être coloré si c'est du texte ? Pas sûr... Et il faudrait sans doute colorer aussi les valeurs d'erreur et les valeurs logiques. A+
  18. job75

    XL 2010 Coloriser cellule si elle ne contient pas qu'un chiffre ou un nombre.

    Bonjour DAVID-44-, excfl, Attention, une chaîne composée uniquement de chiffres peut être du texte. Par exemple avec la formule ="12345" Dans ce cas faut-il colorer la cellule ou pas ? A+
  19. job75

    XL 2019 VBA TROUVER UN NOMBRE MANQUANT DANS UNE SUITE DONNEE

    Fichier joint avec ces 2 macros : Sub Dictionary() Dim t, d As Object, tablo, i&, n& t = Timer Set d = CreateObject("Scripting.Dictionary") tablo = [A2:A50000] For i = 1 To UBound(tablo) d(tablo(i, 1)) = "" Next For i = Application.Min(tablo) To Application.Max(tablo) If Not d.exists(i)...
  20. job75

    XL 2019 Ouvrir le fichier le plus récent d'un dossier dans VBA

    Elle n'est pas complexe et je vous ai toujours donné des codes assez faciles à comprendre. Vous ne bricolez pas ? Alors pourquoi y a-t-il des nombres dans la colonne "Action" au post #34 ??? Dans tous vos fichiers sources ce sont des textes assez longs !!!
Haut Bas