XL 2013 Macro qui s’emmêle avec sendkey !!!

[fred2705]

Bonjour,

Je ne parviens pas à lancer la macro de ce fichier joint sans qu’il ne se morde la queue !
Je voudrais simplement afficher en cellule A1 "Afficher A" et en cellule B1 "Afficher B"

J’ai essayé avec Wait mais n’ai pas réussi. Pouvez-vous svp m’aider car là je sèche !

J’aimerais vraiment utiliser sendkey car dans le fichier ou je vais l’utiliser je n’ai pas d’autre solutions.
Merci d’avance

 

[vgendron]

Hello

je ne comprend pas trop l'intéret de tout ce code pour juste un copier coller.. mais avec cette syntaxe. ca semble fonctionner

Sub Macro1()

'copier la valeur de "A9" en "A1"
Range("a9").Select
SendKeys "^(c)", True
SendKeys "({up 8})", True
SendKeys "^(v)", True

'[A1] = [A9] beaucoup plus simple pour faire un copier coller....

'Texte "Afficher B" en "B1"
Range("B1") = "Afficher B"
End Sub

 

[fred2705]

Parfait, il me manquait donc: ,True
Merci.

En réalité je dois récupérer la valeur d'une cellule qui peut être différente selon les lignes qui sont cachées, mais il s'agit toujours de la 8ème ligne visible. Je n'ai pas trouvé d'autre solution que d'utiliser sendKey

 

[mapomme]

Bonjour à tous,

Un essai en VBA sans SendKeys :

Sub Macro1()
'copier la valeur de A1 + 8 lignes visibles en "A1"
Dim n&, i&
  For i = 2 To Rows.Count
    n = n + IIf(Rows(i).Hidden, 0, 1)
    If n = 8 Then
      [a1] = Cells(i, "a").Value       ' ou Cells(i, "a").Copy [a1]
      Exit For
    End If
  Next i
End Sub

 

[fred2705]

Trop fort !
Merci