Contenu récent par yeti_yeti

Bonjour, Je cherche une façon d’extraire trois type de données dans une chaîne de texte similaire à celle ci-dessous (par exemple ce sont les 1 qui m’intéressent): Je cherche: Le nombre maximum de 1 consécutifs. Dans l’exemple ci-dessus cela devrait retourner 5. Le nombre de blocs de 1 (1...

Comme je vous le dis depuis le début... il y a trop de lignes et le PC va bloquer systématiquement... S'il existe une façon, je ne la connais pas, désolé Néanmoins, voici la macro que vous voulez, sans garanties que cela résolve le problème... A adapter la déclaration constantes à votre fichier...

Alors plutôt que de travailler avec le nom (qui est entre parenthèses dans votre projet VBA), travaillez avec le code de la feuille (celui se trouve avant les parenthèses) Option Explicit Sub CopyDuplicates() Dim mycolor As Long, ws1 As Worksheet, ws2 As Worksheet 'Constantes Dim i As...

La mise en forme conditionnelle colore toutes les lignes qui sont identiques aux critères que vous avez mentionné dans votre premier message. Donc si vous avez la même chose à la ligne 1, 3 et 18... les lignes 1, 3 et 18 seront coloriées Pour la macro qui copie les lignes coloriées, voici ce...

Pas étonnant, la requête est trop importante... Donc la mise en forme fonctionne mais c'est au moment où vous filtrer que tout plante? On pourrait là créer une macro pour copier uniquement les lignes dubliquées dans une autre feuille et la macro ne ferait "que" 100'000 contrôles

Bonjour raniou010, 100'000 lignes ça fait 10'000'000'000 de va et viens pour la macro pour trouver les dupliqués. Et même le formatage conditionnel sera conséquent mais ça reste la fonction la plus sûre. Pour que cela fonctionne: Sélectionnez tout votre tableau Allez dans Formatage...

Bonjour raniou010, Avec une macro cela prendra beaucoup de temps car celle-ci devra contrôler chaque ligne une à une. Mettons que vous avec un tableau de 10 lignes cela demande à la macro de faire 100 contrôles. Vu le nombre de colonne que vous avez, je doute que votre fichier ne fasse que 10...

Bonjour à tous, Je suis parti avec la même idée que Jocelyn sauf que j'utilise SOMME.SI.ENS. Mon exemple ci-joint

Bonjour Dranreb, Ce sont en effet les paramètres qui manquaient. Je pense que quand j'ai écrit la macro ça fonctionnait car rien n'était spécifié et qu'ensuite une autre macro avec .Find a dû tourner avec des paramètres et que ces derniers ont été gardés par Excel. Merci pour le coup de pouce :)

Bonjour Dranreb, Si seulement... mais regardez:

Bonjour johnlhx, Plutôt que faire apparaître un bouton, je suis parti sur l'idée de simplement sélectionner la ligne entière pour archiver... La macro ci-dessous est à entrer dans la feuille "Listes Factures"... et à adapter la partie "Déclaration constantes" Option Explicit Private Sub...

Bonjour Cocktail Sub Heure() ActiveCell = Now End Sub

Bonjour à tous, Je sèche complètement sur cette erreur car il me semble que tout est bien déclaré et que la macro marchait il y a quelques jours encore... La ligne qui plante est la première du bloc With, avec le r = (Je l'ai mise en avant avec ***) Option Explicit Private Sub...

Bonjour, Merci pour vos réponses. J'ai finalement réussi à faire ce que je voulais faire: Private Sub Test() Dim sCopy As Variant Set sCopy = ThisWorkbook.Sheets(14) For i = 2 To sCopy.Cells(1, 17).Value filenam = ThisWorkbook.Path & "\" & sCopy.Cells(i, 3) &...

Bonjour, Je m'arrache les cheveux avec une gestion d'erreur en If/Then/Else J'aimerais que s'il ne trouve pas le fichier demandé, il passe à l'incrémentation suivante... or si je fais ça, j'ai une "Compile Error: Next Without For" alors que j'ai bien un For lié à ce Next... Private Sub Test()...