Bonjour,
Par macro je nomme une plage "ville" de b9:b1000
Y a t il moyen de demander à Monsieur Excel d'introduire une condition :
nommer une plage "ville" de b9:b1000, mais qui ne comporte que les cellules
avec le mot "Nice" ?
Ce n'est peut être pas bien compliqué, mais je ne suis pas excellent en
Excel !
merci de votre secours...
Phil.
-----------------------------
la formule actuelle :
ActiveWorkbook.Names.Add "ville", Range(Range("b9"), Range("b1000"))
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
Bonsoir. Il y a peut-être plus simple, mais ceci doit fonctionner :
Sub test() Dim Plage As Range Range("B9").Select Set Plage = Range("B8") For i = 1 To 992 If ActiveCell.Value = "nice" Then Set Plage = Union(Plage, ActiveCell) End If ActiveCell.Offset(1, 0).Select Next i Set Plage = Intersect(Plage, Range("B9:B1000")) ActiveWorkbook.Names.Add "ville", Plage End Sub
Cordialement. Daniel "Philippe de PARIS" a écrit dans le message de news:
Bonjour, Par macro je nomme une plage "ville" de b9:b1000
Y a t il moyen de demander à Monsieur Excel d'introduire une condition : nommer une plage "ville" de b9:b1000, mais qui ne comporte que les cellules avec le mot "Nice" ?
Ce n'est peut être pas bien compliqué, mais je ne suis pas excellent en Excel ! merci de votre secours... Phil. ----------------------------- la formule actuelle : ActiveWorkbook.Names.Add "ville", Range(Range("b9"), Range("b1000"))
Bonsoir.
Il y a peut-être plus simple, mais ceci doit fonctionner :
Sub test()
Dim Plage As Range
Range("B9").Select
Set Plage = Range("B8")
For i = 1 To 992
If ActiveCell.Value = "nice" Then
Set Plage = Union(Plage, ActiveCell)
End If
ActiveCell.Offset(1, 0).Select
Next i
Set Plage = Intersect(Plage, Range("B9:B1000"))
ActiveWorkbook.Names.Add "ville", Plage
End Sub
Cordialement.
Daniel
"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans le
message de news: ufagv3qSGHA.1572@tk2msftngp13.phx.gbl...
Bonjour,
Par macro je nomme une plage "ville" de b9:b1000
Y a t il moyen de demander à Monsieur Excel d'introduire une condition :
nommer une plage "ville" de b9:b1000, mais qui ne comporte que les
cellules avec le mot "Nice" ?
Ce n'est peut être pas bien compliqué, mais je ne suis pas excellent en
Excel !
merci de votre secours...
Phil.
-----------------------------
la formule actuelle :
ActiveWorkbook.Names.Add "ville", Range(Range("b9"), Range("b1000"))
Bonsoir. Il y a peut-être plus simple, mais ceci doit fonctionner :
Sub test() Dim Plage As Range Range("B9").Select Set Plage = Range("B8") For i = 1 To 992 If ActiveCell.Value = "nice" Then Set Plage = Union(Plage, ActiveCell) End If ActiveCell.Offset(1, 0).Select Next i Set Plage = Intersect(Plage, Range("B9:B1000")) ActiveWorkbook.Names.Add "ville", Plage End Sub
Cordialement. Daniel "Philippe de PARIS" a écrit dans le message de news:
Bonjour, Par macro je nomme une plage "ville" de b9:b1000
Y a t il moyen de demander à Monsieur Excel d'introduire une condition : nommer une plage "ville" de b9:b1000, mais qui ne comporte que les cellules avec le mot "Nice" ?
Ce n'est peut être pas bien compliqué, mais je ne suis pas excellent en Excel ! merci de votre secours... Phil. ----------------------------- la formule actuelle : ActiveWorkbook.Names.Add "ville", Range(Range("b9"), Range("b1000"))
phil
un grand Merci Daniel,
Bonne soirée
Philippe
"Daniel" a écrit dans le message de news: Ol6NZ$
Bonsoir. Il y a peut-être plus simple, mais ceci doit fonctionner :
Sub test() Dim Plage As Range Range("B9").Select Set Plage = Range("B8") For i = 1 To 992 If ActiveCell.Value = "nice" Then Set Plage = Union(Plage, ActiveCell) End If ActiveCell.Offset(1, 0).Select Next i Set Plage = Intersect(Plage, Range("B9:B1000")) ActiveWorkbook.Names.Add "ville", Plage End Sub
Cordialement. Daniel "Philippe de PARIS" a écrit dans le message de news:
Bonjour, Par macro je nomme une plage "ville" de b9:b1000
Y a t il moyen de demander à Monsieur Excel d'introduire une condition : nommer une plage "ville" de b9:b1000, mais qui ne comporte que les cellules avec le mot "Nice" ?
Ce n'est peut être pas bien compliqué, mais je ne suis pas excellent en Excel ! merci de votre secours... Phil. ----------------------------- la formule actuelle : ActiveWorkbook.Names.Add "ville", Range(Range("b9"), Range("b1000"))
un grand Merci Daniel,
Bonne soirée
Philippe
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
Ol6NZ$sSGHA.5728@tk2msftngp13.phx.gbl...
Bonsoir.
Il y a peut-être plus simple, mais ceci doit fonctionner :
Sub test()
Dim Plage As Range
Range("B9").Select
Set Plage = Range("B8")
For i = 1 To 992
If ActiveCell.Value = "nice" Then
Set Plage = Union(Plage, ActiveCell)
End If
ActiveCell.Offset(1, 0).Select
Next i
Set Plage = Intersect(Plage, Range("B9:B1000"))
ActiveWorkbook.Names.Add "ville", Plage
End Sub
Cordialement.
Daniel
"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans le
message de news: ufagv3qSGHA.1572@tk2msftngp13.phx.gbl...
Bonjour,
Par macro je nomme une plage "ville" de b9:b1000
Y a t il moyen de demander à Monsieur Excel d'introduire une condition :
nommer une plage "ville" de b9:b1000, mais qui ne comporte que les
cellules avec le mot "Nice" ?
Ce n'est peut être pas bien compliqué, mais je ne suis pas excellent en
Excel !
merci de votre secours...
Phil.
-----------------------------
la formule actuelle :
ActiveWorkbook.Names.Add "ville", Range(Range("b9"), Range("b1000"))
Bonsoir. Il y a peut-être plus simple, mais ceci doit fonctionner :
Sub test() Dim Plage As Range Range("B9").Select Set Plage = Range("B8") For i = 1 To 992 If ActiveCell.Value = "nice" Then Set Plage = Union(Plage, ActiveCell) End If ActiveCell.Offset(1, 0).Select Next i Set Plage = Intersect(Plage, Range("B9:B1000")) ActiveWorkbook.Names.Add "ville", Plage End Sub
Cordialement. Daniel "Philippe de PARIS" a écrit dans le message de news:
Bonjour, Par macro je nomme une plage "ville" de b9:b1000
Y a t il moyen de demander à Monsieur Excel d'introduire une condition : nommer une plage "ville" de b9:b1000, mais qui ne comporte que les cellules avec le mot "Nice" ?
Ce n'est peut être pas bien compliqué, mais je ne suis pas excellent en Excel ! merci de votre secours... Phil. ----------------------------- la formule actuelle : ActiveWorkbook.Names.Add "ville", Range(Range("b9"), Range("b1000"))
