Bonjour à tous,
j'ai un fichier dans lequel deux critères sont rentrés, respectivement en E5:F5 (cellules fusionnées) et E7:F7 (même chose).
La valeur de ces critères peut varier, et les choix sont conditionnées par une liste de validation de données. En gros, dans E5, je peux choisir "N" ou "T", et dans E7 "avec" ou "sans".
Selon les valeurs de ces deux cellules, j'aimerais que le reste de ma feuille soit classé différemment. J'applique un critère de tri des lignes qui sont situées en dessous différent, selon que j'ai N-avec, N-sans, T-avec, T-sans.
Je n'arrive pas à automatiser cela.
D'après ce que j'ai réussi à glaner par ailleurs sur le forum, je suppose que c'est quelque chose comme cela qu'il faudra écrire :
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E5") = "T" & Range("E7") = "avec" Then
'j'exécute mon tri avec une formule du genre application("mamacrodetriT").run
End If
If Range("E5") = "N" & range("E7") = "sans" Then
'j'exécute un autre tri
'etc etc
End If
End Sub
Seulement, ce que j'ai testé pour l'instant (à savoir quelque chose d'un peu plus simple pour une première étape, histoire de voir si la méthode est bonne, en l'occurrence simplement changer la valeur d'une autre cellule, dans laquelle je n'ai aucune information - voir le code ci-dessous) ne fonctionne pas, et ça me fait systématiquement planter excel sur mon PC...
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E5") = "propriétés de danger T (toxicité humaine)" Then
Cells(5, 7) = "T"
End If
If Range("E5") = "propriétés de danger N (danger pour l'environnement)" Then
Range("G5") = "N"
End If
End Sub
Pourriez-vous m'aider ?
Merci d'avance !!!
Flore
j'ai un fichier dans lequel deux critères sont rentrés, respectivement en E5:F5 (cellules fusionnées) et E7:F7 (même chose).
La valeur de ces critères peut varier, et les choix sont conditionnées par une liste de validation de données. En gros, dans E5, je peux choisir "N" ou "T", et dans E7 "avec" ou "sans".
Selon les valeurs de ces deux cellules, j'aimerais que le reste de ma feuille soit classé différemment. J'applique un critère de tri des lignes qui sont situées en dessous différent, selon que j'ai N-avec, N-sans, T-avec, T-sans.
Je n'arrive pas à automatiser cela.
D'après ce que j'ai réussi à glaner par ailleurs sur le forum, je suppose que c'est quelque chose comme cela qu'il faudra écrire :
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E5") = "T" & Range("E7") = "avec" Then
'j'exécute mon tri avec une formule du genre application("mamacrodetriT").run
End If
If Range("E5") = "N" & range("E7") = "sans" Then
'j'exécute un autre tri
'etc etc
End If
End Sub
Seulement, ce que j'ai testé pour l'instant (à savoir quelque chose d'un peu plus simple pour une première étape, histoire de voir si la méthode est bonne, en l'occurrence simplement changer la valeur d'une autre cellule, dans laquelle je n'ai aucune information - voir le code ci-dessous) ne fonctionne pas, et ça me fait systématiquement planter excel sur mon PC...
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E5") = "propriétés de danger T (toxicité humaine)" Then
Cells(5, 7) = "T"
End If
If Range("E5") = "propriétés de danger N (danger pour l'environnement)" Then
Range("G5") = "N"
End If
End Sub
Pourriez-vous m'aider ?
Merci d'avance !!!
Flore