Modification = Erreur !!!

[zeltron24]

Bonjour le forum,

J'ai reçu de l'aide sur un problème que j'avais et en voulant perfectionner le fichier, j'ai créé un autre souci. Aussi je fais une fois encore appel à vos connaissances (Que serais-je sans vous) afin de trouver la solution pour ce fichier.
J'y ai joint celui ci afin que vous puissiez y jeter un coup d'oeil pour m'aider dans ce dédale d'erreur.
D'avance un grand merci à vous tous.
Cordialement
zeltron24

 

[BERRACHED said]

Re : Modification = Erreur !!!

Salut,Zeltron

as-tiu essayé de mettre avavnt ton code "On Error Resume Next"

Cordialement

 

[zeltron24]

Re : Modification = Erreur !!!

Bonsoir BERRACHED said,

Ca fonctionne avec la formule, je n'ai plus d'erreur, mais par contre les résultats donnés ne correspondent pas.
Par ex: le MGbox affiche résutat trouvé en ligne 189, mais il n'y a pas le nombre de chiffres qui correspond à l'option coché.
Cordialement
zeltron24

 

[Roland_M]

Re : Modification = Erreur !!!

bonsoir

ton erreur vient de l'userform
tu as mis les 6 cases A B C D E F
il te faut donc mettre dans les propriétés de Opt6 en bas Value en True
car il t'en faut au moins une de cochée
donc comme les 6 cases sont visibles au démarage par defaut c'est donc Opt6 true

ensuite il te manque des tests de saisies dans cet userform !
savoir si c'est coché ou pas ... ne pas accepter le lancement d'une macro sans avoir au préalable vérifié les valeurs nécessaires !

Roland

 

[kjin]

Re : Modification = Erreur !!!

Bonsoir,
Un test sur les boutons

Private Sub CommandButton1_Click()
If Opt3 + Opt4 + Opt5 + Opt6 = 0 Then
MsgBox "faut sélectionner au moins un bouton"
Else
With Sheets("Feuil1")
nbre = Switch(Opt3, 3, Opt4, 4, Opt5, 5, Opt6, 6)
For Lig = 2 To .[A2].End(xlDown).Row
cpte = 0
For j = 1 To nbre
Set trouve = .Rows(Lig).Find(Me.Controls("T" & j).Value, LookIn:=xlValues, lookat:=xlWhole)
If Not trouve Is Nothing Then cpte = cpte + 1
Next
If cpte = nbre Then
MsgBox "La séquence se trouve à la ligne " & Lig
Exit Sub
End If
Next
If cpte = 0 Then MsgBox "Pas de séquence trouvée."
End With
End If
End Sub

A+
kjin

 

[zeltron24]

Re : Modification = Erreur !!!

Bonsoir le forum ainsi qu'à Roland et kjin,

Je vous remercie pour votre aide cela est vraiment sympa.
Pour tout dire, je ne connais pas grand chose dans les formules d'Excel aussi, si quelqu'un pourrait reprendre le fichier que j'y ai joins précédemment et faire les modifs comme suit cela m'aiderait énormément.
Voilà ce que je souhaiterai.
Inscrire dans l'userform mes 6 numéros.
Cochez l'option 3 4 5 ou 6 numéros, afin de trouver dans le tableau la rangée qui contiendrait l'option choisie (3 4 5 ou 6)
Enfin après acquisition, me retrouver sur la ou les rangées concernées.
Je sais, je suis un peu "compliqué" mais après plusieurs recherches un peu partout je n'ai pas trouvé de solutions.
D'avance merci à ceux qui se décarcasse pour moi.
Bonne soirée à vous tous.
Zeltron24