Résultats de la recherche

hello, "<", "?" et ":" sont interdit dans un nom de fichier, je ne vois pas comment ça pourrait fonctionner

Hello, parce que j'avais un peu de temps

si je ne m'abuse =ET(A2=$B$8;H2>$H$8) devrait suffire en sélectionnant H2:H6

Il est où le fichier exemple ?

Hello, ça devrait faire l'affaire Sub Imprime_Zone() Dim Num_Der_Col, Num_Der_Lig, Der_Col, Der_Lig Num_Der_Col = ActiveCell.SpecialCells(xlLastCell).Column Num_Der_Lig = ActiveCell.SpecialCells(xlLastCell).Row For Der_Col = Num_Der_Col To 1 Step -1...

Hello, pourquoi un TCD ? D'après le fichier joint les calculs peuvent être fait dans un tableau tout bête

Hum... toujours si je ne m'abuse, tu met des infos avec retour à la ligne dans la cellule B4(5, 6, 7, 8, 9), donc c'est bien le B qqchose que tu dois activer le "Renvoyer à la ligne automatiquement", pas dans A4 qui ne contient qu'un texte

Hello, si je ne m'abuse Range("B4").WrapText = True

Démasqué 😉 Ps : c'était une cordoba 😁

Si avec toutes les solutions fournis il n'y arrive pas, je doute que ça soit mieux avec un publipostage 😊 C'est comme les Ferrari et les marteaux (private joke d'un ancien du mpfe)

pareil :)

Ah la la les fusions de cellules... Effectivement, Excel ne peut pas utiliser votre "ligne" (qui est en fait 3 lignes fusionnées) ni l'entête de la colonne I et J à cause encore une fois de la fusion Défusionnez tout ça comme vous le propose JHA et ça ira tout de suite mieux

une proposition en PJ

=MIN((A1*B1)/100;100%)

hello, un fichier exemple serait bienvenu

Hello, si le fichier CSV contient trop de ligne c'est qu'il y a soit un espace (donc invisible) dans une ligne en supplémentaire ou que le formatage va trop loin. Pour savoir où s'arrête réellement le fichier excel utilisez le raccourci clavier Ctrl+Fin, vous devriez vous trouvez au delà de la...

Hello, copier le tableau, coller avec "Respecter la mise en forme de destination" (ou alors j'ai pas compris la question)

Hello je propose Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Jour$, col&, Rng As Range If IsDate(Target) Then Jour = Day(Target) With Sheets(MonthName(Month(Target))) ' .Activate Set Rng = .Range("M3:AQ3")...

ben alors là... tu fais un malaise en voyant un exit for et rien sur un on error resume next :oops::eek: Ceci dit, On Error Resume Next existe, alors on a bien évidemment le droit de l'utiliser. ;)

Oups, désolé pour le malaise vagal provoqué :) ; Le exit for il n'est pas du tout obligatoire c'est juste pour gagner quelques pouillèmes de seconde car une fois que toutes les données sont affichées il ne sert plus à rien de chercher si d'autres colonnes sont filtrées. ...et le "plus propre"...