591 résultats trouvés

par Klin89
Hier, 18:45
Forum : Excel - VBA
Sujet : Fusionner les lignes lorsqu'elles sont identiques
Réponses : 7
Vues : 66

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 : 202

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 : 202

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 : 202

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 : 202

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...
par Klin89
14 février 2019, 21:02
Forum : Excel - VBA
Sujet : Nombre d'arrangements pour faire une somme
Réponses : 5
Vues : 94

Re: Nombre d'arrangements pour faire une somme

Bonsoir jerosan, :) Sur le net, j'ai trouvé ceci : Dans les cellules A1 à F1, tu places un 1 En A2, , cette formule =MOD(LIGNE()-1;6)+1 En B2, cette autre formule =SI(SOMME($A1:A1)=(COLONNE()-1)*6;MOD(B1;6)+1;B1) que tu tires à droite jusqu'à la colonne F. Pour finir, tu tires les cellules de A2 à F...
par Klin89
12 février 2019, 19:59
Forum : Excel - VBA
Sujet : Comparer 2 feuilles et Ajouter des lignes vierge
Réponses : 2
Vues : 79

Re: Comparer 2 feuilles et Ajouter des lignes vierge

Bonsoir BarbeLP :) Peut-être comme ceci : Option Explicit Sub test() Dim i As Long, n As Long With Sheets(1) '1ere feuille dans le classeur With .Range("a1", .Range("a" & .Rows.Count).End(xlUp)).Offset(, 4) .Formula = "=match(a1,'2018'!a:a,0)" End With For i = .Range("e" & .Rows.Count).End(xlUp).Row...
par Klin89
10 février 2019, 17:49
Forum : Excel - VBA
Sujet : Mettre des données de plusieurs rangées sous une seule rangée
Réponses : 8
Vues : 87

Re: Urgent: Mettre des données de plusieurs rangées sous une seule rangée

Bonsoir kasper2004, :) A tester, je n'ai pas formaté les 3 dernières colonnes lors de la restitution : La restitution s'effectue sur une feuille nouvellement créée. Option Explicit Sub test() Dim a, b(), i As Long, j As Long, n As Long a = Sheets("Données").Range("a3").CurrentRegion.Value ReDim b(1 ...
par Klin89
22 janvier 2019, 19:52
Forum : Excel - VBA
Sujet : Fusionner plusieurs lignes en une seule + additionner valeur colonne
Réponses : 13
Vues : 207

Re: Fusionner plusieurs lignes en une seule + additionner valeur colonne

Bonsoir à tous, :) Via un dico : Option Explicit Sub test() Dim a, i As Long, j As Long, n As Long, dico As Object Set dico = CreateObject("Scripting.Dictionary") dico.CompareMode = 1 n = 1 a = Sheets("Actuel").Range("a1").CurrentRegion.Value For i = 2 To UBound(a, 1) If Not dico.Exists(a(i, 14)) Th...
par Klin89
20 janvier 2019, 19:59
Forum : Excel - VBA
Sujet : Macro comparaison deux fichiers Excel
Réponses : 19
Vues : 275

Re: Macro comparaison deux fichiers Excel

re MAVERICK39, :wink: C'est dingue, on ne peut plus revenir sur les posts précédents pour les modifier :evil: Le code précédent corrigé :oops: Option Explicit Sub test() Dim dico As Object, ws As Worksheet, i As Long Set dico = CreateObject("Scripting.Dictionary") dico.CompareMode = 1 Application.Sc...