Excel VBA base de données

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

re,

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

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.

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)

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"

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