Sendkeys

Résolu
Étienne -  
 Étienne - 9 nov. 2011 à 11:07
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

1 réponse

pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 759
 
Bonjour,
Par exemple :
Sheets("export").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = "fin"

Cordialement,
Franck P
0
Étienne
 
Merci !!!
0