Mise en forme conditionnelle et fusion (défusion) de cellule

[tbft]

Bonjour tout le monde

J'ai un soucis avec un fichier.
C'est un calendrier avec une mise forme conditionnelle qui fonctionne trés bien.
Mais lorsque je dé fuissionne une cellule, les cellules perdent la mise forme conditionnelle!!😡

Y a t'il un moyen simple pour éviter cela???

D'avance merci

 

[tbft]

Re : Mise en forme conditionnelle et fusion (défusion) de cellule

D'accord avec toi.
Mais est il possible de charger en mémoire tout le contenu de l'objet cells(ligne,colonne) plutot que la valeur?????

 

[job75]

Re : Mise en forme conditionnelle et fusion (défusion) de cellule

Re,

Si la plage est nommé MaPlage vous la récupérez en VBA par [MaPlage].

C'est un objet Range avec toutes ses propriétés...

A+

 

[tbft]

Re : Mise en forme conditionnelle et fusion (défusion) de cellule

Re,

Si la plage est nommé MaPlage vous la récupérez en VBA par [MaPlage].

C'est un objet Range avec toutes ses propriétés...

A+

quelle est la difference entre [maplage] et Range(adressedemaplage)?

 

[job75]

Re : Mise en forme conditionnelle et fusion (défusion) de cellule

Re,

quelle est la difference entre [maplage] et Range(adressedemaplage)?

Dans un module standard, Range([Maplage].Address) renverra la plage de la feuille active qui a la même adresse que [MaPlage].

A la place de [MaPlage] on peut utiliser Range("MaPlage") ou mieux Evaluate("MaPlage").

A+

 

[tbft]

Re : Mise en forme conditionnelle et fusion (défusion) de cellule

Je viens de faire un essai simple pour comparer deux métohdes
Set toto = Selection VS toto = Selection

La première permet d'avoir accès à toutes les propriétés contrairement à la deuxième.
Mais, la première est plus lente que la deuxieme.

Y a t'il un moyen de combiné les avantages des deux (sans les incovénients)????

 

[job75]

Re : Mise en forme conditionnelle et fusion (défusion) de cellule

Bonjour tbft,

Pour mieux comprendre les tableaux VBA ou les objets le mieux est de parcourir le forum ou l'aide VBA.

Il est clair que toto = Selection crée un tableau VBA, c'est à dire une matrice, point barre.

A+

 

[tbft]

Re : Mise en forme conditionnelle et fusion (défusion) de cellule

Est-il possible de charger dans un tableau VBA toutes les propiétés de l'objet RANGE sans faire de Set toto = Selection afin de pouvoir travailler dessus sans modifier la selection.....?????

 

[job75]

Re : Mise en forme conditionnelle et fusion (défusion) de cellule

Re,

Toutes les propriétés c'est beaucoup...

On peut créer un tableau vide par ReDim toto(x, y) et ensuite le remplir par ce que l'on veut.

A+

 

[tbft]

Re : Mise en forme conditionnelle et fusion (défusion) de cellule

Je sais mais je suis gourmand....

 

[job75]

Re : Mise en forme conditionnelle et fusion (défusion) de cellule

Re,

Par exemple si l'on veut stocker dans des tableaux les valeurs, les couleurs de fond et les couleurs de police d'une plage :

Dim P As Range, valeur, ub1&, ub2%, CoulInt&(), CoulFont&(), i&, j%
Set P = [MaPlage] 'plage nommée
valeur = P
ub1 = UBound(valeur)
ub2 = UBound(valeur, 2)
ReDim CoulInt(1 To ub1, 1 To ub2) 'base 1
ReDim CoulFont(1 To ub1, 1 To ub2)
For i = 1 To ub1
  For j = 1 To ub2
    CoulInt(i, j) = P(i, j).Interior.Color
    CoulFont(i, j) = P(i, j).Font.Color
  Next
Next

A+

 

[tbft]

Re : Mise en forme conditionnelle et fusion (défusion) de cellule

Méthode éfficace mais un peu barbare!!!

 

[job75]

Re : Mise en forme conditionnelle et fusion (défusion) de cellule

Re,

Barbare 😕 Sûrement pas, tout ça est archi classique.

Et on peut n'utiliser qu'un seul tableau à 3 dimensions :

Dim P As Range, ub1&, ub2%, Propriétés(), i&, j%
Set P = [MaPlage] 'plage nommée
ub1 = P.Rows.Count
ub2 = P.Columns.Count
ReDim Propriétés(1 To ub1, 1 To ub2, 1 To 3) 'base 1
For i = 1 To ub1
  For j = 1 To ub2
    Propriétés(i, j, 1) = P(i, j)
    Propriétés(i, j, 2) = P(i, j).Interior.Color
    Propriétés(i, j, 3) = P(i, j).Font.Color
  Next
Next

La 3ème dimension permet de numéroter les propriétés à étudier.

A+

 

[tbft]

Re : Mise en forme conditionnelle et fusion (défusion) de cellule

Ou alors utiliser un module de classe avec les noms semblables traduit en français (pour avoir de conflit)