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

tbft

XLDnaute Accro

• 7 Janvier 2014

• #16

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?????

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Janvier 2014

• #17

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+

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 7 Janvier 2014

• #18

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

job75 à dit:

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+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Janvier 2014

• #19

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

Re,

tbft à dit:

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

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 8 Janvier 2014

• #20

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)????

 

Pièces jointes

• Bug mise en forme conditionnelle.xls

  163.5 KB · Affichages: 65
• Bug mise en forme conditionnelle.xls

  163.5 KB · Affichages: 53
• Bug mise en forme conditionnelle.xls

  163.5 KB · Affichages: 47

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Janvier 2014

• #21

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+

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 8 Janvier 2014

• #22

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.....?????

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Janvier 2014

• #23

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+

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 8 Janvier 2014

• #24

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

Je sais mais je suis gourmand....

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Janvier 2014

• #25

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 :

Code:

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+

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 8 Janvier 2014

• #26

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

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Janvier 2014

• #27

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 :

Code:

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+

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 8 Janvier 2014

• #28

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)

 

Vote positif 0 Vote négatif