Bonjour,

je voudrais si possible le script Visual Basic pour une macro afin de rechercher la valeur "NOK" dans la colonne F et se positionner dessus et si la valeur n'est pas trouvée, aller à la cellule A1.

dans une macro, j'ai mis la commande suivante :

Columns("F:F").Select
Selection.Find(What:="NOK", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

en résumé : Rechercher la valeur NOK dans la colonne F

Si j'ai un NOK dans la colonne F : pas de problème

Si je n'ai aucun NOK dans la colonne F : j'ai une erreur d'exécution

Variable objet ou variable de bloc With non définie

Comment éviter ce bug en visual basic ?

bonjour à tous et à toutes. je suis nouveau sur le site (depuis 5 minutes environs)

je suis venu là par hasard pour trouver des bouts de codes intéressants à exploiter

et je trouve une question sans réponse qui date déjà un peu, alors je suis content de pouvoir aider quelqu'un

CODE:

Sub TAMACRO()
On Error GoTo PASTROUVE

Columns("F:F").Select
Selection.Find(What:="NOK", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Exit Sub

PASTROUVE:
Select Case Err
Case 91 'CODE DE TON ERREUR
MsgBox "PAS DE NOC TROUVE"
End Select

End Sub

FIN DU CODE

en fait tu lui dis : si tu rencontres mon erreur en question, va faire 'telle action'

(sois MSGBOX d'alerte au lieu d'un plantage, sois rien du tout mais pas de plantage)

cordialement

ben oui excuses, je viens juste de me relire

tu veux aller en A1 alors

remplace MsgBox "PAS DE NOC TROUVE" par RANGE("A1").select

cordialement