Macro : pas de plantage, mais ça va pas

[Spock]

Bonjour toutes et tous,

La macro suivante fonctionne sans plantage :

Private Sub Worksheet_Activate()

Set p = Sheets('Historique').Range('A2:A65000')

For Each c In p
If c = '' Then Exit Sub
pont = c
GoSub suite

Next c
Exit Sub

suite:
Set n = Sheets('Historique').Range('A2').CurrentRegion
For Each x In n
If pont = x Then
If x.Next.Next.Formula = 'Out of Use' Then
Sheets('statut').Range('B_' & pont).Interior.ColorIndex = 3

End If

End If
Next x
Return

End Sub


Mais dans les lignes
If x.Next.Next.Formula = 'Out of Use' Then
Sheets('statut').Range('B_' & pont).Interior.ColorIndex = 3

End If
Bien que x.Next.Next.Formula soit bien 'Out of Use', il ne passe pas a l'instruction suivante.
Bizarre.

Une idée ? Merci..

 

[_Thierry]

Bonjour Mr Spock, le Forum

D'après ce que je vois dans l'aide VBA, pour Next Method :

Returns a Comment object that represents the next comment.

Je ne saisis pas vraiment ton histoire ? Un fichier démo serait un plus je pense ?

Mes amitiés au Capitaine Kirk
Bon Appétit
[ol]@+Thierry[/ol]

 

[pierrejean]

bonjour spock

une hypothese

x.next.next t'envoies a 2 cellules sur la meme ligne

est-bien ce que tu souhaites ??

a essayer plutot le mode offset(0,2) ou offset(2,0) dont on sait bien ou l'on va

 

[Spock]

Re bonjour tous,

pierrerjean : oui x.next.next m'envoie a la 2 ieme cellule non verouillé. Avec offset, faut activer la feuille, pas bien ça.

thierry, .next revoie a la premiere cellule de droite non verouillée.

.previous, a la premiere cellule de gauche non verouillée.

Jamais trouvé pour au dessus en dessous.

Quand a mon prob, j'ai fait une erreur de casse.

J'ai noté 'Out of Use' au lieu de 'Out of use'.
Sujis tomber dessus par hazard, désolé de vous avoir embetés. Merci encore.