Je veux sélectionner toutes les cellules

Le
GRINCHEUX
BONJOUR.

Je veux sélectionner toutes les cellules d'une collone G qui contiennent :
********SFR*******.
Les étoiles sont des chiffres et lettres toutes différentes.

qouic

MERCI D'AVANCE
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
AG
Le #5385651
C'est un peu compliqué mais ça marche:


Sub Macro1()
Dim CellulesSelectionnees As String
Dim PremiereCellule As String
Dim Premier As Boolean
' Range("G1,G7,G17,G24").Select
' Range("G24").Activate
Premier = True
PremiereCellule = ""
CellulesSelectionnees = ""
For i = 1 To 21
If InStr(8, Cells(i, 7).Value, "SFR") <> 0 Then
If Premier Then
Premier = False
PremiereCellule = "G" & i & ""
Else
CellulesSelectionnees = CellulesSelectionnees & ","
End If
CellulesSelectionnees = CellulesSelectionnees & "G" & i
End If
Next i
If PremiereCellule <> "" Then
Range(CellulesSelectionnees).Select
Range(PremiereCellule).Activate
End If
End Sub


AG


BONJOUR.

Je veux sélectionner toutes les cellules d'une collone G qui contiennent :
********SFR*******.
Les étoiles sont des chiffres et lettres toutes différentes.

qouic

MERCI D'AVANCE





Publicité
Poster une réponse
Anonyme