Fusion de cellule en vba

Résolu/Fermé

lara - 15 juin 2010 à 14:44
lara - 16 juin 2010 à 15:40

Bonjour,
J'aimerais fusionner une plage de cellule pour qu'il ne restre qu'une cellule pour cela j'utilise le code suivant qui ne fait pas totalement ce que je désire:

Application.DisplayAlerts = False
colonneDépart = 1
For i = numligne To numligne + 3
Feuil5.Cells(i, 1) = Feuil5.Cells(i, 2) & Feuil5.Cells(i, colonneDépart + 1)
Feuil5.Cells(i, colonneDépart).Resize(1, 2).Merge
Next

J'ai donc une plage de 4lignes et 2 colonnes aprés exuction du code j'ai donc 4lignes et une colonne ce que j'aimerais ce que j'aimerais c'est que tous ce fusionne pour qu'il ne reste qu'une seule cellule mais je ne sais pas comment m'y prendre.
Merci d'avance,
Bon aprés midi!

A voir également:

Vba fusionner cellules
Excel fusionner deux cellules - Guide
Comment fusionner des pdf sans logiciel - Guide
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Excel additionner des cellules - Guide
Impossible de fusionner des cellules excel ✓ - Forum Excel

2 réponses

Réponse 1 / 2

dobo69 Messages postés 1587 Date d'inscription vendredi 24 juillet 2009 Statut Membre Dernière intervention 30 juin 2013 823
15 juin 2010 à 15:30

bonjour,
parce qu'il faut que tu fusionnes aussi les lignes non ?
essaie avec ca :

Dim texte As String
texte = ""
Application.DisplayAlerts = False
colonneDépart = 1
For j = colonneDépart To 2
For i = numligne To numligne + 3
texte = texte & Feuil2.Cells(i, j)
Next i
Next j
Feuil5.Range(Cells(numligne, colonneDépart), Cells(i - 1, j - 1)).Merge
Feuil5.Cells(numligne, colonneDépart) = texte
End Sub

(récupère d'abord tous les textes des cellules dans 'texte' puis les fusionnent puis colle 'texte' dans la "nouvelle" cellule.. )

lara
15 juin 2010 à 15:39

Ca me met une ereur : La méthode Range de l'objet Worksheet à échoué

dobo69 Messages postés 1587 Date d'inscription vendredi 24 juillet 2009 Statut Membre Dernière intervention 30 juin 2013 823
15 juin 2010 à 15:54

sorry, petite erreur de copier-coller pour texte = texte & feuil5.cells(i,j)

code complet :
Dim texte As String
texte = ""
Application.DisplayAlerts = False
colonneDépart = 1
For j = colonneDépart To 2
For i = numligne To numligne + 3
texte = texte & Feuil5.Cells(i, j)
Next i
Next j
Feuil5.Range(Cells(numligne, colonneDépart), Cells(i - 1, j - 1)).Merge
Feuil5.Cells(numligne, colonneDépart) = texte
End Sub

Ceci dit cela ne devrait pas renvoyer d'erreur de ce type pais plutôt 'objet requis' ou qqchose du genre, mais bon..

Discussions similaires

Excel somme sauf cellules valeur! #N/A

mettre calendrier en liste déroulante excel

Excel, classer par ordre alphabétique ?

suppression espace fin de cellule

concatener des cellules(excel)

Mettre un trait-d'union dans un cellule Excel

Discussions similaires

Newsletters