Excel VBA base de données Résolu/Fermé

Question

Bonjour,  

je suis actuellement en stage et je dois créer une base de données avec les fournisseurs et leurs produits sous excel car il s'agit d'une PME. Je dois cependant faire que la recherche d'une donnée soit facile et donc intégrer une feuille avec la possibilité de lancer une recherche avec des critères données. 

En plus de cela, comme je suis en stage, que je part dans quelques mois et que personne dans l'entreprise ne s'y connais en VBA, je dois faire en sorte que toute modification soit très simple à faire (donc pas sous VBA). 


J'ai commencé le code mais je suis un peu perdu car je suis débutant sous VBA. 
L'idée serait que les personnes qui me suivraient n'auraient qu'à rajouter des lignes ou colonnes et à modifier les plages déjà crées. 

J'espère que c'est assez claire. 

Voici le code que j'ai commencé 

Le but est de renvoyer à la feuille désirée et de faire en sorte que les résultats soient sélectioner avec le bouton "rechercher"


Sub cac() 

Sheets("recherche").Activate 

Dim variable 

Dim result As Range 

variable = Range("D4").Value 

If Range("A25") = True Then If Range("B25") = True Then coche = True 

If coche = wrong Then MsgBox "case non cochée" 

If coche = True Then 

Set result = Sheets("produits").Range("A1:I27").Find(variable, LookIn:=xlValues) 

End If 

End Sub 


Configuration: Windows 7 / Firefox 3.6.17 / Excel 2007

Voici le lien du document: 

http://www.cijoint.fr/cjlink.php?file=cj201106/cijFCTHe6f.xlsm 

Merci d'avance

michel_m · Answer

Bonjour,

If coche = wrong
wrong ? plutôt false
"coche" ne sert à rien

manque des end if

mais
personne dans l'entreprise ne s'y connais en VBA, je dois faire en sorte que toute modification soit très simple à faire (donc pas sous VBA). 

puis
Voici le code que j'ai commencé 

y'a un lézard...

Ctesias · Answer

Hello!    

A modifier:          

If Range("A25") = True Then 
If Range("B25") = True Then 
coche = True          

If coche = False Then MsgBox "case non cochée"          

Else          

Set result = Sheets("produits").Range("A1:I27").Find(variable, LookIn:=xlValues)          

End if
End If    
End If

En effet: Pas de wrong mais False, et la, en remplacant ton deuxieme if par un else, tu as tous les end if       


De plus, es-tu sur que : MsgBox "case non cochée"  marche et que ca ne soit pas plutot MsgBox ("case non cochée") ?      

Dim variable  Pas de string ou integer?     


If Range("A25") = True Then If Range("B25") = True Then coche = True
je ne comprend pas ce que tu veux dans la ligne... Est-ce que le true correspond à une case non vide?  

P.S à michel_m: Je vous ai envoyé un MP, l'avais-vous vu? :s

michel_m · Answer

re,

Surtout qu'avec les mises en formes conditionnelles, tu n'as pas besoin de VBA...

blackweek · Answer

Merci d'avoir répondu aussi vite.

En fait, c'est plus un boulot d'été et le patron veut que sa base de données fournisseurs et produits soit plus ordonée mais il faut que sa reste simple car à la fin de l'été (donc quand je partirais), plus personne dans l'entreprise ne sera capable de faire des modifications de cette base sous VBE.

Le but est donc que cette bdd puisse être mise à jour (sinon quel intérêt pour une entreprise) mais très facilement pour des personnes qui ne connaissent que les bases d'excel. Donc j'ai pensé que le plus simple serait de faire comme cela et ainsi il n'y aurait que les plages à modifier (pour englober les nouvelles informations).

Sinon c'est vrai que pour les fournisseurs par exemple il suffit d'aller dans la liste des plages (avec leur noms) mais bon faut que ce soit complet et plus ou moins présentable et avec un minimum de pratiques et de connaissances Excel.

Pour ce qui est du:
If Range("A25") = True Then If Range("B25") = True Then coche = True

c'est juste que je ne savais pas trop comment faire référence directement à la case à cocher donc j'ai utilisé ces cellules en tant que valeur reliée à la case à cocher.

Je vais essayer les modifs et vous donner un retour.

blackweek · Answer

Ok j'ai modifié le code et sa fonctionne:

Sub cac()

Sheets("recherche").Activate

Dim variable

Dim result As Range

variable = Range("D4").Value

If Range("A25") = True And Range("B25") = True Then

coche = True

End if

If coche = False Then

MsgBox "case non cochée"

Else

Set result = Sheets("produits").Range("A1:I27").Find(variable, LookIn:=xlValues)

End If

End Sub

Ce que j'aimerais maintenant c'est que quand je lance ma macro, si un des deux boutons n'est pas coché le message "case non cochée" apparait (ce qui est déjà le cas) et si mes deux cases sont cochées (recherche par "produits"; disons "A8") et, information désirée: détails produits), je me retrouve sur l'onglet "produits" et excel ayant selectioné la ligne correspondante au produit sélectioné via la liste déroulante (donc ici la ligne qui correspondant au produit appelé "A8" est la ligne 11)

blackweek · Answer

Merci, j'ai presque fini mon code: voici ce que cela donne si ça peut aider pour d'autres: 

Sub cac() 
Dim variable 
Dim lig 
Dim fournisseur 
Dim vari_able 
Dim leg 

If Range("type") = 0 Or Range("info") = 0 Then GoTo erreur 


variable = Sheets("recherche").Range("D4").Value 
vari_able = Sheets("recherche").Range("D6").Value 

'---------------recherche par produits 
If Range("type") = 1 Then 
     With Sheets("produits") 
          lig = .Columns(1).Find(variable, .Range("A3"), xlValues).Row 
          If Range("info") = 1 Then              ' recherche produits 
               .Activate 
               Range(Cells(lig, "A"), Cells(lig, "Z")).Select 
           Else                                                  ' recherche fournisseur 
               fournisseur = .Cells(lig, "B") 
               With Sheets("infos") 
                    .Activate 
                    lig = Columns(1).Find(fournisseur, Range("A3"), xlValues).Row 
                    Range(Cells(lig, "A"), Cells(lig, "Z")).Select 
               End With 
          End If 
     End With 
'--------------recherche par fourniseurs 
Else 
        If Range("info") = 2 Then                               ' recherche fournisseur 
            With Sheets("infos") 
                leg = .Columns(1).Find(vari_able, .Range("A3"), xlValues).Row 
                .Activate 
                Range(Cells(leg, "A"), Cells(leg, "Z")).Select 
            End With 
        Else 
            With Sheets("produits")                             ' recherche produits 
                leg = .Columns(2).Find(vari_able, .Range("B3"), xlValues).Row ' problème ici 
                If leg Is Nothing Then 
                    MsgBox "Aucune référence pour ce nom" 
                Else 
                    .Activate 
                    Range(Cells(leg, "A"), Cells(leg, "Z")).Select 
                End If 
            End With 
        End If 
End If 
Exit Sub 
erreur: 
MsgBox "choix non effectués", vbCritical 
End Sub

Voila tout fonctionne correctement sauf à l'endroit indiqué. 
Quand je ne met pas 
If leg is nothing then 
Msgbox "Aucune référence pour ce nom" 
Else 
End if

Tout va bien tant que la valeur est trouvée sinon sa beug (forcément car pas d'indication pour ce cas de figure). Donc je veut mettre un message si la valeur n'est pas trouvé avec le "if nothing" mais mon code ci-dessus me génére une erreur 91 "variable objet ou variable bloc with non définie"

Excel VBA base de données

6 réponses

Discussions similaires