XL pour MAC Boucle VBA Matrice

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Juillet 2020

• #2

Bonjour Makovitch,
Un jpeg c'est pas génial pour du code, utilisez les balises </> c'est plus lisible, et surtout permet un copié collé.
Auriez vous un fichier test ? Ça éviterait de reconstruire un fichier ... et de se retaper le code. 🙂

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 16 Juillet 2020

• #3

Bonjour @Makovitch Welcome to XLD ! , @sylvanu , le Forum

J'ai pris la liberté de simuler un fichier, je pense que c'est ce que veut notre ami Makovvitch (mais c'est vrai qu'avec un p'ti fichier exemple ce serait plus simple...)
Deux macros en Loop, une basic et une plus approfondie ...

Bonne Journée
@+Thierry

 

Pièces jointes

• XLD_Makovitch_Matrix_2_Dimensions.xlsm

  21 KB · Affichages: 11

Vote positif 0 Vote négatif

M

Makovitch

XLDnaute Nouveau

• 16 Juillet 2020

• #4

Bonjour sylvanu et Thierry,
merci de votre précieuse aide j'ai pu réussir à coder ce que je voulais !
Néanmoins savez-vous comment je peux colorer en rouge toutes les cellules de la plage contenant une valeur supérieur à 0 ?
merci encore 🙂

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Juillet 2020

• #5

Bonjour,
C'est déjà fait dans le fichier de Thierry, avec une MFC.

 

Vote positif 0 Vote négatif

M

Makovitch

XLDnaute Nouveau

• 16 Juillet 2020

• #6

Oui j'ai pu constater en ouvrant mais il me faudrait un code via car les données vont s'actualiser et j'aimerai que le fond des cellules qui sont supérieurs à 0 deviennent rouge

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Juillet 2020

• #7

Une MFC est automatique et ce se remet à jour en permanence.
Dans le fichier de Thierry, mettez 1 en E10 la cellule se colore automatiquement.
Pour modifier la couleur vous cliquez une cellule puis faites Acceuil/Mise en Forme Conditionnelle/gérer les règles/Modifier la règle/Format.

Sinon en VBA vous remplacez la ligne du fichier de Thierry

VB:

WSSource.Cells(SR, SC).Value = CellSourceR.Offset(0, -1).Value

par

Code:

            WSSource.Cells(SR, SC).Value = CellSourceR.Offset(0, -1).Value ' Valeur'
            WSSource.Cells(SR, SC).Interior.Color = RGB(255, 0, 0)         ' Fond rouge'
            WSSource.Cells(SR, SC).Font.Color = RGB(0, 0, 0)               ' Police noire'
            WSSource.Cells(SR, SC).Font.Bold = True                        ' En gras'

 

Vote positif 0 Vote négatif

M

Makovitch

XLDnaute Nouveau

• 16 Juillet 2020

• #8

j'ai pu résoudre ce problème mais je bloque sur un autre désormais lol..

j'aimerais mettre en rouge les cellules dont les valeurs sont supérieurs à 0 au dessus de la diagonale et en vert celles qui sont supérieurs à 0 mais situés en dessous de la diagonale, voici mon code :

i = 4

j = Range("C3:R19").Rows.Count

For i = 4 To j

If Cells(i, i - 1).Value > "0" Then

Cells(i, i - 1).Interior.Color = vbGreen

End If

Next I

Mon code fonctionne bien mais il ne prend pas en compte la cellule active ci-dessous

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Juillet 2020

• #9

Cells(i, i - 1) va définir la diagonale non tout ce qui est sous la diagonale.
Pour ça il vous faut deux variables Ligne Colonne et vérifier si le N° ligne est plus grand que le N° de colonne. ( cela suppose une matrice carré )

 

Vote positif 0 Vote négatif

M

Makovitch

XLDnaute Nouveau

• 16 Juillet 2020

• #10

ah je vois merci !
dans mon cas j'ai 17 lignes pour 17 colonnes je dois remplacer i par ces variables dans une boucle ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Juillet 2020

• #11

Vous faites deux boucles avec par ex L pour les lignes et C pour les colonnes comme variables.
Si L>C alors vous êtes sous la diagonale, Sinon vous êtes au dessus.
( Si ça commence en 1,1 bien sur, sinon il faut faire le décalage. )

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 16 Juillet 2020

• #12

Re Bonjour @Makovitch , @sylvanu, le Forum

Pas besoin de faire un autre loop, il y a tous les éléments déjà incorporés pour faire ceci in "one shot" dans les codes proposés précédemment.

Voici une version complémemtaire.

Bon aprèm
@+Thierry

 

Pièces jointes

• XLD_Makovitch_Matrix_2_Dimensions_With_Color_GreenRed.xlsm

  24.8 KB · Affichages: 3

Vote positif 0 Vote négatif

M

Makovitch

XLDnaute Nouveau

• 17 Juillet 2020

• #13

Bonjour Thierry et sylvanu,
J’ai pu résoudre mon problème grâce à votre aide, merci mille fois !

 

Vote positif 0 Vote négatif