Probleme sur MFC

Version imprimable

Probleme sur MFC

Bonjour,

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

Code:

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

28/04/2008, 21h55
zyhack

bonsoir

sur la ligne

Code:

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

il faut supprimer selection

Code:

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

bonne soirée
28/04/2008, 22h43
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???

Bonjour,

Citation:

Envoyé par zeralium

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

Citation:

Envoyé par zeralium

Bonjour,

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

Code:

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

28/04/2008, 23h11
zyhack

Peut tu expliquer ce que doit faire ce code car effectivement une fois lancer la boucle ne s'arrête plus
28/04/2008, 23h15
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 ...8O

Bon

dernier essai avant d'aller au dodo

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

Code:

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

Vous avez raison il y avait bien un bug dans ma macro, voici la meme corrigée:
Code:

1 2 3 4 5 6 7 8 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 End If a = a + 1 Wend
Par contre meme avec cette modif ca bug lorsque je mets le programme dans un worksheet.

29/04/2008, 09h39
zyhack

Bonjour

A la différence que tu fais ton IF sur trois lignes alors que je le fais sur une seule c’est le même code.

Je viens de le retenter avec mon code et le tient, avec Worksheet_Change et Worksheet_SelectionChange.

Résultat tous fonctionne nickel.:?

Si tu peux préciser sur quel ligne, quel type d’erreur et je ne sais quoi d’autre qui permettrais de t’aider car la je ne peut plus faire grand-chose.
29/04/2008, 09h58
zeralium

J'ai essayé avec ton code et tout fonctionne correctement...
La difference que j'ai remarque avec mon code c'est le "End if"...je ne comprend pas trop le pourquoi du comment.
Je te remercie pour ton aide.