Ecriture dans une cellule

**trane51** · 17/06/2011, 09h46

Bonjour,

J'ai un souci par rapport a mon code ci-dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
   'Rechercher la ligne et ecrire la date AQF.
        If UserForm2.TextBox3 <> "" Then
        Dim CelluleCherchée As Range
             With Worksheets("Base")
                Set CelluleCherchée = .Range("C14:C16000").Find(UserForm2.TextBox1.Text, LookIn:=xlValues)
                If Not CelluleCherchée Is Nothing Then .Range("L" & CelluleCherchée.Row) = CDate(UserForm2.TextBox3.Text)
                     If ("L" & CelluleCherchée) = (UserForm2.TextBox3.Text) Then
                .Range("O" & CelluleCherchée2.Row) = ("Oui")
                End If
            End With
            End If

Je voudrais en fait qu'après avoir cherché une condition en C et écrit une date en L (jusqu'ici tout fonctionne) que si la cellule L est datée il écrive oui en O mais la rien ne ce passe...

J'attends vos conseils experts
Merci a tous

**Philippe Tulliez** · 17/06/2011, 10h14

Bonjour,
Sans avoir testé, je pense que ton problème vient de cette ligne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("O" & CelluleCherchée2.Row) = ("Oui")

Ta variable doit sans doute être CelluleCherchée et pas CelluleCherchée2 tout au moins si je me réfère à ta déclaration de variable.
Petits conseils :
1) Ajoute en début de programme Option Explicit qui peut être ajouté automatiquement en cochant l'option Déclaration des variables obligatoire dans l'onglet [Editeur] de Outils/Options... du VisualBasicEditor. Ainsi tu aurais eu l'alerte immédiatement.
2) Evite de déclarer les variables avec des lettres accentuées. C'est vivement déconseillé.