× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > 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 poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
12,90 €Switch Gigabit TP-Link 5 ports métal à 12,90 €
Valable jusqu'au 29 Octobre

Amazon propose actuellement  le switch Gigabit TP-Link TL-SG105 5 ports (10/100/1000) dans un boîtier métal à 12,90 €. On le trouve habituellement autour de 17 €. 


> Voir l'offre
18,60 €Coffret Bosch X-Line Titanium de 50 pièces à 18,60 €
Valable jusqu'au 29 Octobre

Amazon fait une promotion sur le coffret Bosch X-Line Titanium de 50 pièces qui passe à 18,60 € au lieu de 30 € ailleurs. Ce pack comporte 11 forets à métaux HSS-TiN Ø 1,5-6,5 mm, 6 forets à matériaux au carbure Ø 4 -10 mm, 5 mèches à bois Ø 4-10 mm 2 mèches plates, titane, Ø 16/22 mm, 18 embouts de vissage, L = 25 mm PH 1/2/2/3 PZ 1/2/2/3 Plat 4/6/7 HEX 3/4/5/6 T 15/20/25, 3 douilles Ø 7/8/10 mm, 1 adaptateur pour douille,1 gabarit à diamètre, 1 cutter, 1 porte-embout universel, magnétique, 1 fraise conique à lamer.


> Voir l'offre
3ème offert2 jeux de société achetés = le 3ème offert
Valable jusqu'au 26 Octobre

Pour 2 jeux de société achetés sur Fnac.com, le 3ème vous est offert. Une très bonne affaire puisque vous trouverez des références comme 7 Wonders, Concept, Les Aventuriers du Rail, Pandemic, Blanc Manger coco, Dixit, 6 qui prend, Carcassone, ...


> 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