Discussion :

[vecu17]

Bonjour messieurs, Dames

J'ai toujours fait de choses très simple en VBA, ma question vous paraitra peut être aussi simple mais je trouve pas la solution a mon niveau et après longue recherche sur forum je trouve pas la soluce.

Mon problème est le suivant:

je souhaite rechercher la valeur "chb" dans une plage allant de "D2" à "P2"
(valeur qui existera forcement)

depuis la colonne trouvée je souhaite sélectionner plusieurs lignes de cette colonne grâce aux valeurs de début et de fin "deb" et "fin" et mettre la valeur 1 dans ces cellules ainsi que la couleur rouge.

Merci d'avance pour votre aide et si vous connaissez un bon document pour bien débuter en VBA

[Theze]

Bonjour,

Teste ceci et adapte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Sub Chercher()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim deb As Long
    Dim fin As Long
    Dim I As Long
 
    'adapter ici les lignes...
    deb = 3
    fin = 10
 
    'plage située en feuille "Feuil1"
    With Worksheets("Feuil1")
 
        'défini la plage
        Set Plage = .Range("D2:P2")
 
        'effectue la recherche exacte (xlWhole, sinon "XlPart")
        Set Cel = Plage.Find("chb", , xlValues, xlWhole)
 
        'si trouvée, boucle de la ligne de début jusqu'à la ligne de fin
        'inscrit "1" et colore la fonte en rouge
        If Not Cel Is Nothing Then
 
            For I = deb To fin
 
                .Cells(I, Cel.Column) = 1
                .Cells(I, Cel.Column).Font.ColorIndex = 3
 
            Next I
 
        End If
 
    End With
 
End Sub

Hervé.

[vecu17]

Merci Theze, mais j'ai un soucis, je comprends bien la méthode pour pour copier dans les lignes suivantes, mais dans la formule de recherche le resultat reste nothing systematiquement

[gFZT82]

Bonjour,

Si "chb" n'est qu'une partie du texte de la cellule recherchée, tu dois utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Set Cel = Plage.Find("chb", , xlValues, xlPart)

Cordialement.

[vecu17]

je vous remercie tous les deux mais la première réponse était la bonne, cela provenait de mon tableau que j'ai refais et adapté la formule

par contre si quelqu'un connait un bon bouquin pour apprendre le VBA et sa syntaxe se serait cool