Macro comptage pour suivi ?

[yoyo77]

Bonjour à tous 🙂,

J'ai un problème avec la macro ci-dessous,

j'ai en Feuil3 un tableau qui sera des stats,

😀 xhudi69 Si tu passe par ici 😀 Help Me 😉

Je n'arrive pas à comprendre ce qui bugg par d'erreur declarée mais le comptage ne fonctionne pas !🙁

Pouvez vous m'aider SVP ?

Merci 😀😎😎😎



col1 = Me.ComboBox7.ListIndex + 2

With Sheets("Feuil3")
DRL = .Range("A65500").End(xlUp).Row
For i = 2 To DRL

If ComboBox7.Value <> "" Then
If .Cells(i, 1).Value = ComboBox5.Value Then
If .Cells(i, col1).Value = "" Then
.Cells(i, col1).Value = 1
Else
vc = .Cells(i, col1).Value
.Cells(i, col1).Value = vc + 1
End If
End If
End If

If ComboBox9.Value <> "" Then
If .Cells(i, 1).Value = ComboBox5.Value Then
If .Cells(i, col1).Value = "" Then
.Cells(i, col1).Value = 1
Else
vc = .Cells(i, col1).Value
.Cells(i, col1).Value = vc + 1
End If
End If
End If

Next i
End With

End Sub

 

[Jacou]

Re : Macro comptage pour suivi ?

Yoyo;
à cette heure-ci je pense que tu dors.
Je te propose cette nouvelle version :
J'ai supprimé le choix "Autre..." dans la liste des anomalies
j'ai ajouté la sub "ComboBox7_AfterUpdate()".
cette sub te permet d'ajouter une nouvelle anomalie dans la liste si celle que tu entres n'existe pas dans la liste

Dis-moi ce que tu en penses

Bonne nuit

Quelle idée de travailler le lundi de Pâques 😉

 

[yoyo77]

Re : Macro comptage pour suivi ?

Salut Jacou 🙂, xhudi69 🙂, le Forum 😀,

j'ai travaillé aujourd'hui et c'etait l'horreur gastro 🙁🙁🙁

Je viens d'essayer ta modif pour la combobox7 et chez moi ca ne marche pas 🙁

ca m'indique erreur d'execution incompatibilité de type 13

ne faut-il pas supprimer ca ?

If ComboBox7.Value Like "AUTRE*" Then
If Trim(TBComment) = "" Then
MsgBox "Veuillez, SVP, décrire l'incident dans le champ ""Autre"""
TBComment.SetFocus
Exit Sub
End If

Sinon tu as bien compris le principe d'avoir en combobox7 une liste mais aussi pouvoir ecrire dedans si le choix n'a pas été trouvé dans la liste 😀

sinon pour l'impression des données de l'userform3 double click sur une cellule colonne "H"
j'ai essayé au taf et le problème c'est que le fond de l'userform ne s'imprime pas 🙁 il n'y a que les données inscrites dans les combobox ! donc on ne sais pas a quoi ca correspond 🙁 🙁 je sais pas si je suis claire 😕

Merci vraiment pour ton aide Jacou 😎

 

[yoyo77]

Re : Macro comptage pour suivi ?

Salut le Forum 🙂, j'ai besoin de votre aide 😀

Jacou quoi de neuf ?

xhudi69 comment vas tu ?

Les amis je bloque sur l'impression de l'userform 3 😕

Pouvez vous m'aider SVP ? 😀😀😀

Merci 😀

 

[xhudi69]

Re : Macro comptage pour suivi ?

Bonsoir yoyo77, le Forum

Ton fichier remanié au niveau de l'impression de l'UserForm3, si cela convient.

@+ 😎

 

[yoyo77]

Re : Macro comptage pour suivi ?

Salut xhudi69 🙂 je suis content de te revoir 😀,

je regarde ca de suite 😀😀😀

merci 😎

 

[yoyo77]

Re : Macro comptage pour suivi ?

xhudi69 🙂,

En faite mon imprimante ne fonctionne pas j'essayerai au boulot demain mais à l'oeil ca m'a l'air d'aller et j'ai pleinement confiance en toi 😀 ,

j'ai vu que tu as créé une macro "module 6" grosso modo pourquoi ca ne fonctionnait pas ?

Merci 😎

 

[xhudi69]

Re : Macro comptage pour suivi ?

RE:

Non le module 6 n'est pas de moi, à l'impression, tu as exactement la photo instantannée de l'UserForm.

Private Sub CommandButton1_Click()
    UserForm3.PrintForm
End Sub

Si tu ne veux pas voir apparaitre le bouton "Imprimer" il suffit de le supprimer et de mettre le code comme ceci

Private Sub TextBox8_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm3.PrintForm
End Sub

Donc en DoublClickant dans la zone description, tu imprimes ton UserForm.

@+ 😎

 

[yoyo77]

Re : Macro comptage pour suivi ?

xhudi69 🙂,

En effet le module 6 c'est Jacou je n'avais pas fait attention c'etait surement pour le combobox7 😀
j'ai du mal à suivre 🙄

En tout cas Merci j'ai bien compris pour l'impression de l'userform 😀

ainsi que pour le double click qui lance l'impression

Toujours au taquet franchement 😀

Merci bikouuu 😎😎😎

 

[xhudi69]

Re : Macro comptage pour suivi ?

RE:

Abzolumant, tu peux supprimer le bouton impression et mettre la macro dans le DoublClick du TextBox8.

@+ 😎

 

[yoyo77]

Re : Macro comptage pour suivi ?

ok 🙂 merci,

a bientôt,

yoyo 😎😎😎

 

[Jacou]

Re : Macro comptage pour suivi ?

Bonsoir à tous,

effectivement le module 6 est un enregistrement que j'ai fait pour vérifier le code à utiliser pour le tri.
il n'est d'aucune utilité pour ton besoin, donc à supprimer

en semaine les journées sont longues et je n'ai pas beaucoup de temps libre, mais je continue à suivre ce fil avec intérêt.

bonne soirée et bonne nuit

 

[yoyo77]

Re : Macro comptage pour suivi ?

Ok Jacou pas de problème,

Merci et à bientôt,

yoyo