macro : enlever une cellule de la sélection la valeur de cette cellule
4 réponses
Maxime
Bonjour !
J'ai un petit renseignement =E0 vous demander. Comment fait=20
on pour enlever une cellule de la selection lorsqu'elle=20
contient la valeur '*' (=E9toile) par exemple ?
Dim I As Integer
Range("A1:B20").Select
For I =3D 1 To Selection.Count
If Selection(I).Value <> "*" Then
...
End If
...
Next
Merci =E0 ceux qui pourront me r=E9pondre.
Bone journ=E9e, Maxime
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
Philippe.R
Bonjour Maxime, Essaies "~*" plutôt que "*" -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 "Maxime" a écrit dans le message de news:08eb01c34b7e$553f4c40$ Bonjour !
J'ai un petit renseignement à vous demander. Comment fait on pour enlever une cellule de la selection lorsqu'elle contient la valeur '*' (étoile) par exemple ?
Dim I As Integer Range("A1:B20").Select For I = 1 To Selection.Count If Selection(I).Value <> "*" Then ... End If ... Next
Merci à ceux qui pourront me répondre. Bone journée, Maxime
Bonjour Maxime,
Essaies "~*" plutôt que "*"
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Maxime" <devidalmaxime@hotmail.com> a écrit dans le message de
news:08eb01c34b7e$553f4c40$a401280a@phx.gbl...
Bonjour !
J'ai un petit renseignement à vous demander. Comment fait
on pour enlever une cellule de la selection lorsqu'elle
contient la valeur '*' (étoile) par exemple ?
Dim I As Integer
Range("A1:B20").Select
For I = 1 To Selection.Count
If Selection(I).Value <> "*" Then
...
End If
...
Next
Merci à ceux qui pourront me répondre.
Bone journée, Maxime
Bonjour Maxime, Essaies "~*" plutôt que "*" -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 "Maxime" a écrit dans le message de news:08eb01c34b7e$553f4c40$ Bonjour !
J'ai un petit renseignement à vous demander. Comment fait on pour enlever une cellule de la selection lorsqu'elle contient la valeur '*' (étoile) par exemple ?
Dim I As Integer Range("A1:B20").Select For I = 1 To Selection.Count If Selection(I).Value <> "*" Then ... End If ... Next
Merci à ceux qui pourront me répondre. Bone journée, Maxime
Maxime
En fait, ce que je veux connaître, c'est ce qu'il faut mettre à la place des pointillées dans mon "If" pour enlever ces cellules de ma sélection.
Retirer A_S_ pour répondre. XL97 / XL2002 "Maxime" a écrit dans le message de
news:08eb01c34b7e$553f4c40$ Bonjour !
J'ai un petit renseignement à vous demander. Comment fait on pour enlever une cellule de la selection lorsqu'elle contient la valeur '*' (étoile) par exemple ?
Dim I As Integer Range("A1:B20").Select For I = 1 To Selection.Count If Selection(I).Value <> "*" Then ... End If .... Next
Merci à ceux qui pourront me répondre. Bone journée, Maxime
.
En fait, ce que je veux connaître, c'est ce qu'il faut
mettre à la place des pointillées dans mon "If" pour
enlever ces cellules de ma sélection.
Merci quand même, Maxime.
-----Message d'origine-----
Bonjour Maxime,
Essaies "~*" plutôt que "*"
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Maxime" <devidalmaxime@hotmail.com> a écrit dans le
message de
J'ai un petit renseignement à vous demander. Comment fait
on pour enlever une cellule de la selection lorsqu'elle
contient la valeur '*' (étoile) par exemple ?
Dim I As Integer
Range("A1:B20").Select
For I = 1 To Selection.Count
If Selection(I).Value <> "*" Then
...
End If
....
Next
Merci à ceux qui pourront me répondre.
Bone journée, Maxime
Retirer A_S_ pour répondre. XL97 / XL2002 "Maxime" a écrit dans le message de
news:08eb01c34b7e$553f4c40$ Bonjour !
J'ai un petit renseignement à vous demander. Comment fait on pour enlever une cellule de la selection lorsqu'elle contient la valeur '*' (étoile) par exemple ?
Dim I As Integer Range("A1:B20").Select For I = 1 To Selection.Count If Selection(I).Value <> "*" Then ... End If .... Next
Merci à ceux qui pourront me répondre. Bone journée, Maxime
.
Alain CROS
Bonjour.
Sub PlageSans() Dim I As Integer, plg As Range ActiveSheet.Range("A1:B20").Select For I = 1 To Selection.Count If Selection(I).Value <> "*" Then If plg Is Nothing Then Set plg = Selection(I) Else Set plg = Union(plg, Selection(I)) End If End If Next plg.Select Set plg = Nothing End Sub
Alain CROS.
"Maxime" a écrit dans le message de news: 08eb01c34b7e$553f4c40$ Bonjour !
J'ai un petit renseignement à vous demander. Comment fait on pour enlever une cellule de la selection lorsqu'elle contient la valeur '*' (étoile) par exemple ?
Dim I As Integer Range("A1:B20").Select For I = 1 To Selection.Count If Selection(I).Value <> "*" Then ... End If ... Next
Merci à ceux qui pourront me répondre. Bone journée, Maxime
Bonjour.
Sub PlageSans()
Dim I As Integer, plg As Range
ActiveSheet.Range("A1:B20").Select
For I = 1 To Selection.Count
If Selection(I).Value <> "*" Then
If plg Is Nothing Then
Set plg = Selection(I)
Else
Set plg = Union(plg, Selection(I))
End If
End If
Next
plg.Select
Set plg = Nothing
End Sub
Alain CROS.
"Maxime" <devidalmaxime@hotmail.com> a écrit dans le message de news: 08eb01c34b7e$553f4c40$a401280a@phx.gbl...
Bonjour !
J'ai un petit renseignement à vous demander. Comment fait
on pour enlever une cellule de la selection lorsqu'elle
contient la valeur '*' (étoile) par exemple ?
Dim I As Integer
Range("A1:B20").Select
For I = 1 To Selection.Count
If Selection(I).Value <> "*" Then
...
End If
...
Next
Merci à ceux qui pourront me répondre.
Bone journée, Maxime
Sub PlageSans() Dim I As Integer, plg As Range ActiveSheet.Range("A1:B20").Select For I = 1 To Selection.Count If Selection(I).Value <> "*" Then If plg Is Nothing Then Set plg = Selection(I) Else Set plg = Union(plg, Selection(I)) End If End If Next plg.Select Set plg = Nothing End Sub
Alain CROS.
"Maxime" a écrit dans le message de news: 08eb01c34b7e$553f4c40$ Bonjour !
J'ai un petit renseignement à vous demander. Comment fait on pour enlever une cellule de la selection lorsqu'elle contient la valeur '*' (étoile) par exemple ?
Dim I As Integer Range("A1:B20").Select For I = 1 To Selection.Count If Selection(I).Value <> "*" Then ... End If ... Next
Merci à ceux qui pourront me répondre. Bone journée, Maxime
Maxime
Merci beaucoup !
-----Message d'origine----- Bonjour.
Sub PlageSans() Dim I As Integer, plg As Range ActiveSheet.Range("A1:B20").Select For I = 1 To Selection.Count If Selection(I).Value <> "*" Then If plg Is Nothing Then Set plg = Selection(I) Else Set plg = Union(plg, Selection(I)) End If End If Next plg.Select Set plg = Nothing End Sub
Alain CROS.
"Maxime" a écrit dans le message de news: 08eb01c34b7e$553f4c40$
Bonjour !
J'ai un petit renseignement à vous demander. Comment fait on pour enlever une cellule de la selection lorsqu'elle contient la valeur '*' (étoile) par exemple ?
Dim I As Integer Range("A1:B20").Select For I = 1 To Selection.Count If Selection(I).Value <> "*" Then ... End If .... Next
Merci à ceux qui pourront me répondre. Bone journée, Maxime
.
Merci beaucoup !
-----Message d'origine-----
Bonjour.
Sub PlageSans()
Dim I As Integer, plg As Range
ActiveSheet.Range("A1:B20").Select
For I = 1 To Selection.Count
If Selection(I).Value <> "*" Then
If plg Is Nothing Then
Set plg = Selection(I)
Else
Set plg = Union(plg, Selection(I))
End If
End If
Next
plg.Select
Set plg = Nothing
End Sub
Alain CROS.
"Maxime" <devidalmaxime@hotmail.com> a écrit dans le
message de news: 08eb01c34b7e$553f4c40$a401280a@phx.gbl...
Bonjour !
J'ai un petit renseignement à vous demander. Comment fait
on pour enlever une cellule de la selection lorsqu'elle
contient la valeur '*' (étoile) par exemple ?
Dim I As Integer
Range("A1:B20").Select
For I = 1 To Selection.Count
If Selection(I).Value <> "*" Then
...
End If
....
Next
Merci à ceux qui pourront me répondre.
Bone journée, Maxime
Sub PlageSans() Dim I As Integer, plg As Range ActiveSheet.Range("A1:B20").Select For I = 1 To Selection.Count If Selection(I).Value <> "*" Then If plg Is Nothing Then Set plg = Selection(I) Else Set plg = Union(plg, Selection(I)) End If End If Next plg.Select Set plg = Nothing End Sub
Alain CROS.
"Maxime" a écrit dans le message de news: 08eb01c34b7e$553f4c40$
Bonjour !
J'ai un petit renseignement à vous demander. Comment fait on pour enlever une cellule de la selection lorsqu'elle contient la valeur '*' (étoile) par exemple ?
Dim I As Integer Range("A1:B20").Select For I = 1 To Selection.Count If Selection(I).Value <> "*" Then ... End If .... Next
Merci à ceux qui pourront me répondre. Bone journée, Maxime
