ERREUR 1004 merge cells
Résolu
pascalou83400
Messages postés
285
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 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
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
11 réponses
-
Bonjour,
Y a quoi dans I ?????? -
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 -
Re,
Pour moi je mets Worksheets(I) pour faire la boucle...
1 Y a pas de boucle!!!!!
2 I sort d'ou ????? -
ha oui il manque cela :
For I = 1 To nbWS - 1
NomFichier = ActiveWorkbook.Worksheets(I).Name -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Re,
Tout a fait Thierry, quel est le rapport entre votre demande du debut et ce dernier code?? -
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 -
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)
-
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. -
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 -
Re,
Je regarde la chose demain matin, car c'est un peu le bor.... Sauf si une autre personne prend la suite -
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
