Sendkeys

Résolu/Fermé

Étienne - 9 nov. 2011 à 11:00
É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

A voir également:

1 réponse

Réponse 1 / 1

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 747
Modifié par pijaku le 9/11/2011 à 11:02

Bonjour,
Par exemple :

Sheets("export").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = "fin"

Cordialement,
Franck P

Étienne
9 nov. 2011 à 11:07

Merci !!!

Discussions similaires

MSDOS - Renommer partiellement plusieurs fichiers

echo off qu'est ce que c'est ?

Faire une attente sous dos (batch)

Faire l'équivalent d'un sendkeys dans un fichier .bat

Liste COMPLETE des commandes .bat

Discussions similaires

Newsletters