Bonjour Choko,
La proc ci-dessous recherche dans les colonnes de A à D (adapte) en fai sant
une boucle sur les 8 chiffres en les recherchant dans la plage et en
applicant un formatage particulier pour chacun d'eux (pour l'exemple, sur 1
et 2).
Teste pour voir et adapte :
Private Sub Chercher()
Dim Plage As Range
Dim Cel As Range
Dim Adr As String
Dim I As Integer
'plage de recherche en
'colonnes A à D (à adapter)
Set Plage = Range([A1], [D65536].End(xlUp))
'Recherche des chiffres 1 à 8
For I = 1 To 8
Set Cel = Plage.Find(I, [A1], , xlWhole)
If Not Cel Is Nothing Then
Adr = Cel.Address
'Cherche toutes les cellules
'ici, adapter le formatage
Do
'exemple de formatage :
Select Case I
Case 1 'pour les chiffres 1
'couleur du fond en rouge
Cel.Interior.ColorIndex = 3
Case 2 'pour les chiffres 2
'fonte en gras et taille 14
Cel.Font.Bold = True
Cel.Font.Size = 14
Case 3 'etc...
'...
Case 4
'...
Case 5
'...
Case 6
'...
Case 7
'...
Case 8
'...
End Select
Set Cel = Plage.FindNext(Cel)
Loop While Adr <> Cel.Address
End If
Next I
Set Cel = Nothing
Set Plage = Nothing
End Sub
Hervé.
"Choko" a écrit dans le message denews:e939
Bonjour à tous,
Comment selectionner sous xl2003 toutes les cellules d'une plage
contenant la valeur '2' par exemple sachant que je dois faire une
boucle sur chaque valeur (1 à 8) pour y affecter un format spécial à
chacune.
Je cherche à éviter le 'for each Cell in MaPlage ...'car la tache est
vraiment trop longue, certainement car je m'y prends mal en formatant
Cell par Cell plutot que par une selection de plage discontinue.. .
D'avance merci
Choko
Bonjour Choko,
La proc ci-dessous recherche dans les colonnes de A à D (adapte) en fai sant
une boucle sur les 8 chiffres en les recherchant dans la plage et en
applicant un formatage particulier pour chacun d'eux (pour l'exemple, sur 1
et 2).
Teste pour voir et adapte :
Private Sub Chercher()
Dim Plage As Range
Dim Cel As Range
Dim Adr As String
Dim I As Integer
'plage de recherche en
'colonnes A à D (à adapter)
Set Plage = Range([A1], [D65536].End(xlUp))
'Recherche des chiffres 1 à 8
For I = 1 To 8
Set Cel = Plage.Find(I, [A1], , xlWhole)
If Not Cel Is Nothing Then
Adr = Cel.Address
'Cherche toutes les cellules
'ici, adapter le formatage
Do
'exemple de formatage :
Select Case I
Case 1 'pour les chiffres 1
'couleur du fond en rouge
Cel.Interior.ColorIndex = 3
Case 2 'pour les chiffres 2
'fonte en gras et taille 14
Cel.Font.Bold = True
Cel.Font.Size = 14
Case 3 'etc...
'...
Case 4
'...
Case 5
'...
Case 6
'...
Case 7
'...
Case 8
'...
End Select
Set Cel = Plage.FindNext(Cel)
Loop While Adr <> Cel.Address
End If
Next I
Set Cel = Nothing
Set Plage = Nothing
End Sub
Hervé.
"Choko" <frederic.evr...@gmail.com> a écrit dans le message denews:e939 8c69-2de1-4a9e-8caf-07fcf285c026@9g2000yqa.googlegroups.com...
Bonjour à tous,
Comment selectionner sous xl2003 toutes les cellules d'une plage
contenant la valeur '2' par exemple sachant que je dois faire une
boucle sur chaque valeur (1 à 8) pour y affecter un format spécial à
chacune.
Je cherche à éviter le 'for each Cell in MaPlage ...'car la tache est
vraiment trop longue, certainement car je m'y prends mal en formatant
Cell par Cell plutot que par une selection de plage discontinue.. .
D'avance merci
Choko
Bonjour Choko,
La proc ci-dessous recherche dans les colonnes de A à D (adapte) en fai sant
une boucle sur les 8 chiffres en les recherchant dans la plage et en
applicant un formatage particulier pour chacun d'eux (pour l'exemple, sur 1
et 2).
Teste pour voir et adapte :
Private Sub Chercher()
Dim Plage As Range
Dim Cel As Range
Dim Adr As String
Dim I As Integer
'plage de recherche en
'colonnes A à D (à adapter)
Set Plage = Range([A1], [D65536].End(xlUp))
'Recherche des chiffres 1 à 8
For I = 1 To 8
Set Cel = Plage.Find(I, [A1], , xlWhole)
If Not Cel Is Nothing Then
Adr = Cel.Address
'Cherche toutes les cellules
'ici, adapter le formatage
Do
'exemple de formatage :
Select Case I
Case 1 'pour les chiffres 1
'couleur du fond en rouge
Cel.Interior.ColorIndex = 3
Case 2 'pour les chiffres 2
'fonte en gras et taille 14
Cel.Font.Bold = True
Cel.Font.Size = 14
Case 3 'etc...
'...
Case 4
'...
Case 5
'...
Case 6
'...
Case 7
'...
Case 8
'...
End Select
Set Cel = Plage.FindNext(Cel)
Loop While Adr <> Cel.Address
End If
Next I
Set Cel = Nothing
Set Plage = Nothing
End Sub
Hervé.
"Choko" a écrit dans le message denews:e939
Bonjour à tous,
Comment selectionner sous xl2003 toutes les cellules d'une plage
contenant la valeur '2' par exemple sachant que je dois faire une
boucle sur chaque valeur (1 à 8) pour y affecter un format spécial à
chacune.
Je cherche à éviter le 'for each Cell in MaPlage ...'car la tache est
vraiment trop longue, certainement car je m'y prends mal en formatant
Cell par Cell plutot que par une selection de plage discontinue.. .
D'avance merci
Choko
Bonjour Choko,
La proc ci-dessous recherche dans les colonnes de A à D (adapte) en
faisant
une boucle sur les 8 chiffres en les recherchant dans la plage et en
applicant un formatage particulier pour chacun d'eux (pour l'exemple, sur
1
et 2).
Teste pour voir et adapte :
Private Sub Chercher()
Dim Plage As Range
Dim Cel As Range
Dim Adr As String
Dim I As Integer
'plage de recherche en
'colonnes A à D (à adapter)
Set Plage = Range([A1], [D65536].End(xlUp))
'Recherche des chiffres 1 à 8
For I = 1 To 8
Set Cel = Plage.Find(I, [A1], , xlWhole)
If Not Cel Is Nothing Then
Adr = Cel.Address
'Cherche toutes les cellules
'ici, adapter le formatage
Do
'exemple de formatage :
Select Case I
Case 1 'pour les chiffres 1
'couleur du fond en rouge
Cel.Interior.ColorIndex = 3
Case 2 'pour les chiffres 2
'fonte en gras et taille 14
Cel.Font.Bold = True
Cel.Font.Size = 14
Case 3 'etc...
'...
Case 4
'...
Case 5
'...
Case 6
'...
Case 7
'...
Case 8
'...
End Select
Set Cel = Plage.FindNext(Cel)
Loop While Adr <> Cel.Address
End If
Next I
Set Cel = Nothing
Set Plage = Nothing
End Sub
Hervé.
"Choko" a écrit dans le message
denews:
Bonjour à tous,
Comment selectionner sous xl2003 toutes les cellules d'une plage
contenant la valeur '2' par exemple sachant que je dois faire une
boucle sur chaque valeur (1 à 8) pour y affecter un format spécial à
chacune.
Je cherche à éviter le 'for each Cell in MaPlage ...'car la tache est
vraiment trop longue, certainement car je m'y prends mal en formatant
Cell par Cell plutot que par une selection de plage discontinue.. .
D'avance merci
Choko
Bonjour Choko,
La proc ci-dessous recherche dans les colonnes de A à D (adapte) en
faisant
une boucle sur les 8 chiffres en les recherchant dans la plage et en
applicant un formatage particulier pour chacun d'eux (pour l'exemple, sur
1
et 2).
Teste pour voir et adapte :
Private Sub Chercher()
Dim Plage As Range
Dim Cel As Range
Dim Adr As String
Dim I As Integer
'plage de recherche en
'colonnes A à D (à adapter)
Set Plage = Range([A1], [D65536].End(xlUp))
'Recherche des chiffres 1 à 8
For I = 1 To 8
Set Cel = Plage.Find(I, [A1], , xlWhole)
If Not Cel Is Nothing Then
Adr = Cel.Address
'Cherche toutes les cellules
'ici, adapter le formatage
Do
'exemple de formatage :
Select Case I
Case 1 'pour les chiffres 1
'couleur du fond en rouge
Cel.Interior.ColorIndex = 3
Case 2 'pour les chiffres 2
'fonte en gras et taille 14
Cel.Font.Bold = True
Cel.Font.Size = 14
Case 3 'etc...
'...
Case 4
'...
Case 5
'...
Case 6
'...
Case 7
'...
Case 8
'...
End Select
Set Cel = Plage.FindNext(Cel)
Loop While Adr <> Cel.Address
End If
Next I
Set Cel = Nothing
Set Plage = Nothing
End Sub
Hervé.
"Choko" <frederic.evr...@gmail.com> a écrit dans le message
denews:e9398c69-2de1-4a9e-8caf-07fcf285c026@9g2000yqa.googlegroups.com...
Bonjour à tous,
Comment selectionner sous xl2003 toutes les cellules d'une plage
contenant la valeur '2' par exemple sachant que je dois faire une
boucle sur chaque valeur (1 à 8) pour y affecter un format spécial à
chacune.
Je cherche à éviter le 'for each Cell in MaPlage ...'car la tache est
vraiment trop longue, certainement car je m'y prends mal en formatant
Cell par Cell plutot que par une selection de plage discontinue.. .
D'avance merci
Choko
Bonjour Choko,
La proc ci-dessous recherche dans les colonnes de A à D (adapte) en
faisant
une boucle sur les 8 chiffres en les recherchant dans la plage et en
applicant un formatage particulier pour chacun d'eux (pour l'exemple, sur
1
et 2).
Teste pour voir et adapte :
Private Sub Chercher()
Dim Plage As Range
Dim Cel As Range
Dim Adr As String
Dim I As Integer
'plage de recherche en
'colonnes A à D (à adapter)
Set Plage = Range([A1], [D65536].End(xlUp))
'Recherche des chiffres 1 à 8
For I = 1 To 8
Set Cel = Plage.Find(I, [A1], , xlWhole)
If Not Cel Is Nothing Then
Adr = Cel.Address
'Cherche toutes les cellules
'ici, adapter le formatage
Do
'exemple de formatage :
Select Case I
Case 1 'pour les chiffres 1
'couleur du fond en rouge
Cel.Interior.ColorIndex = 3
Case 2 'pour les chiffres 2
'fonte en gras et taille 14
Cel.Font.Bold = True
Cel.Font.Size = 14
Case 3 'etc...
'...
Case 4
'...
Case 5
'...
Case 6
'...
Case 7
'...
Case 8
'...
End Select
Set Cel = Plage.FindNext(Cel)
Loop While Adr <> Cel.Address
End If
Next I
Set Cel = Nothing
Set Plage = Nothing
End Sub
Hervé.
"Choko" a écrit dans le message
denews:
Bonjour à tous,
Comment selectionner sous xl2003 toutes les cellules d'une plage
contenant la valeur '2' par exemple sachant que je dois faire une
boucle sur chaque valeur (1 à 8) pour y affecter un format spécial à
chacune.
Je cherche à éviter le 'for each Cell in MaPlage ...'car la tache est
vraiment trop longue, certainement car je m'y prends mal en formatant
Cell par Cell plutot que par une selection de plage discontinue.. .
D'avance merci
Choko