Je veux sélectionner toutes les cellules d'une collone G qui contiennent :
********SFR*******.
Les étoiles sont des chiffres et lettres toutes différentes.
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
AG
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
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.
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.