visual basic (pb) Résolu

Question

Bonjour à toutes et a tous!

Voila je vous explique mon souci : Je veux ajouter dans mon programme un code permettant de me prévenir par un message box s'il existe 2 fois le même numéros de fiche dans une colonne!

moi g mis ceci mais il ne se passe rien :

            For j = 1 To nbcolonne
                If TextBox1.Text = Range("A13").Cells(j + 1, 1).Value And TextBox1.Text <> "" Then
                            MsgBox "code deja existant", , ["Erreur code"]
                            Alim.Show
                Else
                    Alim.Hide
                End If
            Next

Donc comme je débute sous visual basic je me demandais si quelqu'un pouvais m'aider!
Voila a+ et merci d'avance.

cs_MPi · Accepted Answer

Ce serait donc quelque chose comme ceci
Dim Recherche as Range

'vérifier si Textbox1 est vide
If Textbox1 = "" then Exit sub  ' on sort si le textbox est vide ... à toi de voir

'Recherche dans la première feuille la valeur de textbox1
Set Recherche = Sheets("suivi alim").Columns("A:A").Find(Textbox1.Text)
If Not Recherche Is Nothing Then  ' trouvé
    msgbox "Le code a été trouvé à cette adresse: " & recherche.address
    ' ...............................
Else  
    '  l'item n'a pas été trouvé et la recherche se fera sur la feuille suivante

    Set Recherche = Sheets("suivi moyens électriques").Columns("A:A").Find(Textbox1.Text)
     If Not Recherche Is Nothing Then  ' trouvé
        msgbox "Le code a été trouvé à cette adresse: " & recherche.address
    Else  
        '  l'item n'a pas été trouvé et la recherche se fera sur la feuille suivante


        Set Recherche = Sheets("suivi moyens mécaniques").Columns("A:A").Find(Textbox1.Text)

        If Not Recherche Is Nothing Then  ' trouvé

            msgbox "Le code a été trouvé à cette adresse: " & recherche.address
         Else
                'Le code n'existe pas
        End If       ' Fin 3e IF
    End If            'Fin 2e IF
End if                 'Fin 1er IF

MPi

drikce06 · Answer

Salut pourquoi cells(j+1,1)? et pourquoi And TextBox1.Text <> "" mais cette condition avant au moins tu ne fais la boucle si la textbox est vide!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

drikce06 · Answer

TextBox1.Text = Cells(j + 1, 1).Value Sans le range c'est mieux aussi!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

steven_tpnd · Answer

Slt!
g fait les modif ktu ma di donc le code me donne ceci : 

            For j = 1 To nbcolonne
                If TextBox1.Text <> "" And TextBox1.Text = Cells(j + 1, 1).Value Then
                            MsgBox "code deja existant", ["Erreur code"]
                            Alim.Show
                Else
                    Alim.Hide
                End If
            Next
mais le souci c'est que je ne sait pas si j'utilise ce code correctement!

Pour cells(j+1, 1) ce n'est pas pour incrémenter dans chaque cellule de la colonne??

Et pour l'autre c'est car je veu qu'une petite fenêtre s'ouvre avec un message box si le code existe déja afin de me prévenir!

Mais je ne sait pa tro si c la bonne méthode car sa fè 1 semaine que jme met à visual basic!jdébute é c cho par moment!

Voila A+

drikce06 · Answer

j est déjà incrémenté par For ... Next

If TextBox1.Text <> ""  Then

        For j = 1 To nbcolonne
                If TextBox1.Text = Cells(j , 1).Value Then
                            MsgBox "code deja existant", ["Erreur code"]
                            Alim.Show
                Else
                    Alim.Hide
                End If
            Next

End If

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

drikce06 · Answer

Sinon pourquoi:

If condition Then

'Soit elle n'est pas affiché tu veux l'afficher
Form.Show

Else

'si elle est pas affichée pas besoin de la cachée, elle l'est déjà
Form.Hide

