Discussion :

[zeralium]

Bonjour,

J'ai un probleme sur une MFC, voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Integer
a = 2
While Not Cells(a, 1) = ""
    If Cells(a, 12) > 0 Then
    Range(Cells(a, 1), Cells(a, 14)).Selection.Font.ColorIndex = 3
    Else
    a = a + 1
    End If
Wend
 
End Sub

J'ai un message d'erreur 438, "Proprieté ou methode non gérée par cet objet".

Merci

[zyhack]

bonsoir

sur la ligne

Code :

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

Range(Cells(a, 1), Cells(a, 14)).Selection.Font.ColorIndex = 3

il faut supprimer selection

Code :

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

Range(Cells(a, 1), Cells(a, 14)).Font.ColorIndex = 3

bonne soirée

[zeralium]

Ca marche mais un autre probleme apparait, dés que je modifie une cellule de la colonne 12 la petite macro part dans un cycle infernale...surement du à la boucle.
Je pense qu'il faudrait appliquer la boucle 1 seule fois apres modification d'une cellule. Car j'ai testé la macro "seule" et elle fonctionne tres bien, mais des que je l'installe dans une worksheet c'est la boucle infernale.
Quelqu'un à une idée???

[zyhack]

Peut tu expliquer ce que doit faire ce code car effectivement une fois lancer la boucle ne s'arrête plus

[ucfoutu]

Bonsoir, zyhack,

laisse le analyser son propre code, réfléchir (sans même s'occuper de VBA) au déroulement de ce qu'il a écrit... et corriger l'emplacement de l'incrémentation de sa variable a ...
Ce n'est pas du code, mais de la logique pure ...

[zyhack]

Bon

dernier essai avant d'aller au dodo

je pense avoir compris le système alors essaye ça

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim a As Integer
  a = 2
  While Not Cells(a, 1) = ""
    If Cells(a, 12) > 0 Then Range(Cells(a, 1), Cells(a, 14)).Font.ColorIndex = 3
    a = a + 1
  Wend
End Sub

la suite demain ...

[ucfoutu]

Bonjour,

mais des que je l'installe dans une worksheet c'est la boucle infernale.

Indépendamment de l'erreur corrigée : regarde mes commentaires en rouge

Bonjour,

J'ai un probleme sur une MFC, voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Integer
a = 2 'tu démarres donc à 2
While Not Cells(a, 1) = "" ' et si ta cellule 2:1 est différente de ""
    If Cells(a, 12) > 0 Then 'et que par hasard ta cellule 2:12 > 0 
      Range(Cells(a, 1), Cells(a, 14)).Selection.Font.ColorIndex = 3
       'tu changes la couleur, OK, mais pas la valeur de a
    Else
      'mais voilà : tu n'y passes pas si 2:12 > 0 ... et donc a reste = 2 
     a = a + 1
    End If
   'et tu reviens au départ, puisque la cellule 2:1 est toujours différente de ""
   ' et ainsi à l'infini
Wend

End Sub