Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel fusion cellule

fusion cellule

4 réponses
Avatar
jocelyne
Bonjour,
je voudrais realiser un petit programme pour fusionner les cellules
de colonnes
j'ai plusieurs feuilles et classeurs a realiser
j'ai essyé
for x = 1 to nb 'definit la 1ere colonne
for y = 2 to nb 'definit la 2eme colonne
With Selection
cells("x, 1:y,1").mergecells = true
end with
next x
next y
et puis auusi d'autres solutions de type range .... sans succes
alors si vous pouviez
merci jocelyne

--
jocelyne
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
On 5 fév, 09:56, jocelyne wrote:
Bonjour,
je voudrais realiser un petit programme pour fusionner les cellules
de colonnes
j'ai plusieurs feuilles et classeurs a realiser
j'ai essyé
for x = 1 to nb 'definit la 1ere colonne
for y = 2 to nb 'definit la 2eme colonne
With Selection
cells("x, 1:y,1").mergecells = true
end with
next x
next y
et puis auusi d'autres solutions de type range .... sans succes
alors si vous pouviez
merci jocelyne

--
jocelyne


Bonjour,

Est-il vraiment nécessaire de fusionner? (pb + tard pour gérer ces
cellules)
La concaténation est peut être suffisante.

Sub essai()
Application.DisplayAlerts = False
Lignedépart = 2
colonneDépart = 2
n = 4
For lig = Lignedépart To Lignedépart + n
Cells(lig, colonneDépart) = Cells(lig, 2) & Cells(lig,
colonneDépart + 1)
Cells(lig, colonneDépart).Resize(1, 2).Merge
Next lig
End Sub

http://cjoint.com/?cfkyr5SJO0

Cordialement JB

Avatar
jocelyne
jocelyne à dit
On 5 fév, 09:56, jocelyne wrote:
Bonjour,
je voudrais realiser un petit programme pour fusionner les cellules
de colonnes
j'ai plusieurs feuilles et classeurs a realiser
j'ai essyé
for x = 1 to nb 'definit la 1ere colonne
for y = 2 to nb 'definit la 2eme colonne
With Selection
cells("x, 1:y,1").mergecells = true
end with
next x
next y
et puis auusi d'autres solutions de type range .... sans succes
alors si vous pouviez
merci jocelyne

--
jocelyne


Bonjour,

Est-il vraiment nécessaire de fusionner? (pb + tard pour gérer ces
cellules)
La concaténation est peut être suffisante.

Sub essai()
Application.DisplayAlerts = False
Lignedépart = 2
colonneDépart = 2
n = 4
For lig = Lignedépart To Lignedépart + n
Cells(lig, colonneDépart) = Cells(lig, 2) & Cells(lig,
colonneDépart + 1)
Cells(lig, colonneDépart).Resize(1, 2).Merge
Next lig
End Sub

http://cjoint.com/?cfkyr5SJO0

Cordialement JB
merci jb

en fait je veux me retrouver qu'avec une seule plage de cellule
quand il y a une info dans ex a1 b1 est vide ou inversement
donc je prefere la fusion
merci

--
jocelyne


Avatar
jocelyne
jocelyne à dit
merci ca marche aussi comme tu l'as decrit

--
jocelyne
Avatar
jocelyne
Cette solution fonctionne
pouvait on faire plus simple juste pour l'exemple
merci

Bonjour,

Est-il vraiment nécessaire de fusionner? (pb + tard pour gérer ces
cellules)
La concaténation est peut être suffisante.

Sub essai()
Application.DisplayAlerts = False
Lignedépart = 2
colonneDépart = 2
n = 4
For lig = Lignedépart To Lignedépart + n
Cells(lig, colonneDépart) = Cells(lig, 2) & Cells(lig,
colonneDépart + 1)
Cells(lig, colonneDépart).Resize(1, 2).Merge
Next lig
End Sub

http://cjoint.com/?cfkyr5SJO0

Cordialement JB


--
jocelyne