Discussion :

[Chernobyl123]

j'ai essaye de cree un formulaire de recherche sur excel 2007 a partie de ce code :
c'est un formulaire avec une textbox (ou il faut rentrer le terme ou les mot cles que l'on cherche),une listbox(ou s'affiche les resultats) et un un bouton de commande(pour lancer la recherche),le code ci-dessous est celui que j'ai mis dans le bouton de commande.
le formulaire étant présent sur la feuille TDB doit faire ses recherches sur la feuille source.
le document excel est compose de 2 feuilles,une feuille ''TDB'' et une feuille ''source''.
le problème c'est que des que je lance la recherche ca me donne : ''erreur de compilation : argument nomme introuvable'' et c met ''Private Sub CommandButton1_Click()'' en jaune.
rappel que je suis qu'un simple beginner,donc je vous remercie d'avance pour des réponses amiable pour les débutants.

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
29
30
31
32
33
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim lastrow As Long
Dim str As String
Dim rng As Range, rng2 As Range
Dim firstcell As String
 
Set ws = Sheets("source")
lastrow = ws.Range("P" & Rows.Count).End(xlUp).Row
str = TextBox1.Value
 
Set rng = ws.Range("P1:P" & lastrow).Find(What:=str, Lookln:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, Searchformat:=False)
 
If Not rng Is Nothing Then
    ListBox1.AddItem rng.Address
    firstcell = rng.Address
    Set rng2 = rng
 
    Do
        Set rng2 = ws.Range("P1:P" & lastrow).FindNext(after:=rng2)
        If Not rn2 Is Nothing Then
            If rn2.Address = firstcell Then Exit Do
            ListBox1.AddItem rng2.Address
        Else
            Exit Do
        End If
    Loop
 
Else
    Exit Sub
End If
 
End Sub

le code que j utilise pour ouvrir le formulaire est :

Code :

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

1
2
3
4
5
6
Sub Rectangleàcoinsarrondis1_Clic()
 
Main.Show
Main.TextBox1.SetFocus
 
End Sub

VBA - Copie.xlsm

[joe.levrai]

Bonjour,

je suis interpellé par la façon dont est écrit ceci

Code :

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

Searchformat:=False

format devrait être avec un F majuscule.

As-tu rigoureusement copié ton code tel qu'il est dans l'éditeur VBA ou recopié manuellement ?

Retire ce paramètre et réessaye, et vérifie surtout que tu n'as aucune variable qui s'appelle ainsi

Par ailleurs, sauf besoins optiques de ma part, ton paramètre "LookIn" semble être écrit avec la lettre "l" à la place du "i" majuscule

[Chernobyl123]

Pour ceux qui préfère consulter directement le fichier excel,il suffit juste de fermer le formulaire ''login'' ou si vous y arrive pas l'identifiant est admin et le mdp est 123

j'ai suivi un tuto youtube et j'ai copie le vba tel qu'il est dans l'editeur vba.
voici la vidéo tuto

Effectivement comme vous l'avez remarqué j'ai fait 2 erreurs, le lookin avec l à la place du I et le format qui aurait du être en majuscule, et en plus de ça j'ai fait des erreur banales ex : rn2 au lieu de rng2...je me sens stupide.
Voici le code qui fonctionne :

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
29
30
31
32
33
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim lastrow As Long
Dim str As String
Dim rng As Range, rng2 As Range
Dim firstcell As String
 
Set ws = Sheets("source")
lastrow = ws.Range("P" & Rows.Count).End(xlUp).Row
str = TextBox1.Value
 
Set rng = ws.Range("P1:P" & lastrow).Find(What:=str, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
 
If Not rng Is Nothing Then
    ListBox1.AddItem rng.Address
    firstcell = rng.Address
    Set rng2 = rng
 
    Do
        Set rng2 = ws.Range("P1:P" & lastrow).FindNext(after:=rng2)
        If Not rng2 Is Nothing Then
            If rng2.Address = firstcell Then Exit Do
            ListBox1.AddItem rng2.Address
        Else
            Exit Do
        End If
    Loop
 
Else
    Exit Sub
End If
 
End Sub

le problème maintenant c'est que le formulaire marche, mais dans la listbox ça affiche seulement le numéro de la cellule au lieu d'afficher le contenu.
comme ça par exemple :

[joe.levrai]

Il te suffit donc d'appliquer ce que je t'ai préconisé, tu as mal "recopié"

- retire le paramètre SearchFormat dans la mesure où tu lui affectes l'argument "False" qui est son argument par défaut
- écrit "LookIn" ("i" majuscule) au lieu de Lookln ("l" minuscule)

[Chernobyl123]

J'ai change coulmnheads a true et coulmncount a 4,comment faut-il faire pour montrer les valeurs au lieu des num cases ?
''.value''?

[joe.levrai]

Tu as édité ton post précédent en soulevant une erreur dans la restitution du contenu de la cellule, où tu as ici l'adresse

c'est normal, regarde par exemple

Code :

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

1
2
ListBox1.AddItem rng.Address
ListBox1.AddItem rng2.Address

c'est précisement ce que tu as écris, le comportement est donc correct

si tu veux le contenu, utilise la propriété .Value (valeur "standard" stockée en interne par excel) ou .Text (valeur affichée sur la feuille de calcul)

[Chernobyl123]

Je vous remercie infiniment pour votre aide précieuse !
question indiscrète si je puisse me permettre : quel études avez vous fait pour devenir expert dans l'informatique ? je suis en 2eme année d'un bac+3 management gestion mais je sais que le future repose dans l'informatique,et en plus il y'a une grande demande de la part des entreprises qui cherche des informaticiens/it guy .

[joe.levrai]

Aucun diplôme

Des nuits blanches, de la curiosité, de la motivation.... et ce superbe forum

En partant de rien, on peut aller loin, tout est question d'envie !

Si tu remontes mon historique de message, tu prendras la mesure de mon niveau lorsque je me suis inscris

Aujourd'hui, comme beaucoup d'entre-nous sur cette communauté, nous rendons la pareille aux autres

[Chernobyl123]

J'ai trouvé ceci sur internet :

Code :

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

1
2
3
Dim maVar As String 
maVar = Range("A1").Comment.Shape.OLEFormat.Object.Text
If Not Range("A1").Comment Is Nothing Then

comment faire pour intégrer ceci à mon code ? Dois-je le mettre dans le code vba du button ou de la listbox ?

''nous rendons la pareille aux autres '' très noble de votre part.

[joe.levrai]

Ceci n'est plus la problématique de la présente discussion

Je t'invite à clôturer celle-ci en marquant le sujet comme résolu et en ouvrant une nouvelle discussion portant sur l'insertion d'un commentaire dans une cellule, en indiquant précisant ce que tu souhaites faire, et l'intégralité du code visé.

Car ici il n'y en a que la moitié