Discussion :

[foobar42]

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.

[SfJ5Rpw8]

...
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..

[gootsu]

bbil a entièrement raison
note :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

range(cell & ":" & newCell)

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

[foobar42]

bbil a entièrement raison
note :

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

[foobar42]

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

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

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