Aide pour résoudre un blème avec un code VBA

Résolu/Fermé

bitbit Messages postés 9 Date d'inscription vendredi 23 novembre 2012 Statut Membre Dernière intervention 10 juin 2015 - 9 juin 2015 à 15:55
bitbit Messages postés 9 Date d'inscription vendredi 23 novembre 2012 Statut Membre Dernière intervention 10 juin 2015 - 9 juin 2015 à 19:02

Merci mérité aux promoteurs et acteurs de ce forum

Regardez ce code

Sub MacroSearch()

'( Cells(3, 1) correspond à la cellule A3,
'Cells(4, 1) correspond à la cellule A4 ... etc... )

Dim x As Integer
Dim info%

'La variable x va successivement prendre les valeurs 12 à 32500
For x = 12 To 32500

If Cells(x, 3).Value = Cells(4, 3).Value Then
Cells(x, 6).Select
info = MsgBox("Attention! : Etes -vous responsasable de cette opération?" & Chr(10) _
& "Oui pour continer, et Non pour arrêter l'opération.", vbInformation + vbYesNo, "Votre assistant.")

If info = vbNo Then

Cells(4, 5).Select
End If
End If
Next x
End Sub

MOM PROBLEME
Quand j'étends le For x = 12 T0 32500 à plus de 36000 , la macro sort ses griffes contre moi malheureusement je n'ai aucune remède Aidez-moi

Tu me trouve la réponse et te donne ma grand mère en mariage gratis, si tè une fille j t'épouse d'emblée
M6

A voir également:

Aide pour résoudre un blème avec un code VBA
Code asci - Guide
Code puk bloqué - Guide
Comment créer un qr code - Guide
Comment déverrouiller un téléphone quand on a oublié le code - Guide
Code activation windows 10 - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
Modifié par f894009 le 9/06/2015 à 16:02

Bonjour a vous et votre grand-mere,

Dim x As Integer

Nombre entier de -32768 à 32767.

donc 36000 passe pas

Dim x As Long

- 2147483648 à 2147483647

la, y a de la marge

bitbit Messages postés 9 Date d'inscription vendredi 23 novembre 2012 Statut Membre Dernière intervention 10 juin 2015
9 juin 2015 à 16:25

Sorry j'ai vu. j'éssaye et je vous recontacte A+

Réponse 2 / 3

bitbit Messages postés 9 Date d'inscription vendredi 23 novembre 2012 Statut Membre Dernière intervention 10 juin 2015
9 juin 2015 à 16:23

Me proposes - tu autre solution pour chercher les données dans les mêmes conditions?

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
9 juin 2015 à 16:34

Re,

pas compris ce que vous demandez

bitbit Messages postés 9 Date d'inscription vendredi 23 novembre 2012 Statut Membre Dernière intervention 10 juin 2015 > f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024
9 juin 2015 à 17:24

J'ai essayé. Il est lent. Le le comprend il parcours toutes les lignes même après avoir trouvé la valeur cherché. Peut on le stopper lorsqu'il trouve la valeur? puisque il n y a pas de doublon

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711 > bitbit Messages postés 9 Date d'inscription vendredi 23 novembre 2012 Statut Membre Dernière intervention 10 juin 2015
9 juin 2015 à 17:50

Re,

Sub MacroSearch()
    '( Cells(3, 1) correspond à la cellule A3,
    'Cells(4, 1) correspond à la cellule A4 ... etc... )
    Dim x As Long
    Dim info%
    'La variable x va successivement prendre les valeurs 12 à 32500
    For x = 12 To 32500
        If Cells(x, 3).Value = Cells(4, 3).Value Then
            Cells(x, 6).Select
            info = MsgBox("Attention! : Etes -vous responsasable de cette opération?" & Chr(10) _
                            & "Oui pour continer, et Non pour arrêter l'opération.", vbInformation + vbYesNo, "Votre assistant.")

            If info = vbNo Then
                Cells(4, 5).Select
                Exit Sub
            End If
        End If
    Next x
End Sub

Réponse 3 / 3

bitbit Messages postés 9 Date d'inscription vendredi 23 novembre 2012 Statut Membre Dernière intervention 10 juin 2015
9 juin 2015 à 19:02

Quel Ignorance??????
Un Exit Sub. Pas encore essayé mais cè rassurant
M6 pour l'accompagnement.
Soit heureux J'informe tt suite ma Grd Mère. Ok

Discussions similaires

Codes bateaux et avion GTA vice city Stories

Jeu avec réponses à donner

code ascii

code d'activation GTA 5 steam