MFC en VBA

Startus

XLDnaute Occasionnel
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]
 

Pièces jointes

  • Copie_Calendrier_20051018224505.zip
    35.9 KB · Affichages: 10

Hellboy

XLDnaute Accro
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

XLDnaute Occasionnel
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

XLDnaute Accro
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

XLDnaute Occasionnel
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]
 

Pièces jointes

  • Copie_Calendrier_20051020002314.zip
    36.4 KB · Affichages: 13

Hellboy

XLDnaute Accro
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

XLDnaute Occasionnel
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]
 

Pièces jointes

  • Copie_Calendrier_20051021002815.zip
    34.2 KB · Affichages: 9

Hellboy

XLDnaute Accro
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]
 

Pièces jointes

  • copie_calendrier.zip
    35 KB · Affichages: 17
  • copie_calendrier.zip
    35 KB · Affichages: 19
  • copie_calendrier.zip
    35 KB · Affichages: 22

Startus

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

Discussions similaires

Réponses
1
Affichages
229

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson