Vba : erreur formule - Page 2

Merci Michel !

Bonjour,

En fait, le changement de format n'a pas résolu le problème. Les données sont désormais identiques (l'essai par la fonction si le confirme...) mais je suis toujours bloqué par cet msg box("Valeur inconnue")... j'ai pas passé pas mal de temps dessus mais je ne trovue plus rien... je suis dans une impasse totale car c'est une feuille nécéssaire pour la suite... Je vous ai fait un résumé meilleur qu'hier avec les modification apportées... si quelqu'un trouvait la réponse je lui en serai infiniement reconnaissant...

http://www.cijoint.fr/cjlink.php?file=cj201002/cijwHekuyv.xls

le 3/2/10, 19:59H

LES CELLS(LIGNE, COLONNE) ETAIENT INVERSEES EN CELLS(COLONNE,LIGNE) POURQUOI?

pourtant dans le post 16

derlig = Sheets("feuil1").Range("B65536").End(xlUp).Row
Application.ScreenUpdating = False

For cptr = 1 To derlig
        With Sheets("feuil1")
        cherche_lig = .Cells(cptr, 2)
        cherche_col = .Cells(cptr, 3)
        End With

D'autre part tu commences en Ligne 2 ligne 1 tu as les étiquettes!!!!
donc
for cptr=2

tu as plein d'autres .... (au choix) dans tes macros, mais vu ce que tu fais de ce qu'on te propose

Je désactive le suivi de ce post

Après quelques suppressions cela fonctionne :

Dim derlig As Integer, cherche_lig As String, cherche_col As String
Dim lig_cibl As Integer, col_cibl As Byte
Dim zone As Range

derlig = Sheets("Archive Cessions").Range("B65536").End(xlUp).Row
Application.ScreenUpdating = False

With Sheets("Archive Cessions")
cherche_lig = .Cells(derlig, 2)
cherche_col = .Cells(derlig, 3)
End With

With Sheets("Statistiques")
Set zone = .Range("A1:DN1467")
If Application.CountIf(zone, cherche_lig) > 0 And Application.CountIf(zone, cherche_col) > 0 Then
lig_cibl = zone.Find(cherche_lig, , , xlWhole).Row
col_cibl = zone.Find(cherche_col, , , , xlWhole).Column
.Cells(lig_cibl + 1, col_cibl) = .Cells(lig_cibl + 1, col_cibl) + 1
Else
MsgBox " valeur inconnue", vbCritical
Exit Sub
End If
End With

Michel, je me suis trompé dans l'envoi du lien et comme je vous l'ai déjà dit, j'ai vraiment apprécié votre aide et c'est grâce à votre proposition que je peux avancer, je vous remercie. Quand ca en marchait pas j'ai essayé de modifier quelques petits trucs pour voir... Ca ne sert à rien de s'énerver. En tout cas merci !