Recherche:

Bonjour,

Une solution avec des formules :

653673

En D4, à recopier vers le bas :


=SOUS.TOTAL(103;Tableau1[@Nom])

Bonjour,

Avec les dates en colonne A et les valeurs en colonne B, tu ajoute une série en colonne C avec la formule :


=SI(A1<=AUJOURDHUI();B1;NA())

en C1 à recopier vers le bas. Trace la...

Bonjour,

Avec des formules (toutes versions).

Daniel

652893

Bonjour,

Mets cette macro dans le formulaire :


Private Sub CmbAnnee_Change()
Me.TbxN1.Value = Application.Index([M:M], Me.CmbAnnee.ListIndex + 2)
End Sub

Bonjour,

Quelles sont les éléments que vous souhaitez copier sur la feuille Excel et dans quelles colonnes ?

Cordialement.

Daniel

J'ai ajouté un bouton "+1" sous le bouton "barre chocolat". Regarde le classeur joint.

Bonjour,

Tu es optimiste de poster dans discussion dont le dernier message date de 5 ans, surtout par temps de covid :)
Sinon, des boutons qui insèrent des ligne, il y en a déjà plein. il...

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é" ?