nbcar en vba + offset

[vistla]

Bonjour cher forum!

j'ai eu beau chercher sur le forum la solution, mais je galère..

Voici : Je voudrais en VBA que pour chaque cellule dans le range G9:G1000, que excel vérifie ne nombre de caractère de chaque cellule. Si la cellule a 13 caractères, j'aimerais que la cellule à côté d'elle (H9) soit effacé. Si elle n'a pas 13 caractères, ne rien faire.

-----
Voici mon code :
Sub Test_SAP()

Range("G9").Select

For Each Cell In Range("G9:G1000")

If Len(Cell.Value) = 13 Then
ActiveCell.Offset(0, 1).Value = ""

End If
Next


End Sub


malheureusement, cela ne fonctionne pas. Le code va à G9, et efface H9 peut importe le nombre de caractère, et en plus, elle ne va pas vérifier G10 et les suivantes..

Quelqu'un a la solution?

Merci de votre aide !

 

[Theze]

Re : nbcar en vba + offset

Bonjour,

Teste ceci :

Sub Test_SAP()
    
    Dim Cel As Range
    
    For Each Cel In Range("G9:G1000")
    
        If Len(Cel.Value) = 13 Then Cel.Offset(, 1).Value = ""
    
    Next

End Sub

Hervé.

 

[vistla]

Re : nbcar en vba + offset

Nickel ! Merci beaucoup !

je n'étais pas loin !

 

[tbft]

Re : nbcar en vba + offset

Bonjour

L'instruction ActiveCell renvoi la cellule active....