Ecriture dans une cellule

Version imprimable

Bonjour,

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

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

17/06/2011, 10h14
Philippe Tulliez

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

Code:

.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é.
17/06/2011, 10h37
trane51

Merci pour l'astuce anti-erreur!!;)

En effet je n'ai pas fait attention à ma variable mais malgrès ce changement sa ne fonctionne toujours pas
17/06/2011, 10h55
Philippe Tulliez

Bonjour,
C'est curieux car je viens de faire un test et chez moi cela fonctionne.
17/06/2011, 11h08
trane51

J'ai retesté plusieur fois et aucun resultat
17/06/2011, 11h12
Philippe Tulliez

Bonjour,
Je confirme que cela fonctionne. Je viens de refaire le test
Es-tu sûr qu'il y bien des informations dans TextBox1 & TextBox3 ?

Bonjour,
Voici le code que j'ai utilisé.
J'ai déclaré 2 variables FindSearch et DateChange uniquement parce-que lors de mon premier test, j'ai utilisé de simple string et pas la UserForm

Code:

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

La procédure Cherche est lancée par un CommandButton qui se trouve dans UserForm2

Code:

1
2
3
Private Sub CommandButton1_Click()
 Cherche
End Sub

17/06/2011, 11h44
trane51

Toujours rien, je desespères :cry:, j'ai essayer de poster mon fichier mais il est trop volumineux... Parce que je me demande si un code dans mon programme ne pourrai pas empecher l'ecriture dans la cellule?
17/06/2011, 11h52
Philippe Tulliez

Bonjour,
La feuille est-elle protégée, y a t'il un message d'erreur ?
17/06/2011, 11h57
trane51

Ni l'un, ni l'autre
17/06/2011, 12h44
Philippe Tulliez

Bonjour,
Fais un test avec le débogage Pas à Pas (F8), tu verras tout de suite où cela coince.

En pas a pas il saute toute cette partie là:

Code:

1
2
3
4
5
 With Worksheets("Base")
     Set CelluleCherchée = .Range("C14:C16000").Find(FindSearch, LookIn:=xlValues)
     If Not CelluleCherchée Is Nothing Then .Range("L" & CelluleCherchée.Row) = CDate(DateChange)
     If ("L" & CelluleCherchée) = (DateChange) Then
     .Range("Z" & CelluleCherchée.Row) = ("Oui")

Est-ce normal??

17/06/2011, 13h31
Philippe Tulliez

Bonjour,
Si tu as utilisé le pas à pas, tu as dû voir pourquoi, il ne passait pas par là.
Ta ligne précédente est un test

Code:

If UserForm2.TextBox3 <> "" Then

Cela veux donc dire qu'il n'y a rien dans TextBox3. C'était ma question à 11h12
17/06/2011, 14h08
trane51

Non il y a bien une date dans mon textbox car le programme l'écrit dans la cellule ciblée, le probleme est qu'il de va pas écrire le "oui"
17/06/2011, 15h44
trane51

Probleme résolu par un vulgaire SI dans la barre de formule pour l'écriture du oui!!

Merci beaucoup pour l'aide