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
je ne comprend pas trop l'intéret de tout ce code pour juste un copier coller.. mais avec cette syntaxe. ca semble fonctionner
VB:
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
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
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