Contenu récent par job75

Au lieu d'un code improbable expliquez en bon français comment vous voulez filtrer.

Bonjour, Pourquoi ouvrir une nouvelle discussion ? Posez la question sur le fil qui vous pose problème. A+

Bonjour, Vous croyez qu'on va s'amuser à tester le code sans fichier ? A+

Bonjour kikoudz Les 3 CheckBox du fichier Word ne fonctionnent pas chez moi, ce fichier Word ne va donc pas. Avec le fichier Excel que j'ai proposé pas besoin d'UserForm ni de VBA. A+

Bonjour fenec, goube, JHA, GALOUGALOU, Avec une macro pas besoin de formules, celle-ci va bien : Private Sub Worksheet_Change(ByVal Target As Range) Dim colA As Range, colB As Range, colD As Range, decal&, i& Set colA = [Tableau2].Columns(1).Cells Set colB = [Tableau2].Columns(2).Cells Set colD...

Bonjour M12, Jacky67, On peut aussi utiliser dans la feuille cette formule matricielle : =MAX((A5:A1000<>"")*LIGNE(A5:A1000)) à valider par Ctrl+Maj+Entrée, ou l'utiliser en VBA : dlig = [MAX((A5:A1000<>"")*ROW(A5:A1000))] Adapter 1000 bien sûr. A+

Bonjour netparty, le forum, S'il n'y a pas de cellules vides ou textes vides "" entre les textes : dlig = Application.CountIf(Range("A5:A" & Rows.Count), "><") + 4 A+

La touche Suppr n'efface ni les couleurs ni les bordures.

Bonjour akujah, Bruno, Attention, sur les versions Excel récentes cette instruction : ActiveChart.Paste ne s'exécute pas toujours, il faut la forcer par une boucle d'attente : While ActiveChart.Shapes.Count = 0 ActiveChart.Paste Wend A+

Bonjour à tous, Affectez le raccourci Ctrl+d à cette macro : Sub Clear() 'se lance par le raccouci Ctrl+d ActiveCell.Clear End Sub A+

Une autre solution, plus compliquée mais plus rapide, consiste à traiter séquentiellement le fichier CSV : Sub MAJ() Dim h1#, h2#, h3#, h4#, h5#, h6#, x%, texte$, s, v, n1&, tablo1(), n2&, tablo2(), n3&, tablo3() h1 = [E3]: h2 = [E4]: h3 = [E6]: h4 = [E7]: h5 = [K3]: h6 = [K4] x = FreeFile Open...

Bonjour GENTILE, Hasco, le forum, En VBA une solution très simple et rapide est d'utiliser le filtre avancé : Sub MAJ() Application.ScreenUpdating = False Workbooks.OpenText ThisWorkbook.Path & "\LP - Test.csv", Local:=True 'à adapter [J2] = "=(C2>=" & Replace(Feuil1.[E3], ",", ".") & ")*(C2<="...

Je ne comprends pas, XLD n'est plus sur XenForo ? Depuis quand ?

Merci pour l'info David, bon courage. A quoi sert Apache (c'est quoi ?) sur XLD ?

Bonsoir, Le forum n'a pas été accessible pendant plus de 2 heures. Merci de nous dire pourquoi David. A+