J'ai, une fois de plus, atteint les limites de mes maigres progrès en
VBA et j'ai besoin d'aide.
J'ai un fichier avec environ 500 lignes :
En colonne A : des dates par ordre chronologique.
En colonne B : des noms.
En colonne C : des prénoms.
En colonne D : des nombres
Dans les colonnes suivantes : des informations diverses.
Parfois, des lignes qui se suivent sont exactement identiques en
colonne A à C : même date, mêmes noms et prénoms. Le plus souvent, ce
sont deux lignes consécutives qui sont identiques, mais cela peut-être
trois ou quatre.
Dans ce cas, je souhaite fusionner les x lignes identiques pour la
date, même chose pour les noms et prénoms et je souhaite calculer la
somme en colonne D (avec fusion également).
Exemple :
Avant :
A B C D E F
16 21/04 DURAND Joseph 20 A toto
17 21/04 DURAND Joseph 50 B titi
18 21/04 DURAND Joseph 10 C tata
Après fusion :
16 A toto
17 21/04 DURAND Joseph 80 B titi
18 C tata
Il faut sans doute faire une boucle pour passer en revue toutes les
lignes et lorsque deux ou trois ou quatre sont semblables lancer la
fusion des cellules concernées et l'addition en colonne D, mais je ne
sais vraiment pas comment faire.
J'ai, une fois de plus, atteint les limites de mes maigres progrès en VBA et j'ai besoin d'aide.
J'ai un fichier avec environ 500 lignes : En colonne A : des dates par ordre chronologique. En colonne B : des noms. En colonne C : des prénoms. En colonne D : des nombres Dans les colonnes suivantes : des informations diverses.
Parfois, des lignes qui se suivent sont exactement identiques en colonne A à C : même date, mêmes noms et prénoms. Le plus souvent, ce sont deux lignes consécutives qui sont identiques, mais cela peut-être trois ou quatre.
Dans ce cas, je souhaite fusionner les x lignes identiques pour la date, même chose pour les noms et prénoms et je souhaite calculer la somme en colonne D (avec fusion également).
Exemple : Avant :
A B C D E F 16 21/04 DURAND Joseph 20 A toto 17 21/04 DURAND Joseph 50 B titi 18 21/04 DURAND Joseph 10 C tata
Après fusion : 16 A toto 17 21/04 DURAND Joseph 80 B titi 18 C tata
Il faut sans doute faire une boucle pour passer en revue toutes les lignes et lorsque deux ou trois ou quatre sont semblables lancer la fusion des cellules concernées et l'addition en colonne D, mais je ne sais vraiment pas comment faire.
Merci par avance de votre aide.
Jacques
bonjour,
si j'ai bien compris, la comparaison doit s'effectuer sur la correspondance
, entre les lignes , de la concaténation des colonnes A à C
Sous ces conditions, le programme suivant peut-être à adapter en fonction
notamment de la ligne de départ I=1
Sub nn()
I = 1
While I <> Range("A65536").End(xlUp).Row
tampon = ""
Cpte = 0
For J = 1 To 3
tampon = tampon & Cells(I, J).Value
Next
deb = I
tampon1 = tampon
While tampon1 = tampon
tampon1 = ""
I = I + 1
For J = 1 To 3
tampon1 = tampon1 & Cells(I, J).Value
Next
Cpte = Cpte + 1
Wend
J'ai, une fois de plus, atteint les limites de mes maigres progrès en
VBA et j'ai besoin d'aide.
J'ai un fichier avec environ 500 lignes :
En colonne A : des dates par ordre chronologique.
En colonne B : des noms.
En colonne C : des prénoms.
En colonne D : des nombres
Dans les colonnes suivantes : des informations diverses.
Parfois, des lignes qui se suivent sont exactement identiques en
colonne A à C : même date, mêmes noms et prénoms. Le plus souvent, ce
sont deux lignes consécutives qui sont identiques, mais cela peut-être
trois ou quatre.
Dans ce cas, je souhaite fusionner les x lignes identiques pour la
date, même chose pour les noms et prénoms et je souhaite calculer la
somme en colonne D (avec fusion également).
Exemple :
Avant :
A B C D E F
16 21/04 DURAND Joseph 20 A toto
17 21/04 DURAND Joseph 50 B titi
18 21/04 DURAND Joseph 10 C tata
Après fusion :
16 A toto
17 21/04 DURAND Joseph 80 B titi
18 C tata
Il faut sans doute faire une boucle pour passer en revue toutes les
lignes et lorsque deux ou trois ou quatre sont semblables lancer la
fusion des cellules concernées et l'addition en colonne D, mais je ne
sais vraiment pas comment faire.
J'ai, une fois de plus, atteint les limites de mes maigres progrès en VBA et j'ai besoin d'aide.
J'ai un fichier avec environ 500 lignes : En colonne A : des dates par ordre chronologique. En colonne B : des noms. En colonne C : des prénoms. En colonne D : des nombres Dans les colonnes suivantes : des informations diverses.
Parfois, des lignes qui se suivent sont exactement identiques en colonne A à C : même date, mêmes noms et prénoms. Le plus souvent, ce sont deux lignes consécutives qui sont identiques, mais cela peut-être trois ou quatre.
Dans ce cas, je souhaite fusionner les x lignes identiques pour la date, même chose pour les noms et prénoms et je souhaite calculer la somme en colonne D (avec fusion également).
Exemple : Avant :
A B C D E F 16 21/04 DURAND Joseph 20 A toto 17 21/04 DURAND Joseph 50 B titi 18 21/04 DURAND Joseph 10 C tata
Après fusion : 16 A toto 17 21/04 DURAND Joseph 80 B titi 18 C tata
Il faut sans doute faire une boucle pour passer en revue toutes les lignes et lorsque deux ou trois ou quatre sont semblables lancer la fusion des cellules concernées et l'addition en colonne D, mais je ne sais vraiment pas comment faire.
Merci par avance de votre aide.
Jacques
JacquesH
Bonjour et merci de t'intéresser à mon problème,
J'ai copier ta macro dans un module de mon fichier, j'ai mis mes données à partir de la ligne 1, mais rien ne se passe.
Je ne sais pas si tu travailles de cette manière, mais j'ai mis un fichier exemple dans Cjoint : http://cjoint.com/?eskzlHlHtf
Jacques
bonjour,
si j'ai bien compris, la comparaison doit s'effectuer sur la correspondance , entre les lignes , de la concaténation des colonnes A à C
Sous ces conditions, le programme suivant peut-être à adapter en fonction notamment de la ligne de départ I=1
Sub nn()
I = 1
While I <> Range("A65536").End(xlUp).Row
tampon = "" Cpte = 0
For J = 1 To 3 tampon = tampon & Cells(I, J).Value Next
deb = I
tampon1 = tampon While tampon1 = tampon tampon1 = "" I = I + 1 For J = 1 To 3 tampon1 = tampon1 & Cells(I, J).Value Next Cpte = Cpte + 1 Wend
J'ai, une fois de plus, atteint les limites de mes maigres progrès en VBA et j'ai besoin d'aide.
J'ai un fichier avec environ 500 lignes : En colonne A : des dates par ordre chronologique. En colonne B : des noms. En colonne C : des prénoms. En colonne D : des nombres Dans les colonnes suivantes : des informations diverses.
Parfois, des lignes qui se suivent sont exactement identiques en colonne A à C : même date, mêmes noms et prénoms. Le plus souvent, ce sont deux lignes consécutives qui sont identiques, mais cela peut-être trois ou quatre.
Dans ce cas, je souhaite fusionner les x lignes identiques pour la date, même chose pour les noms et prénoms et je souhaite calculer la somme en colonne D (avec fusion également).
Exemple : Avant :
A B C D E F 16 21/04 DURAND Joseph 20 A toto 17 21/04 DURAND Joseph 50 B titi 18 21/04 DURAND Joseph 10 C tata
Après fusion : 16 A toto 17 21/04 DURAND Joseph 80 B titi 18 C tata
Il faut sans doute faire une boucle pour passer en revue toutes les lignes et lorsque deux ou trois ou quatre sont semblables lancer la fusion des cellules concernées et l'addition en colonne D, mais je ne sais vraiment pas comment faire.
Merci par avance de votre aide.
Jacques
Bonjour et merci de t'intéresser à mon problème,
J'ai copier ta macro dans un module de mon fichier, j'ai mis mes
données à partir de la ligne 1, mais rien ne se passe.
Je ne sais pas si tu travailles de cette manière, mais j'ai mis un
fichier exemple dans Cjoint :
http://cjoint.com/?eskzlHlHtf
Jacques
bonjour,
si j'ai bien compris, la comparaison doit s'effectuer sur la correspondance
, entre les lignes , de la concaténation des colonnes A à C
Sous ces conditions, le programme suivant peut-être à adapter en fonction
notamment de la ligne de départ I=1
Sub nn()
I = 1
While I <> Range("A65536").End(xlUp).Row
tampon = ""
Cpte = 0
For J = 1 To 3
tampon = tampon & Cells(I, J).Value
Next
deb = I
tampon1 = tampon
While tampon1 = tampon
tampon1 = ""
I = I + 1
For J = 1 To 3
tampon1 = tampon1 & Cells(I, J).Value
Next
Cpte = Cpte + 1
Wend
J'ai, une fois de plus, atteint les limites de mes maigres progrès en
VBA et j'ai besoin d'aide.
J'ai un fichier avec environ 500 lignes :
En colonne A : des dates par ordre chronologique.
En colonne B : des noms.
En colonne C : des prénoms.
En colonne D : des nombres
Dans les colonnes suivantes : des informations diverses.
Parfois, des lignes qui se suivent sont exactement identiques en
colonne A à C : même date, mêmes noms et prénoms. Le plus souvent, ce
sont deux lignes consécutives qui sont identiques, mais cela peut-être
trois ou quatre.
Dans ce cas, je souhaite fusionner les x lignes identiques pour la
date, même chose pour les noms et prénoms et je souhaite calculer la
somme en colonne D (avec fusion également).
Exemple :
Avant :
A B C D E F
16 21/04 DURAND Joseph 20 A toto
17 21/04 DURAND Joseph 50 B titi
18 21/04 DURAND Joseph 10 C tata
Après fusion :
16 A toto
17 21/04 DURAND Joseph 80 B titi
18 C tata
Il faut sans doute faire une boucle pour passer en revue toutes les
lignes et lorsque deux ou trois ou quatre sont semblables lancer la
fusion des cellules concernées et l'addition en colonne D, mais je ne
sais vraiment pas comment faire.
J'ai, une fois de plus, atteint les limites de mes maigres progrès en VBA et j'ai besoin d'aide.
J'ai un fichier avec environ 500 lignes : En colonne A : des dates par ordre chronologique. En colonne B : des noms. En colonne C : des prénoms. En colonne D : des nombres Dans les colonnes suivantes : des informations diverses.
Parfois, des lignes qui se suivent sont exactement identiques en colonne A à C : même date, mêmes noms et prénoms. Le plus souvent, ce sont deux lignes consécutives qui sont identiques, mais cela peut-être trois ou quatre.
Dans ce cas, je souhaite fusionner les x lignes identiques pour la date, même chose pour les noms et prénoms et je souhaite calculer la somme en colonne D (avec fusion également).
Exemple : Avant :
A B C D E F 16 21/04 DURAND Joseph 20 A toto 17 21/04 DURAND Joseph 50 B titi 18 21/04 DURAND Joseph 10 C tata
Après fusion : 16 A toto 17 21/04 DURAND Joseph 80 B titi 18 C tata
Il faut sans doute faire une boucle pour passer en revue toutes les lignes et lorsque deux ou trois ou quatre sont semblables lancer la fusion des cellules concernées et l'addition en colonne D, mais je ne sais vraiment pas comment faire.