Sendkeys Résolu

Question

Bonjour, 

J'ai un soucis avec les sendkeys,

Voici le code:
Sheets("export").Select
    Range("B10").Select
    Selection.End(xlDown).Select
    SendKeys "{enter}"
    SendKeys "fin"
    SendKeys "{enter}"
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With

Je souhaite rajouter le mot "fin" sur la derniere ligne du tableau (qui est donc vide)

Si vous avez d'autres piste que les Sendkeys je suis prenneur,

Cordialement, merci

Configuration: Windows XP / Internet Explorer 8.0

pijaku · Answer

Bonjour, 
Par exemple : 
Sheets("export").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = "fin" 
Cordialement, 
Franck P

Sendkeys

1 réponse

Votre réponse

Discussions similaires

Newsletters