Sujet Précédent Sujet Suivant

ERREUR 1004 merge cells

Résolu/Fermé
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022 - 24 nov. 2017 à 11:12
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 25 nov. 2017 à 13:19
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

Réponse 1 / 11
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 24 nov. 2017 à 12:28
Bonjour,

Y a quoi dans I ??????
0
Réponse 2 / 11
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
24 nov. 2017 à 15:06
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
Réponse 3 / 11
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 nov. 2017 à 15:21
Re,

Pour moi je mets Worksheets(I) pour faire la boucle...
1 Y a pas de boucle!!!!!
2 I sort d'ou ?????
0
Réponse 4 / 11
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
24 nov. 2017 à 15:27
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
Réponse 5 / 11
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 nov. 2017 à 15:36
Re,

Tout a fait Thierry, quel est le rapport entre votre demande du debut et ce dernier code??
0
Réponse 6 / 11
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
24 nov. 2017 à 15:51
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
Réponse 7 / 11
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 24 nov. 2017 à 16:18
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
Réponse 8 / 11
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
24 nov. 2017 à 17:17
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
Réponse 9 / 11
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
24 nov. 2017 à 18:27
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
Réponse 10 / 11
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 nov. 2017 à 19:21
Re,

Je regarde la chose demain matin, car c'est un peu le bor.... Sauf si une autre personne prend la suite
0
Réponse 11 / 11
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
25 nov. 2017 à 13:19
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
0

Discussions similaires

VBA erreur 1004
séverine -
Floroan -

9 réponses
Instagram "Désolé, une erreur s'est produite"
bananamilk -
cedric.masdeb -

60 réponses
MACRO : Problème " Erreur d'exécution '1004' "
Awazagaga -
Awazagaga -

6 réponses
Erreur vidéo inconnue sur le Freebox Player
mouhaaV2.0 -
LH -

59 réponses
Erreur d'éxecution 1004
Damien -
Leclaudefranc -

14 réponses