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
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)
ç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