Macro comptage pour suivi ?

yoyo77 · 31 Mars 2013

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 · 1 Avril 2013

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 · 1 Avril 2013

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 · 2 Avril 2013

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 · 2 Avril 2013

Re : Macro comptage pour suivi ?

Bonsoir yoyo77, le Forum

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

@+

yoyo77 · 2 Avril 2013

Re : Macro comptage pour suivi ?

Salut xhudi69 je suis content de te revoir ,

je regarde ca de suite

merci

yoyo77 · 2 Avril 2013

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 · 2 Avril 2013

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.

Code:

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

Code:

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 · 2 Avril 2013

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 · 2 Avril 2013

Re : Macro comptage pour suivi ?

RE:

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

@+

yoyo77 · 2 Avril 2013

Re : Macro comptage pour suivi ?

ok merci,

a bientôt,

yoyo

Jacou · 2 Avril 2013

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 · 2 Avril 2013

Re : Macro comptage pour suivi ?

Ok Jacou pas de problème,

Merci et à bientôt,

yoyo

Macro comptage pour suivi ?

yoyo77

XLDnaute Occasionnel

Pièces jointes

Jacou

XLDnaute Impliqué

Pièces jointes

yoyo77

XLDnaute Occasionnel

yoyo77

XLDnaute Occasionnel

xhudi69

XLDnaute Accro

Pièces jointes

yoyo77

XLDnaute Occasionnel

yoyo77

XLDnaute Occasionnel

xhudi69

XLDnaute Accro

yoyo77

XLDnaute Occasionnel

xhudi69

XLDnaute Accro

yoyo77

XLDnaute Occasionnel

Jacou

XLDnaute Impliqué

yoyo77

XLDnaute Occasionnel

Discussions similaires