programmation VBA

[fridrou]

bonjour,

j'arrive avec un nouveau probleme: mon but fair fusionner des cellules d'une meme colonne 4 par 4.

le probleme que j'ai est étrange*. je procède comme pour une macro simple mais en généralisant le mode opératoire. et la, ca bloque.

la ligne fausse est la suivante :

Range (("A" & i) : ("A" & (i + 3))).Select

merci pour votre aide

 

[Spitnolan08]

Re : programmation VBA

Re,

Essaye :

Range ("A" & i & ":A" & i + 3).Select

Cordialement

 

[fridrou]

Re : programmation VBA

cela ne fonctionne pas

 

[pierrejean]

Re : programmation VBA

bonjour fridrou

Salut Spit

cela devrait fonctionner !!

Envoie un fichier avec ce qui ne fonctionne pas on devrait pouvoir resoudre

 

[Dull]

Re : programmation VBA

Salut fridou, Spitnolan , le Forum

Peut-être parce que l'ami Spitnolan n'a ni les tenants ni les aboutissants de ton Code

Essaye de fournir un extrait de ton fichier de -48ko , sans données confidentielles et Zippé si possible et tu va voir qu'en 2 temps 3 mouvements il (ont) trouvera la solution.

Bonne Journée

EDITION: Salut pierrejean et comme tu le dit ça devrait fonctionner

 

[fridrou]

Re : programmation VBA

voila le programme, il peut s'appliquer sur n'importe quelle feuille de calcul:

Sub fusionner()
For i = 1 To 20
Do Until i = 20
Range("A" & i" : "A" & i + 3 ).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
Selection.Merge

End With
Loop
Next i

End Sub

 

[jp14]

Re : programmation VBA

Bonjour
A essayer

Range("A" & i & ":A" & (i + 3)).Select
au lieu de
Range("A" & i" : "A" & i + 3 ).Select

Solution déjà proposé par Spitnolan08

Supprimer la boucle do et rajouter step 4 à la boucle for next

JP

 

[pierrejean]

Re : programmation VBA

Re

Salut dull
Salut jp

Quelque chose qui fonctionne et fait peut-etre ce que tu souhaites

Sub fusionner()
For i = 1 To 60 Step 4
'Do Until i = 20
Range("A" & i & ":A" & i + 3).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
Selection.Merge
End With
'Loop
Next i
End Sub

Note que la aussi la ligne

Range("A" & i & ":A" & i + 3).Select

t'a été donnée il y a longtemps

Edit: En fait c'est exactement ce que propose JP !!!

 

[fridrou]

Re : programmation VBA

merci, le probleme est maintenant résolu,

thank to you and thank you

 

[Spitnolan08]

Re : programmation VBA

Re,

Je pense qu'il n'y a rien à ajouter...
Sauf que

cela ne fonctionne pas

n'apporte rien au fil...

Mais surtout un passage pour saluer les amis, que je n'ai pas croisés sur un fil de ce forum aujourd'hui ni d'ailleurs depuis très longtemps

A+

Edit : mince, pas vu fridrou!