Modification de formule

**Kh3r0** · 15/05/2007, 10h59

Bonjour
Voici mon probleme je recupere des valeurs venant d'un automate l'expression pour la recuperation de celle ci ce presente comme ce ci

Code :

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

1
2
ActiveCell.FormulaR1C1 = _
"=ATGetTimeVal(""PC4-K74-GENE.SEQ"", ""FRCGS021"", """", ""13/05/2007 12:00:00"", 16, 0, 0, 1)"

Je souheterai pouvroi grace a une macro sur excel pouvoir modifier la formule afin de pouvroi selectionner exactement le jour l'heure l'année l'heure et les minute sachant quand mettant
Exemple :

Code :

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

1
2
3
4
Dim temps as integer
temps = 14
 
"=ATGetTimeVal(""PC4-K74-GENE.SEQ"", ""FRCGS021"", """", ""temps/05/2007 12:00:00"", 16, 0, 0, 1)"

il m'affiche une valeur erroné... pour que la formule marche il faut kel arrive sur la cellule exactement avec les bon chiffre voulu, si quelqu'un pourrai m'aider sa me facileterai grandement la vie ..

**tonton fred** · 15/05/2007, 13h34

Bonjour,

Dans ton exemple il faut remplacer "13/05/2007" par " & temps & "/05/2007"

Code :

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

1
2
3
Dim temps as Integer
ActiveCell.FormulaR1C1 = _
"=ATGetTimeVal(""PC4-K74-GENE.SEQ"", ""FRCGS021"", """", "" & temps & "/05/2007 12:00:00"", 16, 0, 0, 1)"

A verifier car il y a beaucoup de " donc peut etre il en manque un (il faut ouvrir et fermer a chaque fois je n'ai pas compte les paires).

**Kh3r0** · 15/05/2007, 13h39

Bon mon prog marche tré bien merci Rmais j'ai un petit souci apres celui la

voici mon programme en cours qui marche que j'ai affecté a un bouton:

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
20
21
22
23
24
Private Sub Temps_Click()
 
msg = "Voulez-vous Choir le temps voulu?"
' Définit le message.
Style = vbYesNo + vbDefaultButton1
'Définit les boutons.
Title = "Espace temps"
' Définit les titres.
Réponse = MsgBox(msg, Style, Title)
If Réponse = vbYes Then
' Vous avez choisi le bouton " Oui ".
Dim mois, jour, année, heure, minute As Integer
 
jour = Range("av27")
mois = Range("av28")
année = Range("av29")
heure = Range("av30")
minute = Range("av31")
 
ActiveCell.FormulaR1C1 = _
"=ATGetTimeVal(""PC4-K74-GENE.SEQ"", ""FRCGS021"", """", """ & jour & "/" & mois & "/" & année & " " & heure & ": " & minute & ":00"", 16, 0, 0, 1)"
 
End If
End Sub

Le problème existant c'est qu'il me genere le nombre récuperé de facon aléatoire dans des cellule diférentes a chaque utilisation, pourai t'on pas lui affecter une cellule fixe de facon pour moi d'utliser cette valeur pour faire autre chose

Merci D'avance