Contenu récent par fanch55

Bonsoir, 1. Code modifié dans Userform1 : Function show_picture_in_image_frame_INSCRIPTION() Dim MyUrl As String MyUrl = ActiveWorkbook.Path & TextBox16.Value If TextBox16.Value = "" Or Dir(MyUrl) = "" Then Me.Image1.Picture = Nothing Else Me.Image1.Picture =...

@nullosse , salut Il semblerait qu'on ne cherche pas à supprimer des "lignes entières" mais des lignes de tableaux, pour préserver ce qui est à gauche ou à droite du tableau . Après filtre, si on doit supprimer les lignes sélectionnées, la seule option proposée est de supprimer la ligne entière ....

Suite à une remarque en privée de @mapomme, les adresses filtrées peuvent être tronquées dans la propriété SpecialCells(xlCellTypeVisible).Address limitée à 255 caractères ( 257 chez moi ? ) . J'ai donc modifié mon code ainsi : Sub Filter_Delete() Dim Lignes As Areas, L As Long, ti#...

Bonjour à tous, En supposant qu'on travaille avec des tables structurées, un exemple ci joint Nota: s'il y a plus d'une table ou d'autres données sur la feuille, seules les lignes de la table concernée sont supprimées

Pour le fun, Le classeur ci-joint a 3 colonnes renseignées . En cliquant sur la première ligne d'une des colonnes, un combobox est affiché avec les données de la colonne, triées et sans doublons . @samuelrollens étant sous excel 2019, j'ai conservé les sort/filters spécifiques à cette version ...

Salut @job, en lisant les articles, le Sort n'est disponible qu'à partir de Xl 2021 . Je dois avouer que même en étant sous Office 2024, j'oublie les fonctions Sort et Filter .

Intéressant l'"Evaluate(Sort" à condition que les données soient numériques ou strictement alphabétiques

Salut Phil, apparemment la protection de feuille n'empêche pas l'affichage/masquage, la protection de classeur par contre oui .

Une raison fortement supposable, c'est que le classeur est protégé ... code corrigé à tester : Sub AfficherToutesLesFeuilles() 'Name Value Description 'xlChart -4109 Chart 'xlDialogSheet -4116 Dialog sheet 'xlExcel4IntlMacroSheet...

Salut à tous, le code de vérification amendé : Sub AfficherToutesLesFeuilles() 'Name Value Description 'xlChart -4109 Chart 'xlDialogSheet -4116 Dialog sheet 'xlExcel4IntlMacroSheet 4 Excel version 4 international macro sheet...

Definissez l'orientation au préalable pour chaque feuille comme vous définissez les zones d'impressions

Le code ci-dessous tient compte des zones d'impression : Option Explicit Private Sub CommandButton2_Click() Dim PrintDlg As DialogSheet Dim CurrentSheet As Worksheet Dim Sh As Worksheet Dim Cb As CheckBox Dim Sel_Sheets As String Dim FileName As...

Si cela peut aider : https://excel-downloads.com/threads/bouton-pour-impression-de-plusieurs-fuilles-excel-dans-le-meme-fichier-pdf-par-exempe.20045074/post-20330795

Bonjour à tous, Pour le fun, fonctionne quel que soit le caractère de séparation : Sub Extraire() [A5].Formula2Local = "=STXT(C5:C350;4;3)" End Sub Remarque: la formule peut être entrée en direct sur la cellule A5 pour se passer de Vba

Présent, je vous ai répondu dans les MP postés 🤗