ERREUR 1004 merge cells Résolu/Fermé

Question

Bonjour, 

Je rencontre une erreur sur ce code, je suis dans une boucle et j'ai le message d'erreur 1004 impossible de définir la propriété MergeCells de la classe Range et je ne sais pas d'ou cela vient ?

Merci pour votre aide.

 With Worksheets(I)
           .Range("L7:AI7").MergeCells = True
           .Range("L8:AI8").MergeCells = True
           .Range("L9:AI9").MergeCells = True
           .Range("K10:AI10").MergeCells = True
           .Range("L11:O11").MergeCells = True
           .Range("Q11:AI11").MergeCells = True
           .Range("L12:AI12").MergeCells = True
           .Range("K13:L13").MergeCells = True
           .Range("M13:AI13").MergeCells = True
           
           
     End With

Configuration: Windows / Chrome 62.0.3202.94

f894009 · Answer

Bonjour,

Y a quoi dans I ??????

pascalou83400 · Answer

il y a ma boucle, bon je te cache pas que je suis novice, je remplie cette boucle comme je peux.

Pour moi je mets Worksheets(I) pour faire la boucle...


' Variables globales
    Dim nbWS As Integer
    Dim totalRows As Integer
    Dim totalCols As Integer
    Dim CheminFichier As String
    Dim NomFichier As String

nbWS = ActiveWorkbook.Worksheets.Count

ActiveWorkbook.Worksheets(I).Activate
        NomFichier = ActiveWorkbook.Worksheets(I).Name
        
        ' Nombre de  lignes et colonnes utilisés dynamique
        totalRows = ActiveWorkbook.Worksheets(I).UsedRange.Rows.Count
        totalCols = ActiveWorkbook.Worksheets(I).UsedRange.Columns.Count
        
        If Cells(totalRows, 2) = "" Then
            Cells(totalRows, 2).EntireRow.Delete
        End If
        
        totalRows = ActiveWorkbookCUsedRange.Rows.Count

f894009 · Answer

Re,

Pour moi je mets Worksheets(I) pour faire la boucle... 
1 Y a pas de boucle!!!!!
2 I sort d'ou ?????

pascalou83400 · Answer

ha oui il manque cela :

 For I = 1 To nbWS - 1
    
        NomFichier = ActiveWorkbook.Worksheets(I).Name

f894009 · Answer

Re,

Tout a fait Thierry, quel est le rapport entre votre demande du debut et ce dernier code??

pascalou83400 · Answer

ci-joint le fichier, je passe par le rectangle bleu dans FV tarif T3 la 1ere feuille.

https://www.cjoint.com/c/GKyoVNESdoX

Merci pour ton aide.

Pascal

f894009 · Answer

Re,

rectangle bleu dans FV tarif T3
Oui, mais je ne vois pas de rectangle bleu ou autre

codes a voir: 
Sub Rognerunrectangleavecuncoindiagonal3_Cliquer()
et  sub makeDispo (I) je suppose !!!!!!!

Suite:

dans Sub Rognerunrectangleavecuncoindiagonal3_Cliquer()

Call makeDispo(I) au lieu de  makeDispo (I)

pascalou83400 · Answer

ha zut c'est vrai il a buggé, j'en fais un autre...

Oui c'est bien sur Sub Rognerunrectangleavecuncoindiagonal3_Cliquer() que je clique.

Ce code c'est ma boucle avec toutes mes macros.

pascalou83400 · Answer

bon voila un fichier propre, c'est la totalité de mon code que j'essaie de faire fonctionner...

Je ne sais pas si tu peux m'aider, mais je te remercie déjà pour ta patience.

Je ne veux pas abuser, si cela est trop prise de tête je comprendrais, j'ai fait un alien et je ne m'en sors pas...

J'ai l'impression que je fais des boucles dans la boucle ?

https://www.cjoint.com/c/GKyrxsnJywX

f894009 · Answer

Re,

Je regarde la chose demain matin, car c'est un peu le bor.... Sauf si une autre personne prend la suite

f894009 · Answer

Bonjour,

Impossible de fusionner des cellules dans un tableau

https://support.microsoft.com/fr-fr/office/fusionner-des-cellules-et-annuler-la-fusion-de-cellules-5cbd15d5-9375-4540-907f-c673a93fcedf?ui=fr-fr&rs=fr-fr&ad=fr

ERREUR 1004 merge cells

11 réponses

Discussions similaires