ERREUR 1004 merge cells

Résolu
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
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

A voir également:

11 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Y a quoi dans I ??????
0
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Pour moi je mets Worksheets(I) pour faire la boucle...
1 Y a pas de boucle!!!!!
2 I sort d'ou ?????
0
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention  
 
ha oui il manque cela :

For I = 1 To nbWS - 1

NomFichier = ActiveWorkbook.Worksheets(I).Name
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Tout a fait Thierry, quel est le rapport entre votre demande du debut et ce dernier code??
0
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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)
0
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention  
 
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.
0
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Je regarde la chose demain matin, car c'est un peu le bor.... Sauf si une autre personne prend la suite
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
0