aide sur rechercher vba

Version imprimable

19/11/2009, 12h32
fpouzou

aide sur rechercher vba

bonjour

j'ai un probleme dans mon code sur la fonction rechercher elle ne marche pas elle reste bloquer sur la feuille data et je voudrais qu'elle ne tienne pas compte de certaine feuille de mon classeur et de la meme maniere si je masque la feuille data elle bug

merci de votre aide

Le code ce trouve plus bas.
19/11/2009, 13h39
melouille56

Salut,
est-ce que tu peux mettre ton code s'il te plait
Certains comme moi ne peuvent pas télécharger, donc on ne peut pas t'aider.
a+
19/11/2009, 14h42
Gorfael

Salut fpouzou, melouille56 et le forum

Citation:

est-ce que tu peux mettre ton code s'il te plait
Certains comme moi ne peuvent pas télécharger, donc on ne peut pas t'aider.

Je dirais même plus, même en téléchargeant ton projet, je n'ai réellement pas envie de rechercher ta fonction "en panne" dans les 2 USF et les 3 modules. Perdre mon temps pour comprendre l'intégralité d'un projet qui ne me concerne pas ne fait pas partie de mes projets :P.
A+
19/11/2009, 14h48
ucfoutu

Bonjour,
+1
Savoir isoler et exposer une difficulté est sans aucun doute la marque de la compréhension de ce que l'on a soi-même fait et écrit...

Je peux parfaitement comprendre que tu n'ais pas de temps à perdre avec les projets de cette communauté "Gorfael" et certainement "ucfoutu" savoir isoler et exposer une difficulté est........ Mais être conscient que l'on est ignorant est un grand pas vers le savoir, voilà pourquoi je demande de l'aide sur cette macro, j'ai mis le lien en partage pour ceux qui peuvent effectivement m'aider, mais si le code ce suffit a lui même alors le voilà avec grand plaisir :)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Sub recherche() Dim Plage As Range, Cellule As Range Dim wsBD As Worksheet, Trouve As Boolean Dim Y As Integer On Error GoTo a Set wsBD = Sheets(UserForm1.TextBox7.Value) Set Plage = wsBD.Range("J2:J" & wsBD.Range("J65536").End(xlUp).Row) wsBD.Activate Trouve = False For Each Cellule In Plage If (UserForm1.TextBox7.Value) And (Cellule.Offset(0, 4).Value = UserForm1.TextBox7.Value) Then With UserForm1 .TextBox7.Value = Cellule.Offset(0, 7).Value ' tel du contact .CheckBox1.Visible = True End With Trouve = True Cellule.Select Exit For End If Next Cellule If Not Trouve Then MsgBox "Aucun éléments trouvés pour la date du" & " " & UserForm1.TextBox7.Value & Chr(10) & "concernant le fournisseur" & " " & UserForm1.ComboBox1.Value, vbInformation 'protection_feuilles a: If Err.Number = 9 Then: Exit Sub End Sub
Une derniere petite chose "Savoir partager son temps, c'est savoir jouir de la vie."

si tu masque ta feuille
cette ligne bug:

Code:

wsBD.Activate

(activer une feuille masquée)
une remarque, tu définit plage sur colonne j et tu fais (à l'aide d'offset) la recherche sur la colonne n!
Tu peux aussi utiliser .Find, c'est plus rapide en moins de lignes de code (exemple):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 dim plage as range, c as range if UserForm1.TextBox7.Value<>"" then on error goto a Set wsBD = Sheets(UserForm1.TextBox7.Value) set plage = wsBD.Range("n2:n" & wsBD.Range("n65536").End(xlUp).Row) Set c=plage.find(UserForm1.TextBox7.Value) if not c is nothing then With UserForm1 .TextBox7.Value = c.Offset(0, 3).Value ' tel du contact .CheckBox1.Visible = True End With endif endif

20/11/2009, 02h45
Gorfael

Salut fpouzou et le forum

Citation:

Je peux parfaitement comprendre que tu n'ais pas de temps à perdre avec les projets de cette communauté "Gorfael" et certainement "ucfoutu" savoir isoler et exposer une difficulté est........

Je ne crois pas que tu ais compris ce que je voulais dire.

Citation:

Une derniere petite chose "Savoir partager son temps, c'est savoir jouir de la vie."

Je ne partage pas mon temps sur les forum : je le donne. Quelques fois, j'en retire quelques bénéfice, hormis la satisfaction d'avoir réussi un dépannage.
Quand je veux suivre un jeu de piste, j'ai des logiciels pour ça, avec des énigmes, des astuces à trouver.
Trouver une macro dans un classeur me fait perdre mon temps, alors que le demandeur n'a même pas eut le courage de mettre "c'est la macro X dans le module Y", alors qu'il a plein de temps pour reprocher qu'on demande des renseignements.

Avant de penser à donner des leçons, je regarde à qui j'ai à faire : 3 sujets, 8 postes, pas une seule réponse, que des questions. On ne doit pas avoir la même conception du mot "partage".
Mais il est vrai que je n'ai pas "de temps à perdre avec les projets de cette communauté".
Juste un truc en passant
Tu as un test que je ne comprends pas. Ne disposant plus du fichier je ne peux regarder ce que devrait être les valeurs

Code:

If (UserForm1.TextBox7.Value) And (Cellule.Offset(0, 4).Value = UserForm1.TextBox7.Value) Then

C'est un test logique, donc on peut simplifier en : If A and B = A Then => ce qu'on peut simplifier en If B then, ayant un opérateur logique, pour que le test ait un sens, il faut que les variables soient Booléennes. Ce qui donne

Code:

If (Cellule.Offset(0, 4) Then

Mais je peux me tromper
Au revoir et bon dépannage