rendre obligatoire une saisie

yblotiere · 18 Février 2011

Bonjour
j'aurais besoins d'un petit coup de main
ci joint mon tableau de suivi de paiement fournisseurs
http://cjoint.com/?0csrbngOk7B
ce que je voudrais faire et lorsque je choisi ma banque mon moyen de paiement la date se mette automatiquement
et si je choisi chq que je mette le numéro du chèque obligatoirement
merci

Yannick

yblotiere · 18 Février 2011

Re : rendre obligatoire une saisie

Bonsoir
voici le nouveau lien
http://cjoint.com/?0cswwmODzmf
j'espère que cela va fonctionner

merci

yannick

Gorfael · 19 Février 2011

Re : rendre obligatoire une saisie

Salut yblotiere et le forum
Fichier proposé illisible
Rappel : un fichier d'essais n'est pas un fichier de travail !
Pour ce que tu demandes, je dirais qu'on a besoin :
Une feuille (ou 2, si les infos importantes sot sur une autre feuille)
la ligne de titres
3 ou 4 lignes de données, pour expliquer le problème et avoir un aperçu de ce que tu attends : nettement inférieur aux possibilités des pièces jointes
A+
Edit : J'ai pu lire le fichier donné, mais ça merde complétement : les macros automatiques ne se lancent pas systèmatiquement. Pour la feuille saisie :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Déclarations ======================================
Dim Cel As Range, Plage As Range, X As Long
'Traitement Date ===================================
Set Plage = Intersect(Target, Columns(20))
If Not (Plage Is Nothing) Then
    For Each Cel In Plage
        If Cel <> "" Then Cel.Offset(0, 3) = Date
    Next Cel
End If
'Traitement chèque =================================
Set Plage = Intersect(Target, Columns(21))
If Not (Plage Is Nothing) Then
    For Each Cel In Plage
        If Cel = "CHQ" Then
            Do While Cells(Cel.Row, "V") = ""
                X = Application.InputBox("Numéro du chèque ?", "Inscription obligatoire", , , , , , 1)
                If X > 0 Then Cells(Cel.Row, "V") = X
            Loop
        End If
    Next Cel
End If
End Sub

Pour mes remarques précédentes, elles restent d'actialité (les stats n'apportent rien pour le problème)
J'ai fait comme je le pense, mais n'ayant aucune indication sur les colonnes à traiter....

Rappel : Ce qui est évident pour quelqu'un travaillant avec un fichier ne l'est pas pour un dépanneur extérieur !

yblotiere · 23 Février 2011

Re : rendre obligatoire une saisie

Merci pour ton coup de main
cela fonctionne comme je le souhaite

j'ai pris note de tes commentaire et
j'essayerai d'être plus clair dans mes question la prochaine fois

yannick

rendre obligatoire une saisie

yblotiere

XLDnaute Occasionnel

yblotiere

XLDnaute Occasionnel

Gorfael

XLDnaute Barbatruc

yblotiere

XLDnaute Occasionnel

Discussions similaires

rendre obligatoire une saisie

yblotiere

XLDnaute Occasionnel

yblotiere

XLDnaute Occasionnel

Gorfael

XLDnaute Barbatruc

yblotiere

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency