[Déplacé de .Net -- VBA] SendKeys "^;"Résolu

Question

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 · Accepted Answer

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 · Answer

ç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

cs_Jack · Answer

Mieux vaudrait simplement faire un
   Cells(ligne, Colonne).Offset(-1, 0).Value = Now
Il n'insère que la valeur de Now, pas la formule.

cs_Jack · Answer

ou Offset(0, -1)
A vérifier dans l'aide

pilounet54 · Answer

Private Sub CommandButton1_Click() 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).Value = "" End If If val1 <> "" And Cells(ligne, Colonne - 1) = "" Then Cells(ligne, Colonne - 1).Select Cells(ligne, Colonne - 1).Value = Now End If If val1 <> "" And Cells(ligne, Colonne - 1) <> "" Then End If Next résolu " merci a vous " @ bientôt

pilounet54 · Answer

résolu " merci a vous " @ bientôt 

           merci jack

cs_Jack · Answer

De rien.
C'était dans la série "Dis moi ce qui te tracasse et je te dirais comment t'en passer"

[Déplacé de .Net --> VBA] SendKeys "^;"

7 réponses

Votre réponse