Si j'ai marqué ça je me suis planté (je me suis planté : Mauvais copier/coller)
Je t'ai désactivé les événements et je ne les ai pas réactivés
Enlèves la 1ère ligne (la ligne barrée)
Enregistres le fichier
quittes le programme
Relances le programme
- Code: Tout sélectionner
Private Sub Worksheet_Change(ByVal Target As Range)
'met les lignes en erreurs de couleur
Dim Plage As Range
Dim Cel As Range
Application.EnableEvents = False
Range("I2:I" & Range("I" & Rows.Count).End(xlUp).Row).Interior.ColorIndex = xlNone
On Error Resume Next
Set Plage = Columns(4).SpecialCells(xlCellTypeConstants, xlErrors)
On Error GoTo 0
If Not Plage Is Nothing Then
For Each Cel In Plage
Cel.Offset(0, 5).Interior.ColorIndex = 6
Next Cel
End If
End Sub
Ou alors exécute de code en mode direct (ou par bouton) que tu places où tu veux
- Code: Tout sélectionner
Sub ret()
Application.EnableEvents = True
End Sub
C'est une solution mais (pas grave) , cette macro va fonctionner à chaque modification d'une cellule n'importe où dans la page
Le fichier joint répare ma bévue et je t'ai simplifié la macro qui n'est exécutée que lors d'une modification en colonne I
CAPUCIN Equiv V015.zip- (155.8 Kio) Téléchargé 5 fois
D'après ce que j'ai compris
Dès que tu entres une instruction en colonne I
1) Vérification de la syntaxe ---> Si pas bon des ?
2) Vérification si les formules renvoient #N/A ---> Dans ce cas cellule en couleur
Et tout cela dans quelle page ?
Le 1 dans la page ASS ? (OUI/NON) *
le 2 Dans la page ASS Compile ? (OUI/NON) *
Tu as une vue d'ensemble de ton programme, que je n'ai pas, je ne sais pas quand faut il utiliser telle ou telle macro
* rayer la mention inutile
La feuille "ASS" reflete maintenant toute les erreurs de la feuille "ASS compile", pour fin de correction. Tres pratique! Tu as vraiment compris le but de mon logiciel!
