programmation VBA

Spitnolan08

XLDnaute Barbatruc

• 11 Avril 2008

• #2

Re : programmation VBA

Re,

Essaye :

Code:

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

Cordialement

 

Vote positif 0 Vote négatif

F

fridrou

XLDnaute Nouveau

• 11 Avril 2008

• #3

Re : programmation VBA

cela ne fonctionne pas

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Avril 2008

• #4

Re : programmation VBA

bonjour fridrou

Salut Spit

cela devrait fonctionner !!

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 11 Avril 2008

• #5

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

 

Dernière édition: 11 Avril 2008

Vote positif 0 Vote négatif

F

fridrou

XLDnaute Nouveau

• 11 Avril 2008

• #6

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

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 11 Avril 2008

• #7

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

 

Dernière édition: 11 Avril 2008

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Avril 2008

• #8

Re : programmation VBA

Re

Salut dull
Salut jp

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

Code:

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

 

Vote positif 0 Vote négatif

F

fridrou

XLDnaute Nouveau

• 11 Avril 2008

• #9

Re : programmation VBA

merci, le probleme est maintenant résolu,

thank to you and thank you

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 11 Avril 2008

• #10

Re : programmation VBA

Re,

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

cela ne fonctionne pas

Cliquez pour agrandir...

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!

 

Vote positif 0 Vote négatif