Aide pour résoudre un blème avec un code VBA
Résolu
bitbit
Messages postés
9
Date d'inscription
Statut
Membre
Dernière intervention
-
bitbit Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
bitbit Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
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
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 ascii - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Comment créer un qr code - Guide
3 réponses
Bonjour a vous et votre grand-mere,
donc 36000 passe pas
la, y a de la marge
Dim x As IntegerNombre 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
Statut
Membre
Dernière intervention
Sorry j'ai vu. j'éssaye et je vous recontacte A+
Me proposes - tu autre solution pour chercher les données dans les mêmes conditions?
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