Fusionner une plage entre deux variables
farreneit
Messages postés
318
Statut
Membre
-
farreneit Messages postés 318 Statut Membre -
farreneit Messages postés 318 Statut Membre -
Bonjour,
J'essaye de fusionner l'espace situé entre deux variables, mais en vain ..
Voilà ma démarche :
J'obtiens l'erreur suivante :
Run-time error '1004' :
Application-defined or object-defined error.
Merci d'avance pour votre aide !
Bonne journée !
J'essaye de fusionner l'espace situé entre deux variables, mais en vain ..
Voilà ma démarche :
Dim mergeA As Range, mergeB As Range
Sheets("References crees").Select
Set mergeA = Sheets("References crees").[E4]
Set mergeB = Sheets("References crees").[E10]
Range(mergeA, mergeB).Merge
J'obtiens l'erreur suivante :
Run-time error '1004' :
Application-defined or object-defined error.
Merci d'avance pour votre aide !
Bonne journée !
A voir également:
- Fusionner une plage entre deux variables
- Nombre de jours entre deux dates excel - Guide
- Fusionner deux cellules excel - Guide
- Fusionner deux tableaux excel - Guide
- Comment fusionner des pdf sans logiciel - Guide
- Deux ecran pc - Guide
2 réponses
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 585
bonjour,
A quelle ligne as-tu cette erreur?
Peux-tu fusionner sans problème à la main?
A quelle ligne as-tu cette erreur?
Peux-tu fusionner sans problème à la main?
Bonjour,
comme ceci:
comme ceci:
Sheets("References crees").Range("E4", "E10").MergeCells = True
Comme ça cela fonctionne, merci.
Malheureusement cela bloque à un autre niveau.
Mes variables dépendent en fait d'autres variables :
J'obtiens le code d'erreur :
Unable to set the MergeCells property of the Range Class ...
Merci encore
Malheureusement cela bloque à un autre niveau.
Mes variables dépendent en fait d'autres variables :
Dim mergeA As Range, mergeB As Range
Dim Cible As Range
Sheets("References crees").Select
Set Cible = Sheets("References crees").[E4]
Set mergeA = Cible.Offset(, 1)
Set mergeB = Cible.Offset(5)
Range(mergeA, mergeB).Merge
J'obtiens le code d'erreur :
Unable to set the MergeCells property of the Range Class ...
Merci encore
J'ai l'erreur au niveau du .Merge
Oui aucun souci pour fusionner à la main ou pour fusionner en remplaçant les variables par une intervalle simple "E4:E10" ...
Impossible de partager le fichier malheureusement (données sensibles) ..
J'ai donc recréé le fichier et cela fonctionnait ^^
A priori l'erreur venait simplement d'un blocage de la feuille (j'ai un .unprotect au début et un .protect en fin de macro).
Par contre chose bizarre, lorsque la feuille est bloquée et que je lance la macro, cela fonctionne mais très lentement.
Tandis que lorsque je débloque manuellement la feuille et que je lance la macro, celle ci fonctionne très rapidement ...
Y-a-t'il une explication et un remède ?
Merci !
https://wetransfer.com/downloads/bb65f8a27c9b6ee7c4559ed23298076120211124150633/6bd474
Je te laisse essayer une première fois en enlevant la protection de la feuille "references crees" manuellement.
Puis réessayer derrière.
Aussi, le total (TT) ne s'affiche pas ...
Je vois aussi que le fichier a un lien vers un autre fichier.