pilounet54
Messages postés20Date d'inscriptionvendredi 9 mai 2003StatutMembreDernière intervention 2 octobre 2009
-
13 juil. 2009 à 15:52
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
15 juil. 2009 à 10:34
Const plage_depart = "essais"
Const feuille = "Feuil3"
Dim val1 As Variant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each C In Worksheets(feuille).Range(plage_depart)
ligne = C.Row
Colonne = C.Column
val1 = C.Value
If val1 <> "" Then
Cells(ligne, Colonne - 1).Select
Application.SendKeys "^;"
End If
Next
End Sub
bonjour à tous pourquoi cela fontionne pas
je souhaite mettre SendKeys "^;" lorsque dans la plage "essais" il rencontre une cellule non vide dans une colonne de moins il mets cette valeur sinon rien
En remplacement de la formule =si (test_logique;SendKeys "^;";"") pour exemple merci à tous
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 13 juil. 2009 à 19:48
Salut
Et ce SendKeys sert à quoi ?
Il doit bien y avoir une fonction plus précise et sérieuse que d'envoyer des caractères de controle, non ?
Eventuellement, ajoute un DoEvents juste avant le SendKeys + ajoute , True au SendKeys
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
pilounet54
Messages postés20Date d'inscriptionvendredi 9 mai 2003StatutMembreDernière intervention 2 octobre 2009 13 juil. 2009 à 20:30
ça me permet de mettre la date dans la cellule de la meme ligne mais colonne- 1 mais avec l'avantage à ce que cette date n'est pas mis a jour à l'ouverture du fichier comme =aujoud'hui()
et le tout automatique merci pour ta reponse
je vais essayer
merci encore