Discussion :

[AbsolutAlex]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci d'avance pour votre aide

Alex

[Jean-Philippe André]

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

pourquoi passer par un F2 ?

autant faire directement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

non ?
ou alors une subtilité m'échappe...

[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.

[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.

[AbsolutAlex]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aalex_38]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AbsolutAlex]

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

ça fonctionne parfaitement