Discussion :

[racoon30]

Bonjour

j'ai un problème de programmation vba sur excel 2010

en fait, j'ai des cellules fusionnées (oui je sais, c'est pas bien pour le vba) et je tente d'y acceder avec des coordonnées relatives Cells(i,j) etc. mais je n'y arrive pas. Je pense (mais j'ai pas trouvé confirmation) que la coordonnée i , j d'une cellule fusionnée est celle de la cellule en haut à gauche (tout mon scrip est basé la dessus en tout cas)

Avant cela, j'avais aussi essayé les offsets sans succès et j'ai abandonné.

étant donné que ce que je veux faire est compliqué à expliquer comme ca, je joint le fichier excel simplifié ou il y a la feuille "HISTORIQUE" (Pwd = "p" : le script a comme action de protéger ou non certaines cellule, d'ou l'importance du pwd pour son exécution) et le script trés commenté qui va avec.

Merci de votre aide soit pour continuer sur cette voie, soit pour me proposer une autre démarche peut etre plus simple.

[mercatog]

Supposons que la plage D5:F7 est fusionnée. Pour la protection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Feuil1").Cells(5, 4).MergeArea.Locked = False

[racoon30]

Merci, c'est juste ce qui me fallait pour avancer. A moins que je me trompe, je trouve dommage que dans l'éditeur le menu contextuel affiche les classes existantes sans faire le tri de ce qui est potentiellement utilisable avec la classe qu'on a écrit avant le "."

Il y avait d'autres erreurs dans mon script mais comme cette étape bloquait je pouvais pas les voir. Après correction, tout marche comme je le souhaitais. encore merci.

Juste pour completer mes connaissances et pour aider les autres, j'ai testé et si les cellules sont effectivement fusionnées, on peut aussi utiliser ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range(.Cells(5, 4),.Cells(7, 4)).Locked

ou ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range(.Cells(5, 4);.Cells(5, 4)).MergeArea.Locked

mais j'ai pas retesté les offset, mais je pense que c'est aussi le .MergeArea. qui manquait dans ma syntaxe.



sinon, rien à voir, mais quand j'ai un plantage du script et que je corrige, je suis souvent obligé de fermer et réouvrir excel pour qu'il prenne en compte les changements. Est ce que c'est normal , ou est qu'il y a un truc que je fais pas pour réinitialiser sans fermer ?