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

[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

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

[zeralium]

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

Code :

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

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.

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

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