Discussion :

[guccg]

bonsoir a tous,

je voudrais savoir si il est possible d'affecter le with a ma variable que j'ai défini juste précédemment
dans le but de pourvoir modifier les séparateurs de caractères sans avoir besoin de placet cette variable dans une cellule.
est ce que cela est possible ?
merci d'avance pour vos solutions
voici l'extrai du code :

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
Type invites
date As String
heure As String
End Type
 
Sub main()
Dim DH As invites
DH.date = FormatDateTime(date, vbShortDate)
DH.heure = Time
 Cells(1, 5) = DH.date & " " & DH.heure
 
    With Range("e1")
        .Replace " ", "_"
        .Replace "/", "_"
        .Replace ":", "_"
    End With

en faite je souhaiterais faire qulquechose du style :

Code :

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

1
2
3
4
5
   With DH.date + DH.heure
        .Replace " ", "_"
        .Replace "/", "_"
        .Replace ":", "_"
    End With

[joe.levrai]

Bonjour,

si j'ai compris ce que tu souhaites, je te propose de plutôt modifier ton code en amont

Code :

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

1
2
3
4
Dim DH As invites
DH.date = FormatDateTime(date, vbShortDate)
DH.heure = Time
Cells(1, 5).Value = Replace(Replace(Replace(DH.date & " " & DH.heure, " ", "_"), "/", "_"), ":", "_")

si j'ai mal compris, je m'en excuse, indique le moi

[Menhir]

On ne peut pas affecter une propriété ou une méthode (comme Replace) à une variable String que ce soit avec ou sans With.

Donc, ce que tu souhaites n'est pas possible, du moins pas de cette façon.

[guccg]

bonsoir,
je te remercie joe pour ta renonce et désoler pour le temps de latente, jetait en déplacement.
et non ce n'est pas exactement ça que je souhaite faire..mais merci beaucoup pour ta solution tout de même.

oui en effet Menhir c'est le problème que j'ai et je ne vois pas comment faire autrement du coup.
en faite quand je tape le code pour lequel j’aimerais que ça fonctionne, j'ai l'erreur :Objet requis (Erreur 424)
alors j'ai essayer de suivre les instruction de l'aide en ligne puis de redéfinir ma variable comme un object avec la fonction "set" mais sans succès...

[joe.levrai]

Bonjour,

suis-je bête ou est-ce l'explication qui est différente de ton exemple ?


voici ce que tu fais en passant par un range

Code :

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

1
2
3
4
5
6
7
Cells(1, 5) = DH.Date & " " & DH.heure
 
With Range("e1")
    .Replace " ", "_"
    .Replace "/", "_"
    .Replace ":", "_"
End With

- tu concatènes Date et heure, en séparant par un espace
- tu remplaces Espace/Slash/Double point par un UnderScore


mon code

Code :

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

Cells(1, 5).Value = Replace(Replace(Replace(DH.date & " " & DH.heure, " ", "_"), "/", "_"), ":", "_")

fait strictement la même chose, il suffisait de récupérer le résultat pour le mettre dans une variable

sans passer par un range, ça donne

Code :

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

1
2
3
4
Dim DH As invites
DH.date = FormatDateTime(date, vbShortDate)
DH.heure = Time
AutreVariable = Replace(Replace(Replace(DH.date & " " & DH.heure, " ", "_"), "/", "_"), ":", "_")

qu'est ce que j'ai loupé ?

[Menhir]

oui en effet Menhir c'est le problème que j'ai et je ne vois pas comment faire autrement du coup.
en faite quand je tape le code pour lequel j’aimerais que ça fonctionne, j'ai l'erreur :Objet requis (Erreur 424)
alors j'ai essayer de suivre les instruction de l'aide en ligne puis de redéfinir ma variable comme un object avec la fonction "set" mais sans succès...

Une variable String ne peut pas être un objet.

Pour faire l'équivalent de la méthode Replace, il faut que tu utilise la fonction Replace

Code :

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

Replace(expression, find, replace[, start[, count[, compare]]])

Et oublie le With.

[Philippe Tulliez]

Bonjour Menhir,
Si j'ai bien lu, la variable qu'il utilise est une variable de type personnalisé et donc dans ce cas là, on peut utiliser le bloc With...End With mais par contre sauf erreur de ma part, il faudra utiliser la fonction Replace et pas la méthode.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Type invites
 date As String
 heure As String
End Type
Sub Main()
 Dim DH As invites
 DH.date = "10/2/2015"
 With DH
 .date = Replace(.date, "/", "-")
  Debug.Print .date
 End With
End Sub

[Menhir]

Je parlais de ses variables "Date" et "heure" qui, à priori, reste des String.

Code :

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

1
2
3
4
 With DH
 .date = Replace(.date, "/", "-")
  Debug.Print .date
 End With

Là, je ne vois pas trop l'intérêt du With : plus de ligne, plus de caractères, plus de complexité.
Il me semble plus simple et claire de mettre :

Code :

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

1
2
DH.date = Replace(DH.date, "/", "-")
 Debug.Print DH.date

[Philippe Tulliez]

Bonjour Menhir,

Là, je ne vois pas trop l'intérêt du With : plus de ligne, plus de caractères, plus de complexité.
Il me semble plus simple et claire de mettre :

Je suis absolument d'accord avec toi, c'était juste pour illustrer le bloc With...End With