End If

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

steven_tpnd · Answer

RE:

Cela ne fonctionne tjr pas et quand je fais une execution pas à pas il ne rentre même pas dans la boucle for!

pourtant je met déja une valeur éxistante de la colonne A!

donc il saute la boucle for et continu l'execution!

voila a+

drikce06 · Answer

Tu as une valeur dans la textbox?

If IsEmpty(TextBox1.Value) = False Then
For j = 1 To nbcolonne
                If TextBox1.Text = Cells(j , 1).Value Then
                            MsgBox "code deja existant", ["Erreur code"]
                            Alim.Show
                Else
                    Alim.Hide
                End If
            Next
End If

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

steven_tpnd · Answer

Re!
Je voudrais savoir se que la condition If TextBox1.Text <> ""  exige car cela correspond a quoi TextBox1.Text??

C'est le message que l'on veu mettre dans la fenètre de message box??

ou complètement autre chose?

A+

cs_MPi · Answer

Essaie avec Find

Dim Recherche as Range
If Textbox1 = "" then Exit sub  ' on sort si le textbox est vide ... à toi de voir
'Recherche dans la colonne A
Set Recherche = Activesheet.Columns("A:A").Find(Textbox1.Text)
If Not Recherche Is Nothing Then  'trouvé
    Alim.SHow
Else
'  inexistant
   Alim.Hide
End if

MPi

cs_MPi · Answer

J'aurais pu ajouter
If Not Recherche Is Nothing Then  'trouvé
msgbox "Valeur trouvée en " & Recherche.Address

MPi

steven_tpnd · Answer

Bjr MPi.

ba écoute jveu bien essayer ta solution ya aucun souci!

Mais g pa tout tout saisi ta solution car tu veu ajouter koi??

Ton code final donnerais koi?Avec les deux bouts réuni?

A+

cs_MPi · Answer

Ben j'ai pas très bien compris ton idée non plus...
On est donc deux

D'après ce que je peux voir de ton code, tu veux entrer un item, disons, mais tu veux vérifier si cet item inscrit dans Textbox1 existe déjà, c'est bien ça ?

Dim Recherche as Range

'vérifier si Textbox1 est vide
If Textbox1 = "" then Exit sub  ' on sort si le textbox est vide ... à toi de voir

'Recherche dans la colonne A la valeur de textbox1
Set Recherche = Activesheet.Columns("A:A").Find(Textbox1.Text)
If Not Recherche Is Nothing Then  ' trouvé
    msgbox "Le code a été trouvé à cette adresse: " & recherche.address
    ' et là tu fais ce que tu veux si l'item est déjà là
Else
'  l'item n'a pas été trouvé et tu sais mieux que moi quoi faire
End if

MPi

cs_MPi · Answer

Ceci étant dit, si ton problème est de trouver des doublons dans une liste,
le mieux est de trier la liste sur la colonne contenant une valeur unique ou supposée unique

Une fois la liste triée, tu boucles à partir de la fin et tu remontes (si tu veux éliminer des lignes) 
Si tu ne veux pas éliminer de lignes , tu pars dans le sens que tu veux

exemple pour trouver des doublons dans la colonne A, après tri
For i =  nbLignes to 2 step - 1
If range("A" &  i )  = Range("A" & i - 1) then
    ' il y a doublon aux lignes i et i-1
end if

MPi

steven_tpnd · Answer

Bjr MPi

Ben en faite se que je recherche c'est de voir si dans la colonne A il existe déja le numéro de fiche que je rentre dans la cellule A13!

Le code que tu m'as donné est très bien et cela marche mais seuleument pour la feuille nommé "suivi alim" et moi je voudrais étendre se code à 2 autres feuilles "suivi moyens mécaniques" et "suivi moyens électriques" et dans la même colonne A afin de voir si il n'y a pas 2 fois le même numéro de fiche dans les 3 feuilles différentes.

