J'ai un petit renseignement =E0 vous demander. Comment fait
on pour enlever une cellule de la selection lorsqu'elle
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
... 'En fait, ce que je veux conna=EEtre, c'est ce=20
qu'il faut mettre =E0 la place de ces pointill=E9es dans=20
mon "If" pour enlever ces cellules de ma s=E9lection.
End If
....
Next
Merci =E0 ceux qui pourront me r=E9pondre.
Bonne 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
Jean-François Aubert
Salut Maxime,
Sub yy() Dim I As Integer Range("A1:B20").Select For I = 1 To Selection.Count If Selection(I).Value <> "*" Then s = s & Selection(I).Address & "," End If Next s = Left(s, Len(s) - 1) Range(s).Select
End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Maxime" a écrit dans le message de news:039a01c34b89$135b9e40$ 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 ... 'En fait, ce que je veux connaître, c'est ce qu'il faut mettre à la place de ces pointillées dans mon "If" pour enlever ces cellules de ma sélection.
End If .... Next
Merci à ceux qui pourront me répondre. Bonne journée, Maxime
Salut Maxime,
Sub yy()
Dim I As Integer
Range("A1:B20").Select
For I = 1 To Selection.Count
If Selection(I).Value <> "*" Then
s = s & Selection(I).Address & ","
End If
Next
s = Left(s, Len(s) - 1)
Range(s).Select
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Maxime" <devidalmaxime@hotmail.com> a écrit dans le message de
news:039a01c34b89$135b9e40$a001280a@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
... 'En fait, ce que je veux connaître, c'est ce
qu'il faut mettre à la place de ces pointillées dans
mon "If" pour enlever ces cellules de ma sélection.
End If
....
Next
Merci à ceux qui pourront me répondre.
Bonne journée, Maxime
Sub yy() Dim I As Integer Range("A1:B20").Select For I = 1 To Selection.Count If Selection(I).Value <> "*" Then s = s & Selection(I).Address & "," End If Next s = Left(s, Len(s) - 1) Range(s).Select
End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Maxime" a écrit dans le message de news:039a01c34b89$135b9e40$ 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 ... 'En fait, ce que je veux connaître, c'est ce qu'il faut mettre à la place de ces pointillées dans mon "If" pour enlever ces cellules de ma sélection.
End If .... Next
Merci à ceux qui pourront me répondre. Bonne journée, Maxime
Hervé
Salut Maxime, Une piste :
Sub Selectionner() Dim Plage As Range Dim Cel As Range Dim Adresse As String
Set Plage = Range("A1:B20") For Each Cel In Plage If Cel.Value <> "*" Then Adresse = Adresse & _ Cel.Address(0, 0) & "," End If Next If InStr(Adresse, ",") > 0 Then Adresse = Left(Adresse, Len(Adresse) - 1) End If On Error Resume Next Range(Adresse).Select If Err <> 0 Then MsgBox "Toutes les cellules" & _ " contiennent le signe * " & vbCrLf & _ "Aucune plage ne peut être sélectionnée !" End If Set Plage = Nothing End Sub
Hervé.
"Maxime" a écrit dans le message news: 039a01c34b89$135b9e40$ 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 ... 'En fait, ce que je veux connaître, c'est ce qu'il faut mettre à la place de ces pointillées dans mon "If" pour enlever ces cellules de ma sélection.
End If .... Next
Merci à ceux qui pourront me répondre. Bonne journée, Maxime
Salut Maxime,
Une piste :
Sub Selectionner()
Dim Plage As Range
Dim Cel As Range
Dim Adresse As String
Set Plage = Range("A1:B20")
For Each Cel In Plage
If Cel.Value <> "*" Then
Adresse = Adresse & _
Cel.Address(0, 0) & ","
End If
Next
If InStr(Adresse, ",") > 0 Then
Adresse = Left(Adresse, Len(Adresse) - 1)
End If
On Error Resume Next
Range(Adresse).Select
If Err <> 0 Then
MsgBox "Toutes les cellules" & _
" contiennent le signe * " & vbCrLf & _
"Aucune plage ne peut être sélectionnée !"
End If
Set Plage = Nothing
End Sub
Hervé.
"Maxime" <devidalmaxime@hotmail.com> a écrit dans le message news:
039a01c34b89$135b9e40$a001280a@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
... 'En fait, ce que je veux connaître, c'est ce
qu'il faut mettre à la place de ces pointillées dans
mon "If" pour enlever ces cellules de ma sélection.
End If
....
Next
Merci à ceux qui pourront me répondre.
Bonne journée, Maxime
Sub Selectionner() Dim Plage As Range Dim Cel As Range Dim Adresse As String
Set Plage = Range("A1:B20") For Each Cel In Plage If Cel.Value <> "*" Then Adresse = Adresse & _ Cel.Address(0, 0) & "," End If Next If InStr(Adresse, ",") > 0 Then Adresse = Left(Adresse, Len(Adresse) - 1) End If On Error Resume Next Range(Adresse).Select If Err <> 0 Then MsgBox "Toutes les cellules" & _ " contiennent le signe * " & vbCrLf & _ "Aucune plage ne peut être sélectionnée !" End If Set Plage = Nothing End Sub
Hervé.
"Maxime" a écrit dans le message news: 039a01c34b89$135b9e40$ 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 ... 'En fait, ce que je veux connaître, c'est ce qu'il faut mettre à la place de ces pointillées dans mon "If" pour enlever ces cellules de ma sélection.
End If .... Next
Merci à ceux qui pourront me répondre. Bonne journée, Maxime
