MFC en VBA

[Startus]

Bonjour à tous

En complément de la mise en forme conditionnelle, limitée à 3 critères j'utilise ce code, malheureusement pas tout à fait au point...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Range('V_Scol.')
If c = 1 Then
c.Interior.ColorIndex = 5
Else
c.Interior.ColorIndex = 2
End If
Next
End Sub

Une 'Erreur d'exécution 13' apparait ?
Et aucune modification ne se fait lorsque je change d'année...?

Pouvez-vous m'aider ?
Merci...

Ci-joint le fichier [file name=Copie_Calendrier_20051018224505.zip size=36809]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Copie_Calendrier_20051018224505.zip[/file]

 

[Hellboy]

Bonsoir Startus

L'erreur provient de cellule qui comtient une formule qui n'as pas de réponse, comme la cellule S36 qui donne une erreur. Ce qui explique le problême de l'erreur d'exécution 13.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Dim c As Range
       
        For Each c In Range('V_Scol.')
                With c.Interior
                        If c = 1 Then
                            .ColorIndex = 5
                        Else
                                .ColorIndex = 2
                        End If
                End With
        Next c
End Sub

 

[Startus]

Salut à toi Hellboy, le Forum...

Merci de te pencher sur mon problème...

Après un copier coller de ton code sur mon classeur,

Une 'Erreur d'Exécution 1004' intervient ?
La méthode Range de l'objet Worksheet a échoué

Merci pour ton aide...

 

[Hellboy]

re Startus

Excuse moi, je ne t'ai pas fournis tout les éléments de réponse nécessaire.

Pour ce que j'ai évoqué de la formule qui ne peut être résolue comme l'exemple de la cellule S36, il y a deux chose que tu peux faire:
1 - Soit que tu efface l'information dans ces cellules.
2 - Soit que tu rajoute une condition a tes formules qui vérifies si la cellules visé pour le retour d'information, n'est pas vide. Ex:

            Colonne S
            Ligne 36
=SI(N36<>'',INDEX(Num,EQUIV(N36,Date_Année,0)),'')

a+

 

[Startus]

Salut,

Après avoir moidifié les formules comme cela :

=SI(N36<>'';INDEX(Num;EQUIV(N36;Date_Année;0);''))

Chose à laquelle je n'avais pas pensé...

L'Erreur d'Exécution 13 intervient toujours...?

Là je ne comprend plus...???

Merci beaucoup de aide précieuse [file name=Copie_Calendrier_20051020002314.zip size=37270]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Copie_Calendrier_20051020002314.zip[/file]

 

[Hellboy]

Bonjour Startus

Pas facile quand vient le temps de s'amuser avec les Dates. Je voit trois choses. Je commente après:

&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Colonne G
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Ligne 34 à 36
=INDEX(Num,EQUIV(B34,Date_Année,0))
=SI(B35<>'',INDEX(Num,EQUIV(B35,Date_Année,0),''))
=SI(B36<>'',INDEX(Num,EQUIV(B36,Date_Année,0),''))

1- Les formules ne sont pas pareilles
2- Dans l'exemple, la formule en G35 devrait être =SI(B35<>'',INDEX(Num,EQUIV(B35,Date_Année,0)),'')
3- Tu as pensée au années bisextile ?

a+

 

[Startus]

Bonjour Hellboy,

Merci beaucoup tu m'as éclairé et du coup j'y vois bien plus clair...

Comme tu le dis, pas facile de jongler avec les dates, mais nous sommes et seront toujours plus fort que les machines...

Après remaniement de mes formules, la macro marche bien...

Mais comme je suis un temps soit peu perfectionniste, un détail s'ajoute. Je cite :

La macro se joue uniquement l'orsque je clique dans n'importe quelle cellule, mais si je change la période semestrielle ou bien l'année, rien ne se passe ???

Merci encore de m'aider si le coeur t'en dis...

Et le fichier modifié... [file name=Copie_Calendrier_20051021002815.zip size=35049]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Copie_Calendrier_20051021002815.zip[/file]

 

[Hellboy]

Bonsoir Startus

Je te joint ton fichier, avec une macro supplémentaire, qui va être appeler par le changement de sélection, trimestre et année.
[file name=copie_calendrier.zip size=35797]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/copie_calendrier.zip[/file]

 

[Startus]

Boujour Hellboy,

Enfin, mon Planning est terminé, et ceci grace à toi...ouf

MERCI

Il faut sérieusement que j'apprenne la programmation VBA, pour l'instant je me débrouille un peu sur les formules mais question VBA c'est un autre monde...

Encore Merci...