Variable objet non définie

Bonjour à tous,

Je cherche à déterminer le n° d'une colonne grâce à une date qui est stockée dans une cellule et sur une ligne j'ai différentes dates. Une fois que j'ai déterminé ma colonne je peux lui dire d'insérer des valeurs dans cette colonne.

Mon problème (j'ai l'impression) c'est que dans ma recherche il ne reconnaît pas le format date. ci dessous mon code :

Sub DETTEFIN()

    Dim celluleRecherche As Range
     Dim ColonneMois As Integer  

    Worksheets("DETTE NETTE").Activate

        Set celluleRecherche = Worksheets("Dette Nette").Range("9:9").Find(Range("MOISDETTEFIN").Value, lookat:=xlWhole)
            ColonneMois = celluleRecherche.Column

    Cells(10, ColonneMois).Value = WorksheetFunction.Sum(Range("DETTEFIDII"))

End Sub

la cellule "MOISDETTEFIN" est une date.

Est-ce que quelqu'un aurait une solution à mon problème.

Je vous remercie.

Bonsoir,

Si j'ai bien compris, j'essaye comme ça :

Sub DETTEFIN()
    Worksheets("DETTE NETTE").Activate
    Cells(10, [MOISDETTEFIN].Column).Value = WorksheetFunction.Sum([DETTEFIDII])
End Sub

Si tel n'est pas le cas, merci de nous joindre ton fichier.

Bonsoir RAJA,

En fait c'est l'étape d'avant qui ne fonctionne pas : quand je veux déterminer ma colonne : "ColonneMois"

            ColonneMois = celluleRecherche.Column

Il ne trouve pas de colonne avec la date qui correspond à ma cellule Range("MOISDETTEFIN").Value

Re,

Est-ce possible d'avoir un modèle de fichier ? Et avec une petite explication du résultat que tu attends. Je pense que un moment donné, il faut renseigner la date que tu recherches. Comment fais-tu pour ça ? Je suppose aussi, ça change à chaque fois.

Voici l'ergonomie du fichier.

Re,

Essaye comme ça :

Sub DETTEFIN()
    Worksheets("DETTE NETTE").Activate
    colonneMois = WorksheetFunction.Match([MOISDETTEFIN], Range("9:9"), 0)
    Cells(10, colonneMois).Value = WorksheetFunction.Sum([DETTEFIDII])
End Sub

Bonsoir RAJA,

Je te remercie pour ton aide précieuse, ça fonctionne.

Sais-tu pourquoi mon code ne fonctionnait pas. Alors que j'utilise toujours celui-ci pour faire une recherche de cellule.

Bonne soirée.

Re,

Tout simplement, la méthode "Find" ne gère pas facilement le format date.