[VBA-E] Fusion de cellules

Bonjour a tous,

Je vous explique un peu mon problème. En gros toutes j'ai une boucle et dedans il faut que je fusionne les cellules 5 par 5.

Pour cela j'ai utilisé Range("A1:A6").Merge. Mais le probleme est que moi je stocke les cellules ou je me trouve dans des variables.En gros j'ai :
cell = "B"
newCell = "C"

Le probleme c'est que si je fais range(cell:newCell) j'ai un probleme o niveau des guillemets. Genre ca me donne Range("B":"C").Merge et donc la forcement ca plante.
Sauriez vous comment résoudre ce probleme ou sinon une technique pour fusionner 5 cellules par 5 cellules dans ma boucle.

Merci a vous.

Citation:

---

Envoyé par foobar42

...
Pour cela j'ai utilisé Range("A1:A6").Merge. Mais le probleme est que moi je stocke les cellules ou je me trouve dans des variables.En gros j'ai :
cell = "B"
newCell = "C"....

---

"B" et "C" ne sont pas à priori des cellules..? montre nous plutôt la ligne de code ou tu "stocke" ces cellules..

bbil a entièrement raison
note :

Citation:

---

Code:

---

1 2 3

cell = "B" newCell = "C" range(cell:newCell) 'erreur

---

---

si tu veut fusionner deux colonnes c'est presque ça, il te manque :

Code:

---

range(cell & ":" & newCell)

---

mais comme tu veux 5 cellules par 5 cellules n'oublie pas les lignes ;)

Citation:

---

Envoyé par gootsu

bbil a entièrement raison
note :

si tu veut fusionner deux colonnes c'est presque ça, il te manque :

Code:

---

range(cell & ":" & newCell)

---

mais comme tu veux 5 cellules par 5 cellules n'oublie pas les lignes ;)

---

Ah ué c'est pas bete ca je sais meme pas comment je n'y ai pas pensé. Par contre je me demandé qqchose. Si je fais avec ton code gootsu ca ne va pas donner un truc du genre par hasard :
Range("B5" : "G5") alors qu'il faut Range("B5:G5")
Sinon voila un peu la tete de mon code ou je dois résoudre ce problème

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Dim cell As String Dim cell2 As String Dim cell3 As String Dim pos As String   Dim line As Integer Dim nbRec As Integer Dim x As Integer   cell = "B" line = 11 nbRec = 0 x = 0   Application.GoTo Reference:=ActiveSheet.Range("B6")   While IsEmpty(Range(cell & 6)) = False   nbRec = 0 While x < 5 nbRec = Range(cell & 6).Value + nbRec 'C'est un compteur cell = updateCell(cell) 'Change de cellule. En gros si je suis a "B" je passe a "C" x = x + 1 Wend

---

Donc la il faut que je fusionne les 5 cellules que je viens de parcourir.

J'attend vos propositions que je noterai pour tester dem1 car c'est pour le boulot mais le prob c'est que je n'ai pas internet la bas :(

Merci

Citation:

---

Envoyé par foobar42

Si je fais avec ton code gootsu ca ne va pas donner un truc du genre par hasard :
Range("B5" : "G5") alors qu'il faut Range("B5:G5")

---

Tu ne veux pas qu'on teste pour toi par hasard ? Parce que si oui, tu demandes :mouarf:

Citation:

---

Envoyé par ouskel'n'or

Tu ne veux pas qu'on teste pour toi par hasard ? Parce que si oui, tu demandes :mouarf:

---

Lol pourquoi pas :p Nan mais bon je demandé car on sait jamais que j'ai raison. Le probleme c'est que a partir du moment ou j'arrive au taff j'ai plus le net donc si ca marche pas je me retrouve bai.. :)
J'en ai déja passé du temps a chercher c'est d'ailleurs pour ca que je suis venu chercher de l'aide ici :D

Mais je vais tester demain et si ca marche pas ben tant pis pour moi je reviendrai ici voir si vous avez de nouvelles idées :mouarf:

Citation:

---

ton code gootsu ca ne va pas donner un truc du genre par hasard :
Range("B5" : "G5") alors qu'il faut Range("B5:G5")

---

justement non
parce que ton "cell" est une variable et qu'elle contient une chaine donc il faut concaténer tes variable avec la chaine ":" ainsi tu obtiens

Code:

---

Range("B5:G5")

---

il faut tapez

Code:

---

Range(ta_variable & ":" & ton_autre_variable)

---

=> Range("B5:G5")
(ta_variable = "B5" et ton_autre_variable = "G5")

Voila! sinon je voix pas qu'es que tu veux de plus!;)

Oui oui ca marche impeccable merci gootsu.
Sujet résolu :)