Recherche:

Bis :

Quelle est l'adresse du (ou des) destinataire(s) ? Quel est le message d'alerte ? Quel est ton logiciel de messagerie ? Est-ce que tu connais le langage des macros ?

Précis ? bah, non ! En quelle(s) colonne(s) se trouvent les dates à tester ? Quelle est l'adresse du (ou des) destinataire(s) ? Quel est le message d'alerte ? Quel est ton logiciel de messagerie ?...

Bonjour,

Mets la cellule où tu fais le test au format police Wingdings. Si la date n'est pas dépassée, utilise J sinon L :
=SI(date<date limite;"J";"L")
Pour la couleur fais une mise en forme...

Bonjour,

Tu dois écrire les valeurs dans un tableau (array). Par exemple :


Dim Tabl(2) As Double
Tabl(0) = 1000
Tabl(1) = 1500
Tabl(2) = 2000
...

Bonjour,

Le mieux serait de poster ton classeur.

Avec les valeurs en ligne 14, la formule devient :

...

Dans le cas de ton fichier (que je n'avais vu), la formule sera :

...

Bonjour,

Avec cette disposition, utilise la formule :

...

Bonjour,

Je ne me souviens plus de la discussion, mais, en cliquant sur le lien, je récupère bien le classeur.

Cordialement.

Daniel

Bonjour,

Essaie :


Sub test()
Dim OutApp As Object, Ligne As Long, Chrono As String, Desti, Lig As Long, Fich
Application.ScreenUpdating = False
Set OutApp =...

Essaie comme ça :


Sheets("Saisie").Range("liste_dd") = ""

Vérifie si le nom "liste_dd" existe.

Bonjour,

Essaie :


Sub test()
Dim Plage As Range, C As Range, Ligne As Long, Tabl As Variant, I As Long, Ctr As Long
With Sheets("TABLEAU")
Ligne = .Cells(.Rows.Count,...

Bonjour,

Quelles sont les lignes en erreur et quels sont les libellés exacts des messages ?

Pour éviter de dépasser les limites du tableau :


Dim Var As Long
With ActiveSheet.ListObjects("T_2")
Var = Application.Min(.ListColumns.Count, [data!F11].Value)
...

Je viens de tester ton code et il fait bien le boulot. J'ai mis 3 en Data!F11; et toi ? Pour plus de sureté, remplace "ActiveSheet" par le nom de la feuille. Quant à la syntaxe, tu peux utiliser...

Bonjour,



With ActiveSheet.ListObjects("T_2")
.ListColumns("Groupe 1").Range.Resize(, [Feuil3!A1].Value).ClearContents
End With

Avec le nombre de colonnes en A1, Feuille "Feuil3".

Bonjour,

Qu'est-ce que tu entends par "il reste figé" ?

Bonjour,

Seule chose sure, ils sont supportés, actuellement avec Excel 32 bits. Je pense que l'avenir est à la Excel 64 bits, qui s'installe maintenant par défaut. Donc, ils sont appelés, à terme,...

Bonjour,

Intervenir dans une discussion initiée en 2012 a ses risques, à commencer par le fait que personne, sauf moi, ne risque de lire ton message. Le mieux serait d'initier une nouvelle...

Bon, je viens effectivement de voir ton post; alors, pas la peine de multiplier les pièces jointes, je continue sur excel downloads

Merci..

Ne serait-ce que pour ma connaissance, ça m'intéresserait. Est-ce que tu as besoin du classeur ? La source de données est sur une feuille du classeur. et j'avais cru comprendre qu'avec PQ, il fallait...

Bonjour et merci.

Je ne suis malheureusement pas libre de modifier le classeur.

Bonjour,

Je souhaite masquer certaines dates pour lesquelles il n'y a pas de mouvements bancaires :

518014

J'ai écrit ce code, mais il est très long, et en outre, il ne donne pas le résultat...

Avec des formules (la colonne "Boite" de Table14 est triée de A à Z) :