Sujet Précédent Sujet Suivant

Excel: fusion de cellules identiques

Fermé
alexstain Messages postés 1 Date d'inscription jeudi 31 mai 2007 Statut Membre Dernière intervention 31 mai 2007 - Modifié par irongege le 10/05/2011 à 13:54
ovetoug Messages postés 27 Date d'inscription samedi 1 août 2009 Statut Membre Dernière intervention 5 avril 2016 - 10 mai 2011 à 13:53
bONJOUR?

Bonjour, je dispose d'une feuille de calcul de plusieurs centaines de ligne.
Certaines cellules adjacentes de la meme colonnes sont identique.
J'ai besoin qu'elles soient fusionnées.

Y a t il une macro qui puisse faire ça?
J'ai vu un sujet qui le faisait avec word mais n y connsaissant rien je n'arrive pas à l adapter.

voici ce que j ai (marche pas):


Sub Fusion()
Dim plign, nbl, n As Long
Dim cref As Byte
Dim ref, refs As Variant
'1ère ligne de données du tableau
plign = 2
'N° de la colonne contenant la référence client (à modifier éventuellement)
cref = 17
n = 0


'Déterminer la dernière ligne du tableau

nbl = Worksheets(1).Rows.Count


Testval:
If plign > nbl Then
If Sheet.Saved = False Then Sheets.Save
Exit Sub
End If

Sheets.Worksheets(1).Cell(plign, cref).Select
ref = Selection
plign = plign + 1 + n
Sheets.Worksheets(1).Cell(plign, cref).Select
refs = Selection
If ref = refs Then
Sheets.Worksheets(1).Cell(plign, cref).Select
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete
Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.Cells.Merge
n = n + 1
plign = plign - n
GoTo Testval
Else
n = 0
GoTo Testval
End If

End Sub

Merci pour votre aide
A voir également:

5 réponses

Réponse 1 / 5
Demongate
13 sept. 2008 à 02:03
Bienvenue dans mon monde... J'ai le même problème.
0
Réponse 2 / 5
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
13 sept. 2008 à 13:52
Salut,

Cette discussion est ancienne, tu aurais dù ouvrir ta propre discussion pour avoir le maximum de réponses.

Mais enfin,
Il y a quelques jours, j'ai écrit cette macro qui totalise tous les doublons avant de les supprimer et conserver que le cumul.

récupéres ce fichier avec le lien ci-dessous voir si on peut l'adapter à tes besoins et on en reparle

https://www.cjoint.com/?jnnTtoP3pg


Si ton fichier ne contient pas de données confidentielles tu peux le mettre sur le forum avec des annotations de ce que tu souhaites, ce sera plus facile et rapide de le traiter,
avec ce lien
https://www.cjoint.com/

A+
0
ovetoug Messages postés 27 Date d'inscription samedi 1 août 2009 Statut Membre Dernière intervention 5 avril 2016 2
9 mai 2011 à 23:13
Salut Mike,

Je ne sais pas si tu prendras ce message, mais j'aimerais bien avoir le code que tu as écris pour la fusion de cellules identiques.

Je suis entrain de monter un outil de calcul des besoins en matériaux de plusieurs chantier de construction selon un calendrier. J'ai un total par semaines par matériaux à la dernière cellule de la colonne. J'ai plusieurs tableaux un par-dessus l'autre. Chaque tableau sert à calculer les besoins d'un seul matériel. Chaque ligne représente un chantier et chaque colonnes une semaine. Pour chaque semaine, je veux le total que tout mes besoins de ce matériel et ce en incluant chacun de mes chantiers (lignes).

Actuellement, tout est fait manuellement. Disons qu'un chargé de projet à besoin de 3000 contreplaqués au cours des 6 prochaines semaines, il écris 3000 dans la colonne ou son besoin commence et il fusionne jusqu'à la colonne ou le besoin arrête. Comme les formules de somme automatique ne calculent pas les cellules fusionnées, la formule du total par semaine doit également être modifiée manuellement, et ce pour chaque projet et chaque semaines touchée...

Bref, je vais arrêter là, de peur que tu t'égares dans ces explications. Si tout est clair, tant mieux, mais si ça ne l'est pas, dis-moi qu'est ce que je peux te dire pour que tu saisisses ma situation.

Merci!
0
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
9 mai 2011 à 23:35
Salut le forum

Ovetoug, cette discussion est ancienne (Sept 2008), tu devrais ouvrir ta propre discussion
pour avoir le maximum de réponses.

Tu peux joindre un fichier, tu crées un lien à l'aide de
https://www.cjoint.com/ ou de http://cijoint.fr/ et tu
recopies le lien dans ton prochain message.

Mytå
0
Réponse 3 / 5
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
10 mai 2011 à 08:46
Salut le fil,

Tout à fait d'accord avec Myta que je salue, cette question est pertinente et mérite être retraité.
chaque code est écrit en fonction d'un besoin, ouvre ta propre discussion en expliquant ce que tu veux faire, il est souhaité d'avoir à notre disposition un modèle de fichier afin d'y travailler dessus à joindre avec un de ces lien

https://www.cjoint.com/ ou http://www.cijoint.fr/

éventuellement attire notre attention par un petit message privé sur cette ouverture
0
Réponse 4 / 5
ovetoug Messages postés 27 Date d'inscription samedi 1 août 2009 Statut Membre Dernière intervention 5 avril 2016 2
10 mai 2011 à 13:53
d'accord! je suis pas mal nouveau sur le site en tant que personne posant des questions! je ne savais pas "comment ça marche"!


Merci du conseil.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
menndo
24 juil. 2008 à 17:56
stp bien vouloir me rapeller cmnt se fait la fusion des cellules des excel
-1