Fusionner des mêmes cellules en ligne
Résolu/Fermé
Cabrina
Messages postés
240
Date d'inscription
samedi 5 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
-
Modifié par pijaku le 26/01/2017 à 10:22
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 27 janv. 2017 à 14:02
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 27 janv. 2017 à 14:02
A voir également:
- Fusionner des mêmes cellules en ligne
- Comment fusionner des pdf - Guide
- Impossible de fusionner des cellules excel ✓ - Forum Excel
- Comment ne pas apparaître en ligne sur whatsapp - Guide
- Aller à la ligne dans une cellule excel - Guide
- Lidl vente en ligne en france ✓ - Forum Consommation et internet
3 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
26 janv. 2017 à 10:23
26 janv. 2017 à 10:23
Bonjour,
Quel est l'intérêt de fusionner des cellules?
Quel est l'intérêt de fusionner des cellules?
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
Modifié par pijaku le 26/01/2017 à 13:08
Modifié par pijaku le 26/01/2017 à 13:08
Tu n'as pas mis de feuille "Planning", donc dur dur.
Essaye juste ceci :
Essaye d'abord sur une copie de ton fichier, bien sur...
Adapte la plage, et regarde le résultat, sans Merge...
Avant, j'arrivais jamais à finir mes phrases... mais maintenant je
Essaye juste ceci :
Sub fusion()
Dim Lig As Long
Dim co As Long
Dim nbco As Long
Dim plage As Range
Set plage = sheets"(Planning").Range("C22:FQ52") 'A ADAPTER !!!
Application.DisplayAlerts = False
With plage
nbco = .Columns.Count
For Lig = .Cells(1, 1).Row To .Cells(1, 1).Row + .Rows.Count - 1
For co = nbco To 2 Step -1
If .Cells(Lig, co) = .Cells(Lig, co - 1) Then
.Range(.Cells(Lig, co), .Cells(Lig, co - 1)).Interior.ColorIndex = 3
End If
Next co
Next Lig
End With
Application.DisplayAlerts = True
End Sub
Essaye d'abord sur une copie de ton fichier, bien sur...
Adapte la plage, et regarde le résultat, sans Merge...
Avant, j'arrivais jamais à finir mes phrases... mais maintenant je
Cabrina
Messages postés
240
Date d'inscription
samedi 5 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
2
26 janv. 2017 à 16:29
26 janv. 2017 à 16:29
En adaptant les plages cela ne donne pas ce que mon chef espère était donné que cela me fait une ligne rouge qui va de K19 à VM19
En revanche celle que j’ai mise en premier oui donc je reste sur celle que j’ai trouvée dans le forum par contre le système de couleur n’est pas mal…
Il faut de je mette dans la ligne
PS : Y a-t-il y moyen de le mettre à la suite comme ce qu’il avait fait en bleu ? quand la première fusion et fini je passe à la ligne du dessous ?
Je m’explique si ma première fusion commence en F7 et se termine en K7, je voudrais que la deuxième fusion parte de L8 jusqu'en T8 et ainsi de suite.
En revanche celle que j’ai mise en premier oui donc je reste sur celle que j’ai trouvée dans le forum par contre le système de couleur n’est pas mal…
Il faut de je mette dans la ligne
Interior. Color Index = 3
PS : Y a-t-il y moyen de le mettre à la suite comme ce qu’il avait fait en bleu ? quand la première fusion et fini je passe à la ligne du dessous ?
Je m’explique si ma première fusion commence en F7 et se termine en K7, je voudrais que la deuxième fusion parte de L8 jusqu'en T8 et ainsi de suite.
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
>
Cabrina
Messages postés
240
Date d'inscription
samedi 5 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
26 janv. 2017 à 16:49
26 janv. 2017 à 16:49
Et si, par hasard, je pouvais voir à quoi ressemble une feuille planning...
Cabrina
Messages postés
240
Date d'inscription
samedi 5 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
2
>
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
27 janv. 2017 à 08:55
27 janv. 2017 à 08:55
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
>
Cabrina
Messages postés
240
Date d'inscription
samedi 5 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
27 janv. 2017 à 09:32
27 janv. 2017 à 09:32
Bonjour,
On ne se comprends pas.
J'ai bien vu quel résultat tu souhaites obtenir, mais je ne connais pas l'état de tes données avant ce traitement. Tes données de la feuille planning, avant ce traitement de Merge sont sur une seule ligne? Plusieurs lignes? etc...
On ne se comprends pas.
J'ai bien vu quel résultat tu souhaites obtenir, mais je ne connais pas l'état de tes données avant ce traitement. Tes données de la feuille planning, avant ce traitement de Merge sont sur une seule ligne? Plusieurs lignes? etc...
Cabrina
Messages postés
240
Date d'inscription
samedi 5 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
2
>
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
27 janv. 2017 à 09:49
27 janv. 2017 à 09:49
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
Modifié par pijaku le 27/01/2017 à 10:40
Modifié par pijaku le 27/01/2017 à 10:40
Voilà, tout simplement :
J'ai viré tes DisplayAlert inutiles, et mis en commentaires deux lignes. Si ton chef tient au bleu essaye les l'une après l'autre...
Ta plage initiale doit être en ligne 7, à partir de la colonne F dans la feuille Planning. Dans le cas contraire, il faudra adapter ce que j'ai indiqué.
Avant, j'arrivais jamais à finir mes phrases... mais maintenant je
Sub fusion3()
Dim Wsh As Worksheet
Dim Lig As Long
Dim PremCol As Long
Dim co As Long
Dim nbco As Long
'A ADAPTER----------------------------------------------
Lig = 7 'A ADAPTER, ligne ou sont les données
PremCol = 6 'A ADAPTER, première colonne
Set Wsh = Worksheets("Planning") ' A ADAPTER Feuille concernée
'TRAITEMENT----------------------------------------------
Application.ScreenUpdating = False
nbco = Rows(Lig).Find("*", , , , xlByRows, xlPrevious).Column
With Wsh
For co = PremCol To nbco - 1
If .Cells(7, co) = .Cells(7, co + 1) Then
.Range(.Cells(Lig, co), .Cells(Lig, co + 1)).Interior.ColorIndex = 3
'.Range(.Cells(Lig, co), .Cells(Lig, co + 1)).Interior.ThemeColor = xlThemeColorAccent1
'.Range(.Cells(Lig, co), .Cells(Lig, co + 1)).Interior.ThemeColor = xlThemeColorAccent5
Else
Lig = Lig + 1
.Cells(Lig, co + 1).Value = .Cells(7, co + 1).Value
End If
Next co
End With
Application.ScreenUpdating = True
End Sub
J'ai viré tes DisplayAlert inutiles, et mis en commentaires deux lignes. Si ton chef tient au bleu essaye les l'une après l'autre...
Ta plage initiale doit être en ligne 7, à partir de la colonne F dans la feuille Planning. Dans le cas contraire, il faudra adapter ce que j'ai indiqué.
Avant, j'arrivais jamais à finir mes phrases... mais maintenant je
Cabrina
Messages postés
240
Date d'inscription
samedi 5 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
2
27 janv. 2017 à 12:25
27 janv. 2017 à 12:25
Super, par contre il y a toujours ma ligne 7 qui reste copier, n’y a-t-il pas un moyen quand j’actionne ma macro de supprimer ce qui n’est pas en couleur ?
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
>
Cabrina
Messages postés
240
Date d'inscription
samedi 5 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
27 janv. 2017 à 12:37
27 janv. 2017 à 12:37
As-tu, au moins, compris le mécanisme du code donné précédemment?
Voici :
Voici :
Sub fusion4()
Dim Wsh As Worksheet
Dim Lig As Long
Dim PremCol As Long
Dim co As Long
Dim nbco As Long
Dim LigFin As Long
'A ADAPTER----------------------------------------------
Lig = 7 'A ADAPTER, ligne ou sont les données
LigFin = Lig
PremCol = 6 'A ADAPTER, première colonne
Set Wsh = Worksheets("Planning") ' A ADAPTER Feuille concernée
'TRAITEMENT----------------------------------------------
Application.ScreenUpdating = False
nbco = Rows(Lig).Find("*", , , , xlByRows, xlPrevious).Column
With Wsh
For co = PremCol To nbco - 1
If .Cells(7, co) = .Cells(7, co + 1) Then
.Range(.Cells(Lig, co), .Cells(Lig, co + 1)).Interior.ColorIndex = 3
'.Range(.Cells(Lig, co), .Cells(Lig, co + 1)).Interior.ThemeColor = xlThemeColorAccent1
'.Range(.Cells(Lig, co), .Cells(Lig, co + 1)).Interior.ThemeColor = xlThemeColorAccent5
Else
Lig = Lig + 1
.Cells(Lig, co + 1).Value = .Cells(7, co + 1).Value
End If
Next co
.Range(.Cells(LigFin, PremCol + 1), .Cells(LigFin, nbco)).ClearContents
End With
Application.ScreenUpdating = True
End Sub
Cabrina
Messages postés
240
Date d'inscription
samedi 5 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
2
>
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
27 janv. 2017 à 12:43
27 janv. 2017 à 12:43
Pas vraiment car je ne suis pas du tout du "milieu" mais je dois dire que j'aimerais beaucoup apprendre car cela me serait très utile car je galère pas mal.
Existe-t-il des formations ou autres?
Le forum est un outil précieux mais quand on ne sait pas interprété les données par facile d'apprendre le langage....
En tout cas merci d'être là et de n'aider dans les requêtes.
Existe-t-il des formations ou autres?
Le forum est un outil précieux mais quand on ne sait pas interprété les données par facile d'apprendre le langage....
En tout cas merci d'être là et de n'aider dans les requêtes.
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
>
Cabrina
Messages postés
240
Date d'inscription
samedi 5 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
27 janv. 2017 à 12:51
27 janv. 2017 à 12:51
Sujet résolu?
Cabrina
Messages postés
240
Date d'inscription
samedi 5 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
2
>
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
27 janv. 2017 à 13:42
27 janv. 2017 à 13:42
Oui sujet résolu.
Mais comment peut-on apprendre à "écrire le langage macro"?
Mais comment peut-on apprendre à "écrire le langage macro"?
26 janv. 2017 à 10:44
Je veux fusionner des cellules pour faire un planning avez-vous une autre idée pour ne pas avoir une répétition de la même référence ?
26 janv. 2017 à 10:54
Sans avoir un exemple concret, difficile de réponde.
Supprimer les doublons?
26 janv. 2017 à 12:42
Je voudrais que mon résultat final soit celui en bleu, pour ce faire une ne voie pas comment faire sans passée par un fusion de mes cellules ?
https://www.cjoint.com/c/GAAlPoq7bFt