Recherche:

Bonjour,


As-tu un ordre de grandeur du temps pris par chacune des 3 opérations: filtre, suppression des lignes, recalcul des TCD?

Si la solution de Marc ne donne pas un gain de temps...

C'est le résultat de la requête en image jointe?. J'ai l'impression que c'est juste ta table prix => on ne peut en tirer aucune conclusion (sauf que la table existe).

Il y 'a quoi dans ta variable...

Si Table.EOF = True, c'est que ta requête ne renvoie rien. En gros, il n'y a rien dans ton RecordSet Table.
Il est donc normal que tu ne puisses pas affecter le résultat à quelque chose

Bonjour,

Qu'affiche:
debug.print Table.EOF
debug.print typeName(Table![tarif]) ?

Bonjour,

Sans le fichier (même un extrait) ça risque d'être compliqué de t'aider

Bonjour,

Effectivement, cela ne fonctionne pas dans votre formule car les éléments nuls (<> "A" ou <>"B" selon le cas) sont pris en compte dans le calcul des coefficients.

En VBA, il vous faut...

Bonjour,

Et bien il s'avère que les événements Activate des Forms ne se déclenchent pas en mode Pop-Up...

Alors,

D'abord il est normal que le fichier ne s'enregistre pas (désolé je n'avais pas tout lu)
1. la fonction GetSaveAsFilename ne fait que récupérer le nom du fichier saisi dans la boîte de...

Bonjour,

Essaie comme ça:
Else
Cancel = True
varResult = Application.GetSaveAsFilename(InitialFileName:=(Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 1) & "_" & Format(Date,...

Je n'ai pas de problème pour afficher un formulaire. Le problème vient du non-déclenchement des événements.
"Pop-Pup": oui J'ai mis fenêtre contextuelle à vrai dans les propriétés de mes...

Bonjour,

J'ai créé plusieurs formulaires et souhaiterait pouvoir naviguer de l'un à l'autre via des boutons (suivant/précédent) présents sur ces formulaires.
Pour l'instant, pour passer de l'un à...

Bonjour,

Dans ta méthode Initialize, peut être vider les ComboxBox avant de les alimenter....

ComboBox2.Clear
ComboBox3.Clear
.....
La méthode AddItem ne vérifiant pas que l'élément existe...

Bonjour,

Ce n'est pas très clair que voulez vous fusionner? La syntaxe avec des guillemets au niveau de Cells ne fonctionnera pas. J'ai l'impression qu'il serait plus aisé pour vous d'utiliser...

Pas de honte ici...L'évidence est souvent sous notre nez.

Pour votre second problème, je ne vois pas trop comment le faire en une formule. Votre solution paraissait bien, je pensais que ça...

Merci Loufab pour cette réponse limpide qui me va bien.

N'ayant jamais développé en VBA Access, je pensais que le fonctionnement était similaire au VBA Excel. La même chose sur un UserForm Excel...

Bonjour,

As-tu essayé la fonction NB.SI.ENS qui fait la même chose (il me semble) que ce que tu désires?
Ça donnerait quelque chose comme ça: ...

Bonjour,

Toute référence à des cellules dans une boucle va ralentir ton code.
Aussi bien la phase de remplissage de tes tableaux (Voir à ce sujet ce que te propose Philippe)
For i = 0 To...

Bonjour,

Dans un formulaire, lors d'un changement de valeur d'une CheckBox via VBA, je n'arrive pas à récupérer aucun événement (Change, AfterUpdate, etc. ). Je ne comprends pas trop pourquoi....

Bonjour,

- Soit de manière un peu brute:
Private Sub Workbook_Open()
ActiveWorkbook.RefreshAll
On Error Resume Next
AddIns("Analysis ToolPak").Installed = True
AddIns("Utilitaire...

C'est pas du tout le même métier. Ce n'est ni une mauvaise ni une bonne chose. Tout dépend de ses goûts personnels...

Bonjour,

Je vois 2 solutions:

La première serait une simple boucle sur la dimension où tu recherches ta valeur.
La deuxième si tu veux conserver l'utilisation de Index est de scinder ton...

Bonjour,

Ton code recherche "MotCherché" dans la colonne 1 de ta matrice 2D. L'extraction de la colonne se fait grâce à la fonction Index. Cette fonction n'est pas adaptée pour un tableau...

Ce n'était pas ma question mais pas grave...
A mon avis ta procédure clic_droit est dans le "module" ThisWorkbook. Crée un module standard (Insertion module) et coupe/colle ta ta procédure dedans.

Bonjour,

Où (dans quel type de module) as-tu mis la fonction clic_droit?

Hello,

Une piste...


Sub Test()

Dim i As Long
Dim cellule As Range
Dim feuille As Worksheet