Discussion :

[zak-mouk]

Bonjour à tous,
Je viens vers vous pour demander de l'aide, j'ai besoin de code d' un macro qui permet de parcourir la 3ème ligne(qui contient les titres des colonnes), et vérifier chaque cellule (ou titre) s'elle contient le mot "value", si oui, le macro parcourt la colonne qui correspond a cette cellule.
j'ai besoin de ce macro pour optimiser la recherche, voici le code que je dois appliquer sur les cellules de la colonnes ou se trouve le mot "Value".
dans ce code dessous, Range("Y5:AR5000") correspond à la plage qui contient les colonnes dont le titre contient le mot "value".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim CurCell As Object
For Each CurCell In Range("Y5:AR5000")
    If (CurCell.Value Like "*([a-zA-Z])*" Or CurCell.Value Like "*[\.|/|°]*") And Not IsNumeric(CurCell.Offset(0, 1).Value) Then
        CurCell.Offset(0, 1).Select 'Select the error
        CurCell.Offset(0, 1).Interior.ColorIndex = 0
        MsgBox "Error unit at " & CurCell.Offset(0,1).Value & " in cell: " & CurCell.Offset(0, 1).Address
    End If
    Next
'
End Sub

J’espère que vous avez bien ma demande, sinon n'hésitez pas à me demander.
Merci à vous.

[zak-mouk]

Rebonjour,
Je ne suis pas resté les bras croisés , j'ai trouvé une solution et je la partage avec vous

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
Sub TestUnits2()
'
' TestUnits2 Macro
'
'Rows("3:3").Select
Dim CurCell As Object
For Each CurCell In Range("A3:CP3")
    For i = 1 To 20
        If CurCell.Value = "Charact" & i Then
            CurCell.Columns.Select
            'ActiveCell.Column.Interior.ColorIndex = 10
            MsgBox "Value Find in :" & CurCell.Rows.Address
        End If
    Next i
Next
End Sub

Donc, voila comme vous voyez ce programme sélectionne la colonne ou il se trouve le mot "Charact1", "charact2"...ect, mais ce n'est pas de tout fini, parce que il faut ensuite parcourir toute la colonne ou il se trouve ce mot (par exemple: charact 1) ligne par ligne et vérifier la condition, je pense qu'il va se ressembler à ça

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
Sub TestUnits2()
'
' TestUnits2 Macro
'
'Rows("3:3").Select
Dim CurCell As Object
Dim cell As Variant
 
For Each CurCell In Range("A3:CP3")
    For i = 1 To 20
        If CurCell.Value = "Charact" & i Then
            Colonne = CurCell.Columns.Select
            'ActiveCell.Column.Interior.ColorIndex = 10
            'MsgBox "Value Find in :" & CurCell.Columns.Address
            For Each cell In Colonne
                If (cell.Value Like "*([a-zA-Z])*" Or cell.Value Like "*[\.|/|°]*") And Not IsNumeric(cell.Offset(0, 1).Value) Then
                    cell.Offset(0, 1).Select 'Select the error
                    cell.Offset(0, 1).Interior.ColorIndex = 0
                    MsgBox "Error unit at " & cell.Value & " in cell: " & cell.Offset(0, 1).Address
                'ElseIf then
                End If
            Next
        End If
    Next i
Next
End Sub

Mais ça ne marche pas, si vous avez une idée n'hésitez pas.
Merci

[zak-mouk]

La solution

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
Sub TestUnity()
'
' TestUnity Macro
'
Dim CurCell As Object
Dim rCell As Range
 
 
For Each CurCell In Range("A3:CP3")
    For i = 1 To 20
        If CurCell.Value = "Charact" & i Then
            'Sélection de cellules vers le bas depuis la cellule active.
            'Range(CurCell, CurCell.End(xlDown)).Select 
 
            For Each rCell In Range(CurCell, CurCell.End(xlDown))
                If confition Then
                    Instruction 1
                    Instruction 1
                End If
            Next
        End If
    Next i
Next
'
End Sub

[zak-mouk]

Un sujet crée et résolu par moi même , Merci à moi