× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 problème macroSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
emanemos
  Posté le 06/06/2008 @ 12:04 
Aller en bas de la page 
Petit astucien

Bonjour,

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 ?

Merci pour votre contribution

Publicité
sourisdeservice
 Posté le 06/06/2008 à 15:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grande Maîtresse astucienne

Bonjour,

C'est pas un BUG c'est de la programation mal conçue mais moi je sais pas répondre plus

D-D-Du-06
 Posté le 06/06/2008 à 22:38 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

en attendant mieux (ou plus conforme à une "recherche"), une autre "macro" (un filtre en fait):

Sub NOK2()
Range("F1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="NOK"
End Sub

S'il n'y a pas de NOK, la liste est vide...

Voilà...

D D Du 06

D-D-Du-06
 Posté le 06/06/2008 à 23:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

ReBonjour,

une "bidouille" plus conforme cette fois:

Sub verif()
Sheets("test").Select
Dim Cell As Range
Dim Acote, I
For Each Cell In Range("F1:F9900")
If Not Cell.Value = "" Then
For I = 6 To 6
If Cells(Cell.Row, I) = "NOK" Then
Columns("F:F").Select
Selection.Find(What:="NOK", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End If
Next
End If
Next Cell

End Sub

Recherche NOK dans la colonne F de la feuille "test". Si pas de NOK, rien ne se passe...

Voilà...

A+

D D Du 06

Bérylion
 Posté le 07/06/2008 à 01:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Message original par emanemos

Bonjour,

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 ?

Merci pour votre contribution



Salut

la syntaxe est correcte, même si je lui préfère celle-ci :

VBA excel
  1. Sub test()
  2. Set trouve = Columns("F:F").Find(What:="NOK", SearchFormat:=False)
  3. Range(trouve.Address).Activate
  4. End Sub

balance le code en entier,
paske c'est pas évident de travailler sur un bout code
depuis que notre fremen nationnal (salut l'ami) a paumé sa boule de cristal...



galopin01
 Posté le 07/06/2008 à 03:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Fallait pas t'arrêter en si bon chemin :

Sub test()
Set trouve = Columns("F:F").Find("NOK")
If Not trouve Is Nothing Then trouve.Activate
End Sub

A+

Bérylion
 Posté le 07/06/2008 à 22:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

galopin01 a écrit :

Bonjour,

Fallait pas t'arrêter en si bon chemin :

Sub test()
Set trouve = Columns("F:F").Find("NOK")
If Not trouve Is Nothing Then trouve.Activate
End Sub

A+




ouais, mais vu l'horaire après ma journée de 19 heures j'étais plus vraiment concentré...


Boisgontier
 Posté le 08/06/2008 à 07:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

On Error Resume Next
Columns("F:F").Select
Selection.Find(What:="NOK", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
If Err<>0 Then
Msgbox "Inconnu"
Else
Msgbox "Ok"
End if

http://boisgontierjacques.free.fr/pages_site/cellules.htm#find

JB

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
149,99 €Ecran 24 pouces ViewSonic VX2458-C-MHD (incurvé, FullHD, 144Hz, 1ms) à 149,99 €
Valable jusqu'au 22 Septembre

Darty fait une promotion sur l'écran 24 pouces ViewSonic VX2458-C-MHD qui passe à 149,99 €. On le trouve ailleurs à partir de 170 €. Cet écran dédié aux joueurs dispose d'une dalle incurvée FullHD 1 ms à 144 Hz, un filtre lumière bleue et de la technologie anti scintillement Flicker Free. Il est compatible FreeSync, GSync et a des entrées HDMI, DP et DVI. Il intègre des haut-parleurs. 


> Voir l'offre
58,26 €SSD Crucial MX500 500 Go à 58,26 € livré
Valable jusqu'au 20 Septembre

Amazon Royaume-Uni propose actuellement le SSD Crucial MX500 500 Go à 47,99 £. Avec la conversion en euros et la livraison en France, il vous reviendra à 58,26 € livré. On le trouve ailleurs à partir de 70 €. Ce SSD salué par la critique par son rapport qualité prix imbattable offre des débits de 560 Mo/s en lecture et 510 Mo/s en écriture. Il est garanti 3 ans.

Rappelons que vous pouvez utiliser votre compte Amazon France sur Amazon UK et qu'il n'y a pas de douane.


> Voir l'offre
GratuitJeu PC Football Manager 2020 gratuit
Valable jusqu'au 24 Septembre

Epic Game Store offre actuellement le jeu PC Football Manager 2020. Football Manager 2020 est un jeu de gestion de football du studio SEGA. Prenez les commandes de votre club favori , participez à la gestion de votre club en prenant part aux transferts et en gérant vos stratégies pour emmener votre équipe au sommet.

Pour télécharger le jeu, connectez-vous sur votre compte Epic Game Store (créez-en un gratuitement si vous n'en n'avez pas) et cliquez sur le bouton Obtenir sur la fiche du jeu. Le jeu sera ajouté définitivement à votre bibliothèque et vous pourrez le télécharger ensuite quand vous voudrez. 


> Voir l'offre

Sujets relatifs
problème macro
Probleme excel - tri dans macro Excel 2007
probleme macro excel 2010
problème de macro
Problème macro open office
probleme macro fermeture de fichier !!
Problème macro
probleme avec macro sur excel 2007
Problème macro
petit problème formule ou macro
Plus de sujets relatifs à problème macro
 > Tous les forums > Forum Bureautique