596 résultats trouvés

par Klin89
26 mai 2019, 20:45
Forum : Excel - VBA
Sujet : Gestion de ronde parking / Insertion de date + copie /intégration de lignes
Réponses : 12
Vues : 160

Re: Gestion de ronde parking / Insertion de date + copie /intégration de lignes

Bonsoir James007, Star-Lord :) C'est ce résultat là que tu souhaites obtenir : Un peu lent à cause du "ReDim Preserve" Option Explicit Sub test() Dim a, e, i As Long, ii As Long, iii As Long, n As Long Dim dateMin As Long, dateMax As Long, dico As Object Set dico = CreateObject("Scripting.Dictionary...
par Klin89
12 mai 2019, 20:38
Forum : Excel - VBA
Sujet : Votre aide svp Compilation des données de plusieurs feuilles vers une seule
Réponses : 11
Vues : 192

Re: Votre aide svp Compilation des données de plusieurs feuilles vers une seule

re senlis01 :) Vu la nouvelle disposition de tes données, ceci suffit. Option Explicit Sub test() Dim ws As Worksheet, dico As Object, AL As Object Dim a, w, i As Long, j As Long, n As Long, e Set dico = CreateObject("Scripting.Dictionary") Set AL = CreateObject("System.Collections.ArrayList") For E...
par Klin89
12 mai 2019, 09:57
Forum : Excel - VBA
Sujet : Votre aide svp Compilation des données de plusieurs feuilles vers une seule
Réponses : 11
Vues : 192

Re: Votre aide svp Compilation des données de plusieurs feuilles vers une seule

re senlis01, Place la procédure dans un module standard et non pas dans un module de feuille. Remplace : For i = 2 To UBound(a, 2) - 1 If Not AL2.Contains(a(1, i)) Then AL2.Add a(1, i) Next par For i = 2 To UBound(a, 2) If Not AL2.Contains(a(1, i)) Then AL2.Add a(1, i) Next et AL1.Sort: AL2.Sort: AL...
par Klin89
11 mai 2019, 16:37
Forum : Excel - VBA
Sujet : Votre aide svp Compilation des données de plusieurs feuilles vers une seule
Réponses : 11
Vues : 192

Re: Votre aide svp Compilation des données de plusieurs feuilles vers une seule

Bonjour senlis01, Salut Efgé :) Pour ta deuxième demande, essaie ceci : Option Explicit Sub test() Dim ws As Worksheet, dico As Object, AL1 As Object, AL2 As Object Dim a, w, i As Long, j As Long, n As Long, e Set dico = CreateObject("Scripting.Dictionary") Set AL1 = CreateObject("System.Collections...
par Klin89
30 avril 2019, 20:28
Forum : Excel - VBA
Sujet : Besoin de Matrice VBA pour convertir des colonnes en lignes
Réponses : 4
Vues : 82

Re: Besoin de Matrice VBA pour convertir des colonnes en lignes

Bonsoir kasper2004 :) Essaie ceci : Option Explicit Sub test() Dim a, b(), i As Long, j As Long, n As Long a = Sheets("Données").Range("a1").CurrentRegion.Value2 ReDim b(1 To ((UBound(a, 1) - 2) * (UBound(a, 2) - 5)) + 1, 1 To 8) n = 1 b(n, 1) = a(2, 1): b(n, 2) = a(2, 2): b(n, 3) = a(2, 3) b(n, 4) ...
par Klin89
25 avril 2019, 18:45
Forum : Excel - VBA
Sujet : Fusionner les lignes lorsqu'elles sont identiques
Réponses : 7
Vues : 90

Re: Fusionner les lignes lorsqu'elles sont identiques

Bonsoir à tous, :) Comme le souligne James007, fusionner tes cellules, c'est pas top. Essaie plutôt ceci : Sub test() With Range("a5", Range("a" & Rows.Count).End(xlUp)).Resize(, 2) .Value = Evaluate("if(countif(offset(" & .Address & ",,,row(1:" & _ .Rows.Count & "))," & .Address & ")=1," & .Address...
par Klin89
21 février 2019, 20:45
Forum : Excel - VBA
Sujet : recherche résultats identiques et concatener
Réponses : 10
Vues : 255

Re: recherche résultats identiques et concatener

Re ::~ Les données affichées dans ton fichier ne représentent pas du tout l'exemple illustré plus haut, pour un même N° de colis ; pas d'éléments différents en colonne C, pas de pièces en doublon en colonne A ::( Ceci suffit amplement : Option Explicit Sub test() Dim a, b(), i As Long, n As Long, di...
par Klin89
21 février 2019, 13:39
Forum : Excel - VBA
Sujet : recherche résultats identiques et concatener
Réponses : 10
Vues : 255

Re: recherche résultats identiques et concatener

Re kimeyra, Salut Jean-Eric, :wink: Dans ton fichier, je ne sais plus quelles sont les colonnes à traiter exactement :oops: Option Explicit Sub test() Dim a, b(), w, i As Long, e, n As Long, dico As Object Set dico = CreateObject("Scripting.Dictionary") dico.CompareMode = 1 a = Sheets("feuil1").Rang...
par Klin89
20 février 2019, 21:13
Forum : Excel - VBA
Sujet : recherche résultats identiques et concatener
Réponses : 10
Vues : 255

Re: recherche résultats identiques et concatener

Re kimeyra, :) Ça se complique :lol: Vois ceci : Option Explicit Sub test() Dim a, b(), w, i As Long, e, n As Long, dico As Object Set dico = CreateObject("Scripting.Dictionary") dico.CompareMode = 1 a = Sheets("feuil1").Range("a1").CurrentRegion.Value For i = 2 To UBound(a, 1) If Not dico.exists(a(...
par Klin89
19 février 2019, 21:38
Forum : Excel - VBA
Sujet : recherche résultats identiques et concatener
Réponses : 10
Vues : 255

Re: recherche résultats identiques et concatener

Bonsoir kimeyra :) Version VBA : Option Explicit Sub test() Dim a, b(), i As Long, n As Long, dico As Object Set dico = CreateObject("Scripting.Dictionary") dico.CompareMode = 1 a = Sheets("Feuil1").Range("a1").CurrentRegion.Value ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2)) n = 1: b(n, 1) = a(1, 2...