comment sélectionner des cellules différentes de zéro
2 réponses
Théo
Dans une plage occupée par des formules dont certaines aboutissent à zéro,
comment ne sélectionner que les cellules aboutissant à un résultat différent
de zéro ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. Sélectionne ta plage et exécute la macro :
Sub test() Dim c As Range, Plage As Range For Each c In Selection If c <> 0 Then If Plage Is Nothing Then Set Plage = c Else Set Plage = Union(Plage, c) End If End If Next c Plage.Select End Sub
Cordialement. Daniel "Théo" <Thé a écrit dans le message de news:
Dans une plage occupée par des formules dont certaines aboutissent à zéro, comment ne sélectionner que les cellules aboutissant à un résultat différent de zéro ?
Bonjour.
Sélectionne ta plage et exécute la macro :
Sub test()
Dim c As Range, Plage As Range
For Each c In Selection
If c <> 0 Then
If Plage Is Nothing Then
Set Plage = c
Else
Set Plage = Union(Plage, c)
End If
End If
Next c
Plage.Select
End Sub
Cordialement.
Daniel
"Théo" <Théo@discussions.microsoft.com> a écrit dans le message de news:
F8DFE9FB-643C-4F1E-9D70-9C3ADE2999E4@microsoft.com...
Dans une plage occupée par des formules dont certaines aboutissent à zéro,
comment ne sélectionner que les cellules aboutissant à un résultat
différent
de zéro ?
Bonjour. Sélectionne ta plage et exécute la macro :
Sub test() Dim c As Range, Plage As Range For Each c In Selection If c <> 0 Then If Plage Is Nothing Then Set Plage = c Else Set Plage = Union(Plage, c) End If End If Next c Plage.Select End Sub
Cordialement. Daniel "Théo" <Thé a écrit dans le message de news:
Dans une plage occupée par des formules dont certaines aboutissent à zéro, comment ne sélectionner que les cellules aboutissant à un résultat différent de zéro ?
Théo
Bonjour Daniel, Magnifique !!! et quelle rapidité ... Merci mille fois pour ton aide très appréciée et plus qu'efficace, Cordialement, Théo
Bonjour. Sélectionne ta plage et exécute la macro :
Sub test() Dim c As Range, Plage As Range For Each c In Selection If c <> 0 Then If Plage Is Nothing Then Set Plage = c Else Set Plage = Union(Plage, c) End If End If Next c Plage.Select End Sub
Cordialement. Daniel "Théo" <Thé a écrit dans le message de news:
Dans une plage occupée par des formules dont certaines aboutissent à zéro, comment ne sélectionner que les cellules aboutissant à un résultat différent de zéro ?
Bonjour Daniel,
Magnifique !!! et quelle rapidité ...
Merci mille fois pour ton aide très appréciée et plus qu'efficace,
Cordialement,
Théo
Bonjour.
Sélectionne ta plage et exécute la macro :
Sub test()
Dim c As Range, Plage As Range
For Each c In Selection
If c <> 0 Then
If Plage Is Nothing Then
Set Plage = c
Else
Set Plage = Union(Plage, c)
End If
End If
Next c
Plage.Select
End Sub
Cordialement.
Daniel
"Théo" <Théo@discussions.microsoft.com> a écrit dans le message de news:
F8DFE9FB-643C-4F1E-9D70-9C3ADE2999E4@microsoft.com...
Dans une plage occupée par des formules dont certaines aboutissent à zéro,
comment ne sélectionner que les cellules aboutissant à un résultat
différent
de zéro ?
Bonjour Daniel, Magnifique !!! et quelle rapidité ... Merci mille fois pour ton aide très appréciée et plus qu'efficace, Cordialement, Théo
Bonjour. Sélectionne ta plage et exécute la macro :
Sub test() Dim c As Range, Plage As Range For Each c In Selection If c <> 0 Then If Plage Is Nothing Then Set Plage = c Else Set Plage = Union(Plage, c) End If End If Next c Plage.Select End Sub
Cordialement. Daniel "Théo" <Thé a écrit dans le message de news:
Dans une plage occupée par des formules dont certaines aboutissent à zéro, comment ne sélectionner que les cellules aboutissant à un résultat différent de zéro ?