Discussion :

[toto92]

Je cherche dans la colonne K toute cellule qui commence par un espace ( il y a donc mauvaise saisie ) et je colorie en rouge cette cellule
mais je n'arrive pas à me deplacer dans la colonne A ( titre = Anomalie ) pour mettre une croix "X" dans la meme ligne
( plus commode pour filtrer )
Ci-dessous mon code :

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
Dim Cell As Range
Dim ColumnA As Byte
Dim NB_DEPLOYED As Integer 
Sheets("Deployed").Select
Range("A1").Select
NB_DEPLOYED = Range("B1").End(xlDown).Row
'
For Each Cell In Range("K2:K" & NB_DEPLOYED & "")
     If Cell.Value Like " *" Then
        Cell.Interior.ColorIndex = 3
        ColumnA = 10
        ActiveCell.Offset(0, -ColumnA).Activate
        ActiveCell.Offset(0, -ColumnA) = "X"
     End If
 Next

j'obtiens le message d'erreur

erreur d'execution '1004'
erreur efinie par l'application ou par l'objet

et le deboggeur me souligne en jaune la ligne

Code :

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

ActiveCell.Offset(0, -ColumnA).Activate

Pouvez-vous ,s'il vous plait m'aider ?

Merci

PS:je suis sous Office 2010/Win7

[Theze]

Bonjour,

Pour supprimer les espaces en début et fin de cellule, il y a la fonction "Trim" sinon, regarde si ceci te convient :

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
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
 
 
    'défini la plage en colonne K par rapport à la colonne B
    With Worksheets("Deployed")
 
        Set Plage = .Range(.Cells(1, 11), .Cells(.Cells(.Rows.Count, 2).End(xlUp), 11))
 
    End With
 
    For Each Cel In Plage
 
        'Cel.Value = Trim(Cel.Value) '<---ceci permet de supprimer les espaces en début et fin de cellules
 
        If Cel.Value Like " *" Then
 
            Cel.Interior.ColorIndex = 3
            Cel.Offset(, -Cel.Column + 1).Value = "X"
 
        End If
 
     Next Cel
 
End Sub

Hervé.

[XLRATOR]

Il est possible de le faire sans recourir au VBA, Une formule qui renvoie une croix dans la colonne A selon condition, et appliquer le format conditionnel (Couleur Rouge) aux cellules de la colonne K selon condition également.

Je vous l'illustre dans le fichier joint.

Cordialement.
Karim

[lps02]

Bonsoir

tu peux aussi essayer ceci (exemple avec les valeurs à tester en colonne B)

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
Sub test()
Dim i As Long
Sheets("Deployed").Select
Range("A1").Select
 
i = 1
While Range("B" & i).Value <> ""
     If Range("B" & i).Value Like " *" Then
        Range("B" & i).Interior.ColorIndex = 3
        Range("A" & i).Value = "X"
     End If
     i = i + 1
 Wend
 
 End Sub

Cordialement
lps02

[toto92]

Finalement je code :

Code :

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

1
2
3
4
5
6
7
 
 For Each Cell In Range("K2:K" & NB_DEPLOYED & "")
     If Cell.Value Like " *" Then
        Cell.Interior.ColorIndex = 3
        Cell.Offset(, -10).Value = "X"
     End If
 Next

Merci à tous !