Discussion :

[fpouzou]

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.

[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+

[Gorfael]

Salut fpouzou, melouille56 et le forum

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 .
A+

[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...

[fpouzou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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."

[mercatog]

si tu masque ta feuille
cette ligne bug:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Gorfael]

Salut fpouzou et le forum

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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

If (Cellule.Offset(0, 4) Then

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