Boucle VBA Matrice
Hello !
Voila je suis débutant en VBA et j'ai besoin d'un petit coup de pouce car je bloque sur mon code
J'aimerai réaliser une boucle qui me permettrai de réaliser une succession d'actions, voici mon code:
le code ci-dessus remplit correctement les cases sur Excel mais sans boucle, mon code risquerait d'être très très long lol
Savez-vous comment je pourrai optimiser cela ?
Merci d'avance de votre aide !
Bonjour,
Les .select sont très chronophage.
Est-ce que tu pourrais nous donner le code lui-même ... pas seulement une image ?
Encore mieux, un bout de fichier afin de pouvoir tester ...
ric
Salut ric !
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
Bonjour, ... Salut Ric,
tu peux aussi faire comme cela :
Sheets(1).Range("A1").CurrentRegion.Select 'là où ton tableau commmence
For Each cell In Selection
If cell.Value > 0 Then
cell.Interior.Color = RGB(174, 240, 194) 'couleurs à adapter
Else: cell.Interior.Color = RGB(100, 0, 194) 'couleurs à adapter
End If
NextBonjour à tous,
@Axel-padol ... je composerai pas un fichier pour répondre à ta demande ... à toi de voir ...
ric