Problème utilisation SendKeys

Version imprimable

Bonjour,

J'ai un problème avec l'utilisation de SendKeys. Ci-dessous, mon programme :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'------ Remplacement des "." par des "," dans la colonne P ------
 
Range("P:P").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
 
'------ Il faudrait ici que j'utilise la méthode SendKeys pour faire l'équivalent
'd'un F2 (ou double clic) + ENTER afin que les infos soit utilisable dans 
'le tableau croisé dynamique qui suit. 
'(Actuellement, le TCD ignore les cellules en 'question...)
 
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    fichier & "!R1C1:R1048576C23", Version:= _
    xlPivotTableVersion12).CreatePivotTable TableDestination:= _
    fichier & "!R3C27", TableName:="MonTCD" & projet, _
    DefaultVersion:=xlPivotTableVersion12

Afin de tester la méthode SendKeys, j'ai fais le test sur une cellule sur laquelle le "replace" est passé, avec le code ci-dessous, mais ça ne fonctionne pas...

Code:

1
2
3
Range("P173").Select
Application.SendKeys "{F2}", True
Application.SendKeys "{Enter}", True

Merci d'avance pour votre aide :)

Alex

28/11/2012, 12h53
Jean-Philippe André

salut,
en fait tu veux juste revalider la valeur dans ta cellule ?

pourquoi passer par un F2 ?

autant faire directement

Code:

Range("P173").Value = Range("P173").Value

non ? :aie:
ou alors une subtilité m'échappe...
28/11/2012, 13h48
AbsolutAlex

Oui c'est un peu ça. Mais la solution que tu me donnes ne fonctionne pas. ça ne change rien.

J'ai trouvé une solution mais qui est de copier une cellule avec le chiffre 1 dedans puis de faire un collage spécial en multiplication dans la cellule qui à fait l'objet du replace.

Cette solution fonctionne mais je suis quand même intéressé par la méthode SendKeys. :)
23/12/2012, 19h24
AlainTech

Bionjour,

Le SendKeys est à bannir sur une feuille Excel.
Montre-nous un exemple de tes données et on te dira comment les convertir.
25/12/2012, 22h37
NVCfrm

bonsoir

sans avoir vraiment bien compris ce que tu veux faire avec cette action de f2
le code excel correspondant s'écrit: application.DoubleClick

nb: l'action est éffectuée sur la cellule active de la feuille active.
cordialement.

1 pièce(s) jointe(s)

Bonjour,

Tout d'abord bonne année à tous et meilleurs voeux !

Comme demandé, j'envoi en pièce jointe un extract de mon fichier. J'utilise sur celui la macro ci-dessous (proposé NVCfrm), la macro passe bien, mais rien ne change...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub doubleclick() 'Dim ligne As Range 'For Each ligne In Range("A1:W290010").SpecialCells(xlCellTypeVisible).Rows For i = 1 To Range("A100").End(xlUp).row Range("B" & i).Select 'Range("P" & ligne.row).Select Selection.Application.doubleclick Next i 'Next ligne End Sub
Les lignes en commentaires sont les lignes utilisées dans le fichier complet alors que les autres lignes sont adaptées à l'extract.

En espérant que ça vous aide pour m'aider :)

Alex

Bonjour à tous,

En effet je n'ai pas réussi quelque chose de somple avec ton classeur demo.

Tu peux essayer ça, cela fonctionne chez moi :

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub x()
Dim ws As Worksheet, derlig As Long, i As Long
Const Mcol As Integer = 2
Set ws = ActiveSheet
derlig = ws.Cells(ws.Rows.Count, Mcol).End(xlUp).Row ' ws.Range("B2:B" & derlig).Select
 
For i = 1 To derlig
 ws.Cells(i, Mcol).Value = Replace(ws.Cells(i, Mcol).Value, ",", ".")
ws.Range("B2:B" & derlig).NumberFormat = "#0.00"
Next i
End Sub

09/01/2013, 15h24
AbsolutAlex

Merci aalex_38 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

ça fonctionne parfaitement :D