Plantage Excel à cause macro

Bonjour le forum

J'ai placé en pièce jointe un fichier avec un qui me plante excel, et lorsque je récupère mon fichier, le résultat attendu est bon

je ne comprends pas

Si une âme charitable voulait bien y jeter un oeil, svp

D'avance je vous remercie pour votre aide et votre disponibilité

Bonjour,

Excel plante avec ta macro, car tu as une boucle sans fin ....

Si j'ai bien compris ce que tu veux faire...

Un essai ...

Sub Test_BoucleNum()
Dim x As Integer
Dim Z As Integer

   x = 5
    For Z = 1 To 28 Step 2
        Cells(Z + x, 3) = Z
    Next Z
End Sub

ric

Salut Eole,

Salut Ric,

je n'ai pas le don manifeste de voyance de Ric mais tu bloques ta boucle à 6 d'où, boucle sans fin.

For x = 1 To 28 Step 2

x = 6

Cells(x, 3) = x

Next x

Confirme la version de Ric ou explique ton projet !

A+

Bonsoir le forum

Bonsoir ric et curulis57

Merci pour votre aide et pour votre disponibilité

C'est presque ça.

En colonne C , dans l'onglet ARM il y a 28 cellules fusionnées sur 2 lignes à chaque fois

Ce que je cherche à faire c'est, numéroter ces 28 cellules de 1 à 28.

Après je fusionnerai les cellules de la colonnes D par 6 lignes et je reproduirai en colonne E ce qui se trouve sur les lignes de 6 à 11

Bonjour à tous,

Un essai ...

Mais les lignes fusionnées, c'est triste ...

Sub Test_BoucleNum()
Dim x As Integer
Dim Z As Integer
Dim Y As Integer
   Y = 1
   x = 5

    For Z = 1 To 28 Step 2
        Cells(Z + x, 3) = Y
        Y = Y + 1
    Next Z
End Sub

ric

Salut Eole,

Salut Ric,

Très emm... les cellules fusionnées, parfois, oui...

Sub Test_BoucleNum()
'
For x = 2 To 56 Step 2
    If (4 + x) Mod 2 = 0 Then Range("C" & 4 + x & ":C" & (4 + x) + 1).Merge
    Cells(4 + x, 3) = x / 2
    If (4 + x) Mod 6 = 0 Then Range("D" & 4 + x & ":D" & (4 + x) + 5).Merge
Next
'
End Sub

Projet pas clair, pas complet... Dur te t'aider efficacement!

A+

Merci beaucoup pour votre aide

les deux codes me vont

ric au lieu de :

For Z = 1 To 28 Step 2

j'ai noté:

For Z = 1 To 56 Step 2

et du coup cela me rempli mes 28 cellules fusionnées

Curulis57 c'est pile poil nickel

Je reconnais que je vous ai mal orienté dans le sens ou on pouvait d'abord numéroter les cellules une sur deux puis les fusionner

merci beaucoup à vous deux