Recherche:

Bonjour,
mon intitulé n'est certainement pas très clair et je m'en excuse.
Voilà j'ai l'habitude de faire mes jointures non avec INNER JOIN mais avec ce type de syntaxe :


Select table1.Nom,...

Je suis trop con.
Ce matin j'ai repris une vieille version de ma base dans laquelle la table B n'avait qu'un seul enregistrement au lieu de 432, ce qui m'a échappé.
Donc 128 fois 1 = 128, j'ai bien...

Bonjour,
je souhaiterais avoir un produit cartésien entre une table A de 128 enregistrements et une table B de 432 enregistrements.
J'attends donc un résultat de 55000 lignes, mais je n'en ai que...

Bonjour,
tu peux remplacer les double espaces par un simple espace, et boucler tant qu'il y en a. Ce n'est pas optimal mais bon, sauf si le fichier à traiter est énorme ça devrait à peine être plus...

Bonjour,
Il est possible, sinon probable, que le fichier CSV soit issu d'un environnement Unix et que les retour ligne soient des LF, et non des CR LF comme avec windows (je ne peux pas vérifier, la...

Il peut y avoir une solution qui est de fusionner des plages de plus de deux lignes quand c'est possible, mais elle ne serait vraiment efficace que si le tableau n'est pas trop morcelé et que de...

1600 feuilles 8O ! Je ne pensais pas que c'était possible.
En tout cas bon courage pour gérer tout ça :aie: .

Je pense qu'on peut faire ça avec un tableau de variables, qui plus est c'est très rapide :


Sub test()
Dim mon_tableau()
mon_tableau = Range("A1:A65000").Value

Range("C1:C65000") =...

Bonjour mercatog, tu es sûr qu'on peut renvoyer un array via une sub ? Il me semblait que c'était impossible et que le seul moyen était d'utiliser des array de portée publique. Mais je confonds...

Bonjour,
quelques remarques vite fait en passant :

Tu déclares K comme integer, puis tu l'utilises dans un Cells(k,1) alors qu'après sa déclaration k vaut 0 !
ça veut dire que tu lui demandes...

Je suis d'accord avec qwazerty, il ne faut surtout pas de cette ligne dans la boucle :

LastLig2 = LastLig2 - 1
car le step est -1, ce qui veut dire qu'on remonte de la dernière ligne vers la...

Bonjour,
essayez déjà de rajouter au début de votre code :

Application.ScreenUpdating = False
et à la fin :

Application.ScreenUpdating = True

Si ça n'aide pas je crains fort qu'il faille...

Bonjour,
et un traitement de ce genre :


Sub traitement()

Dim tabString() As String
Dim vTab() As Variant 'déclaration d'un tableau de variables dynamique
Dim chemin As String, nomFich As...

Application.ScreenUpdating = False

TF = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4")

For i = LBound(TF) To UBound(TF)
Sheets(TF(i)).Columns("B:C").Font.Bold = False
...

Il faut lancer l'enregistreur de macros et voir ce que ça donne comme code pour remettre la mise en forme voulue (pour remplacer les ??? ci-dessous).
Je n'ai pas la même version d'Excel et je ne...

Et un truc comme ça jouant sur la gestion de l'erreur jusqu'à ce qu'elle ne se produise plus (à adapter peut-être) :


Sub AddEventToChart(strSheetName As String)
'ajoute l evenement chart...

Pas une mauvaise idée, d'ailleurs chez moi ça marche quand je le fais :mrgreen: :


Sub AddEventToChart(strSheetName As String)
'ajoute l evenement chart calculate

Application.DisplayAlerts =...

Tu peux l'intégrer au début de ta procédure Appliquer_Doublons, par exemple après TF = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4").

Au passage je réalise que j'ai dis une grosse bêtise tout à...

Je pense qu'il faudrait, en début de macro, sélectionner les colonnes B et C de chacune des quatre feuilles et remettre pour les colonnes entières les propriétés
Interior.ColorIndex, Font.Bold,...

Ce n'est pas une histoire d'être doué, il suffit de pratiquer et petit à petit les choses se mettent en place :)
Le plus dur c'est au début, alors courage :ccool:

Et en déplaçant cette ligne rouge dans la boucle, ça ne marche pas ?


'Définition du type de compte

Dim LastRow As Long, AccClass As Byte, Account As Range
LastRow =...

Bonjour,
je pense que le problème est que vous voulez définir AccClass avant d'avoir défini Account :

AccClass = Left(Cells(Account), 1)
Ce n'est pas possible en VBA.

Oui malheureusement ce n'est pas si simple de récupérer la valeur d'une appli exécutée via un shell.

Déjà il faut arriver à avoir un résultat "à la main" sous DOS.
Ouvre une console DOS et tape :...

bonjour,
il y a plusieurs méthodes, en voici une :

Copier ceci dans un module :

Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, ByVal bInheritHandle...

Bonjour,
ce serait bien de savoir quelle ligne provoque l'erreur.

Ceci dit, ça ne m'étonnerait pas que ce soit le tableau Tableau_sans_zero_Q3()

Or, entre le moment où sa dimension est définie...