> Tous les forums > Forum Autres langages
 macro sous excelSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
emanemos
  Posté le 06/06/2008 @ 16:37 
Aller en bas de la page 
Petit astucien

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 ?

Publicité
davidouandco
 Posté le 13/06/2008 à 18:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

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

davidouandco
 Posté le 13/06/2008 à 18:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

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

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
-5 € / -30 €5 € dès 29 €, 30 € dès 299 € chez Rakuten
Valable jusqu'au 09 Mai

Rakuten offre aujourd'hui 5 € de réduction dès 29 € d'achats sur son site avec le code RAKUTEN5 et 30 € de réduction dès 299 € d'achats avec le code RAKUTEN30. Sachant que des boutiques françaises comme BoulangerUbaldi ou encore Samsung vendent sur Rakuten aux mêmes conditions que dans leurs magasins, cela peut être intéressant.


> Voir l'offre
5,99 €Opération Le Printemps des comics 2021 : sélection de comics à 5,99 €
Valable jusqu'au 11 Mai

Amazon participe à l'opération Le Printemps des comics 2021 où une sélection de comics vous est proposée à 5,99 €. Vous trouverez Venom, Spiderman, Haweye, Thanos, Thor, Hulk, Daredevil, Wolverine, ...


> Voir l'offre
173,68 €Tablette 10.4 pouces Galaxy Tab A7 2020 (8 coeurs, 32 Go, Wifi, WUXGA+, RAM 3 Go) à 173,68 € livrée
Valable jusqu'au 09 Mai

Amazon Allemagne fait une promotion sur la tablette 10.4 pouces Samsung Galaxy Tab A7 2020 qui passe à 186,46 € (avec la TVA ajustée). Comptez 5,64 € pour la livraison en France soit un total de 192,10 € livrée. On la trouve ailleurs à plus de 230 €. Cette tablette possède un écran 10.4 pouces WUXGA+ (2000x1200 pixels), un processeur octa-core 2 GHz, 3 Go de RAM, un espace de stockage de 32 Go extensible par MicroSD, le WiFi, le bluetooth et tourne sous Android 10.

La tablette pourra être mise en français dès le premier démarrage et vous bénéficiez d'une garantie européenne de 2 ans. Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane.


> Voir l'offre

Sujets relatifs
Apprendre les bases du langage VBA sous Excel
problème macro excel
Macro vb excel
Passer d'une simulation JAVA sous Excel
Fermeture excel sous VB6
Besoin d'aide VB sous Excel
Macro excel : regrouper plusieurs fichiers
appeler des touches clavier dans une macro Excel
macro excel
petit probleme de macro excel/word
Plus de sujets relatifs à macro sous excel
 > Tous les forums > Forum Autres langages