incrementation d un tableau dble entree

[toinish]

Bonjour
Dans l exemple ci joint vous trouvererz un classeur à 2 feuilles dans lequel la premiere feuille contient des donnees a compter et la seconde le tableau de resultat (et celui attendu...)
J ai cree 3 boucles:
- la premiere parcourt les donnees d entree
- la seconde les colonnes du tableau a incrementer
- la 3 eme les lignes de ce meme tableau

Helas l incrementation ne se passe pas comme prevue...
Merci d avance [file name=exempleToinish.zip size=11122]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exempleToinish.zip[/file]

 

[porcinet82]

Salut Toinish,

Je viens de jeter un oeil a ton fichier, cependant avant toute chose, il me semble qu'il y a un petit soucis au niveau des dates puisqu'aucune date de la première correspond à la seconde, ou alors j'ai mal vu (ce qui est possible...).

Sinon j'ai effectué quelques modif a ta macro car certains trucs ne fonctionnait pas. Cependant je ne suis pas tout a fait sur qu'elle fonctionne parfaitement :

Private Sub CommandButton1_Click()
Dim coded As Variant, dat As Variant
Dim i as integer, j as integer, r as integer

Sheets('feuil1').Visible = True

For i = Sheets('feuil1').Range('A65536').End(xlUp).Row To 5 Step -1
    With Sheets('feuil1')
        coded = .Cells(i, 2).Value
        dat = .Cells(i, 1).Value
    End With
    Sheets('feuil2').Visible = True
    
    With Sheets('feuil2')
        For j = .Range('IV2').End(xlToLeft).Column To 1 Step -1
            If .Cells(2, j).Value = coded Then
                For r = .Range('A65536').End(xlUp).Row To 2 Step -1
                    If dat < .Cells(r, 1).Value Then GoTo puis
                    If coded = .Cells(2, j).Value Then
                        Cells(r, j).Value = Cells(r, j).Value + 1
                        Cells(r, j).Interior.ColorIndex = 4
                        GoTo nextdoss
                    End If
puis:
                Next r
            End If
        Next j
    End With

nextdoss:
Next i

End Sub

Tiens nous au courant.

@+

 

[toinish]

tout d abord merci!
c est tt a fait normal que les dates ne correspondent pas puisque celle du tableau à incrementer servent à reperer simplement le mois c est pour quoi elles sont au 1 er de chaque mois...
De plus je ne comprends pas trop les '&nbs p' que tu as ajouté...

Merci d avance

 

[porcinet82]

re,

Ok pour les dates, mais si tu compare les date entière, c'est normal que ca merdouille non ?

Pour les &nbs p, en fait, ce sont des caractères qui se mettent dans le code quelques fois lorsque l'on post mais qu'il faut enlever.

@+

 

[toinish]

ben ce que tu me proposes a l air de fonctionner parfaitement.... reste a l adapter a mon fichier final merci!!

 

[porcinet82]

Salut Toinish,

Et bien content que ca fonctionne parce que franchement j'avais des doutes.
Enfin si tu as un autre soucis n'hesite pas...

Bonne journée

@+