Donc ba j'espère que je suis clair dans mais explication et ktu vas mieu comprendre se que je recheche!!

A+

cs_MPi · Answer

Concernant le bout de code que tu as mis en début de message:
If TextBox1.Text =  Range("A13").Cells(j + 1, 1).Value

Tu dois modifier ceci (Range("A13").Cells(j + 1, 1))
par
Range("A13"). Offset (j + 1, 0)
ou
Cells(j + 1, 0)  ' sachant que J > = 13

Le zéro est pour demeurer dans la colonne A
Si tu mets 1, la lecture se fera dans la colonne B
Avec des formules Excel (sur une feuille), c'est un peu différent, puisque 1 est l'index de la ligne ou de la colonne où on se trouve... mais en VBA, c'est 0

MPi

steven_tpnd · Answer

Ba moi g changé totalement le code du début car g pri ta solution avec FIND!!

Maintenant g cela :

        Dim Recherche As Range
        
            If TextBox1 = "" Then Exit Sub  'on sort si le textbox est vide
            
                'Recherche dans la colonne A
                Set Recherche = ActiveSheet.Columns("A:A").Find(TextBox1.Text)
                    
                    If Not Recherche Is Nothing Then
                        'trouvé
                        MsgBox "Fiche de vie déja utilisée" & Recherche.Address
                    Else
                        'inexistant
                        MsgBox "Fiche de vie non utilisée"
            End If

Mais je veux que se code se fasse dans "suivi alim" colonne A et aussi dans "suivi moyens mécaniques" colonne A et "suivi moyens électriques" colonne A!
Voila A+

cs_MPi · Answer

Tu n'as plus qu'à changer Activesheet par le nom de la feuille où tu veux faire la recherche
Set Recherche = Sheets("suivi alim").Columns("A:A").Find(TextBox1.Text)

et tu refais une autre recherche avec le nom d'une autre feuille, et ainsi de suite.

ou bien, avant de faire la recherche, tu actives la feuille - Sheets("suivi alim").Activate - dans laquelle tu fais la recherche et tu continues d'utiliser ActiveSheet...

et si ta recherche doit se faire dans une autre colonne, change Columns("A:A") pour celle où la recherche doit être faite.

Est-ce que c'est plus clair ?

MPi

steven_tpnd · Answer

Re.
Oui c très clair mais j'ai toujours un souci car je recherche dans trois feuilles différentes et mon programme marche bien pour 2 mais pas les trois c'est bizarre!!

Mon code est le suivant :

        Dim Recherche As Range
                
            If TextBox1 = "" Then Exit Sub  'on sort si le textbox est vide
                        
                'Recherche dans la colonne A :
                
                Set Recherche = Sheets("suivi alim").Columns("A:A").Find(TextBox1.Text)
                Set Recherche = Sheets("suivi moyens électriques").Columns("A:A").Find(TextBox1.Text)
                Set Recherche = Sheets("suivi moyens mécaniques").Columns("A:A").Find(TextBox1.Text)


                    
                    If Not Recherche Is Nothing Then
                    
                    'trouvé :
                        
                        MsgBox "Fiche de vie déja utilisée" & Recherche.Address
                        
                    Else  ........

Il marche pour "suivi alim" et "suivi moyens mécaniques" mais pour la suivante donc "suivi moyens électriques" il ne trouve pas et fait l'instruction comme si il ne trouvait pas de fiche de vie éxistante!

cs_MPi · Answer

Non, non, non

Ce que je t'expliquais, c'est de faire une recherche "complète" sur sur une feuille, ensuite faire une autre recherche sur une autre feuille....

Explique plus précisément la raison de ces 3 recherches.
Est-ce que tu cherches à savoir si la valeur de textbox1 se trouve dans une des trois feuilles ou dans chacune des trois feuilles ... ?

Dans un ou l'autre des cas, explique ce que tu dois faire si la valeur est trouvée et/ou non trouvée.

La façon dont tu procèdes ne fonctionnera que sur la dernière feuille (suivi moyens mécaniques)
En faisant:
set recherche = ...     recherche de feuille 1
set recherche = ...     écrase la première recherche 
set recherche = ...     écrase la deuxième recherche
If Not recherche is nothing  <= ici recherche ne concerne que le dernier appel

Tu dois soit mettre des else si la recherche ne trouve rien ou stocker des valeurs Vrai/Faux si la recherche est fructueuse, selon le cas. Et c'est pourquoi je demande plus de précisions sur tes besoins.

MPi

steven_tpnd · Answer

En faite se que je recherche c'est de savoir si la valeur que je rentre dans la cellule A13 se trouve dans une des trois feuilles mais je n'est besoin que de rechercher dans la colonne A de chacune des trois feuilles car le numéro que je cherche est forcément dans la colonne A.

Et si il y a découverte du même numéros de fiche dans ce cas la je ne fait rien (il n'y a qu'une message box qui s'affiche pour dire que le numéro existe déja).

En revanche si il n'y a pas de fiche éxistante alors j'ai mon programme qui se déroule c'est à dire que j'insère une ligne et j'ai une fenètre user form qui s'ouvre pour renseigner la ligne.Puis création d'un lien dans la cellule A13.

Voila j'espère avoir été clair dans mes explications.

A+

Steven

steven_tpnd · Answer

Bjr MPi
Merci ton code marche à merveille.

Maintenant j'aimerais avoir des renseignement concernant les liens hypertextes car j'ai un code qui fonctionne mais je dois passer par un bouton de commande USERFORM pour aller à la bonne feuille et je voulais savoir s' il etait possible que j' aille directement à un numéro de fiche sans passer par un bouton de commande?

J'ai le code suivant dans le user form :

Private Sub CommandButton1_Click()


    'Activé la feuille correspondant à la valeur de la cellule A13 du classeur Fichesdevies depuis la valeur de la cellule A13 de la feuille suivi alim du classeur SUIVI...:'


        Workbooks("Fichesdevies").worksheets(CStr(Workbooks("SUIVI ETALONNAGE MSR STEVEN").worksheets("suivi alim").Range("A13").Value)).Activate


        LienHAlim.Hide


End Sub


Private Sub CommandButton2_Click()


        LienHAlim.Hide


End Sub

Et j'aurais une seconde questions en ce qui concerne d'attribuer à partir d'un user form qui me permet d' inscrire dans la colonne 13 des donnée concernant des moyens de mesure (n° de fiche, nom, type, constructeur, n°série, etc...) si je pouvais à partir de cet colonne et du programme envoyer  :

Par exemple le contenu de "B13" de la feuille "suvi alim" du classeur "suivi msr steven" vers la cellule "E5" de la feuille "457" du classeur "fichesdevies" et que cela se fasse a chaque entrer de nouveau moyens de mesures et en fonction du n° de fiche.
Si fiche n°545 alors écriture dans fiche 545 des différentes variables de la colonne 13 dan s la fiche 545!

Je me doute bien que je n'est pas été forcément très clair dans mes explications et m'en excuze!

A+

cs_MPi · Answer

Le mieux, c'est de démarrer d'autres messages avec préférablement une seule question par message. De plus, si une ou plusieurs réponses ont résolu ton problème, clique le bouton "Accepter" sur ces messages pour que les autres personnes soient au courant.

Ceux qui cherchent des réponses à des problèmes semblables sauront qu'ils peuvent y trouver une réponse acceptable. Et ceux qui répondent à des problèmes ne perdront pas leur temps à relire les messages déjà réglés.

N'oublie pas que, plus une question est claire, plus tu auras de chances de recevoir une réponse rapide et claire.

MPi

Visual basic (pb)

23 réponses

Votre réponse

Discussions similaires