Figer une date sous conditionRésolu

Question

Bonjour, 
Je suis débutante VBA et je suis bloqué depuis plusieurs jours sur une formule. J'aurais besoin d'aide.
Ma première colonne va chercher avec la fonction rechercheV les donné sur une autre feuille, la deuxième c'est la fonction stxt pour prendre juste le texte que je souhaite dedans, et la troisième (c'est la que j'ai un problème) s'il y a écrit "TCLO" dans la seconde elle doit comporter une croix, la quatrième c'est une formule, et la cinquième c'est du vba pour figer la date.

ça me donne le code suivant:

Private Sub worksheet_change(ByVal value As Excel.Range)

If Not Application.Intersect(value, Range("ad4:ad" & [ad65000].End(xlUp).Row)) Is Nothing Then
    If vCellule = "x" Then
            target.Columns.Offset(0, 3) = Now
        Else
            target.Columns.Offset(0, 3).ClearContents
        End If
    End If

End Sub

a mon avis ce qui bug c'est ce que j'ai mis en gras.
pourriez vous m'aidez.
Il faut que la croix se mette automatiquement dès que le mot TCLO apparait dans la case d'à côté.

cs_Jack · Answer

Salut

Deux choses me paressent étranges :
- La déclaration de "Worksheet_Change"
Il n'est pas judicieux d'avoir modifié la déclaration originale.
"value" est un mot clé du langage et pourrait poser problème.
(normalement, c'est "Target" que d'ailleurs on retrouve plus bas dans tes lignes)
- Syntaxe
Tu écris "If vCellule = ..."
Mais où est définie "vCellule" ?
Mieux vaut toujours écrire les syntaxes complètes :
"If vCellule.Text = ..."
ou "If vCellule.Value = ..."
ou "If vCellule.Value2 = ..."
 
Pense à utiliser le debogage pour suivre ce que fait ton programme :
- F9 sur une ligne de code; elle change de couleur
Le programme s'y arrêtera au prochain passage.
Lors de l'arrêt, survole avec la souris tes variables pour visualiser leur contenu, ou va dans la fenêtre de debogage (Ctrl-G) et tape
? maVariable pour qu'elle s'inscrive dans la fenêtre.
- F8 (VB6/VBA) ou F10 (.Net) pour avancer d'une ligne de code
- F5 pour continuer normalement

jordane45 · Answer

Bonjour,

Tu as remplacé TARGET par value...pourquoi ?

Target te retourne une RANGE (une plage de cellles..)

 pour l'utiliser c'est comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
mavaleur = Target.Value
ligne = Target.Row
colonne = Target.Column
adresse = Target.Address

MsgBox mavaleur
MsgBox ligne
MsgBox colonne
MsgBox adresse

End Sub

astreal · Answer

Désolés de vous embêter encore, mais mon fichier ne fonction toujours pas.
Comme je l'écrit plus au, avec la macro qui ne bug pas je dois mettre le "x" à la main, hors pour mon fichier il doit se mettre automatiquement dès que dans la cellule précédent le mot "TCLO" parait.(cela sur toute la colonne) 
Et je ne sait pas comment le formaliser en vba.

astreal · Answer

Bonjour jordan45

Concrètement si :
A1="TCLO" (s'est un abrégé de terme technique:ma condition obtenu avec la formule recherchev)
B1="x" (pour la colonne terminé)
et 2 cellule plus loin je veux que la date du jours s'inscrive et se fige. pour que le lendemain elle ne change plus.

Et cela sur la totalité des ligne des colonnes

Est-ce plus compréhensible?

jordane45 · Answer

Tu peux tester cette macro : 
Bien sur ...A toi de l'adapter à tes besoins  
 
Sub test()
For l = 1 To 100
'Si, sur la ligne "l" la cellule en A contient TCLO
' et celle en B contien X  et qu'en colonne D la cellule est vide alors:
If Cells(l, 1).Value = "TCLO" And Cells(l, 2).Value = "x" And Cells(l, 4).Value = "" Then
  'on inscrit la date
  Cells(l, 4).Value = Now

End If
Next
End Sub


nb: cette macro est à lancer "manuellement". mais tu peux tout aussi bien la mettre dans Private Sub Worksheet_Activate() ou toute autre méthode de déclenchement "automatique"

astreal · Answer

Merci je l'ai un peu modifier pour que la croix ce mette toute seule quand l'action est terminé dans le fichier transverse.
Cela donne :

Sub test()
For l = 1 To 100
'Si, sur la ligne "l" la cellule en A contient TCLO
' et celle en B contien X  et qu'en colonne D la cellule est vide alors:
If Cells(l, 29).value = "TCLO" And Cells(l, 30).value = "" And Cells(l, 34).value = "" Then
  'on inscrit la date
  Cells(l, 34).value = Now And Cells(l, 30).value = "x"

End If
Next
End Sub

et en vba j'ai mis
Option Explicit
Private Sub worksheet_Activate()

Call test
End Sub

mais rien ne ce passe est ce normal?

ucfoutu · Answer

Bonjour,
L'éternel problème du "mixage" de formules et de code vba. Les premières et le second s'exécutant dans deux fils (threads) totalement distincts, aucun évènement Change n'est provoqué par les premières.
Ainsi : aucune de tes formules en colonnes A, B et C ne provoqueront le déclenchement d'un évènement Change dans lequel tu pourrais mettre du VBA pour modifier la colonne D.
Il te faut donc :
-soit en effet passer par une boucle (lent, donc)
- soit agir sur l'évènement Change de la ou des cellule(s)  sur ta feuille sur laquelle tu recherches avec rechercheV (ta formule en colonne A). Cette ou ces cellules doit/doivent alors ne pas contenir elle(s)-même(s) une formule, mais une constante (que cette constante soit saisie ou importée ou qu'elle soit calculée par VBA)
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Figer une date sous condition

7 réponses

Votre réponse

Discussions similaires