récupération valeur de variable

Le
Pierre52
bonsoir à toutes et tous,

dans un module j'ai

Sub Num_Cheque()
Dim Num As String
Num = InputBox("Numéro du chèque :", "Chéque")
If Num = "" Then
MsgBox "Aucune donnée n'a été saisie"
Exit Sub
Else
MsgBox Num
End If
End Sub

sur un commandbutton click ,j'ai ça

Private Sub CommandButton1_Click()


[M1].Offset(Ligne - 1) = Me.TextBox1.Value
[N1].Offset(Ligne - 1) = Me.Arrhes.Value
[O1].Offset(Ligne - 1) = Me.TextBox2.Value
If OptionButton3 = True Then
Num_Cheque
Nom_Banque
With [O1].Offset(Ligne - 1).AddComment
.Text Text:=.Text & "Payé le" & Date & " chèque n°" & Num & Banque
.Shape.TextFrame.AutoSize = True
End With
End If
End Sub

les 2 procs se passent bien(Num_Cheque et Nom_Banque)

les valeurs des variables Num et Banque(même pocédure que pour Num) ne
sont pas prise en compte dans l'ajout du commentaire qui s'arrête à
"chèque n°"

merci de votre aide car je patauge et je vois pas pourquoi
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4867731
Bonsoir.
Parce que "Num" n'a pas d'existence hors de la macro. Tu peux mettre :
Public Num as String
au début de ton module (ôte alors la ligne "Dim Num as String")
ou alors, passe Num comme paramètre à la macro "Num_Cheque" :

Sub Num_Cheque(Num)
Num = InputBox("Numéro du chèque :", "Chéque")
If Num = "" Then
MsgBox "Aucune donnée n'a été saisie"
Exit Sub
Else
MsgBox Num
End If
End Sub

Private Sub CommandButton1_Click()

Dim Numero as String
[M1].Offset(Ligne - 1) = Me.TextBox1.Value
[N1].Offset(Ligne - 1) = Me.Arrhes.Value
[O1].Offset(Ligne - 1) = Me.TextBox2.Value
If OptionButton3 = True Then
Num_Cheque Numero
Nom_Banque
With [O1].Offset(Ligne - 1).AddComment
.Text Text:=.Text & "Payé le" & Date & " chèque n°" & Numero & Banque
.Shape.TextFrame.AutoSize = True
End With
End If
End Sub

Fais pareil pour Nom_Banque.
Cordialement.
Daniel
"Pierre52"
bonsoir à toutes et tous,

dans un module j'ai

Sub Num_Cheque()
Dim Num As String
Num = InputBox("Numéro du chèque :", "Chéque")
If Num = "" Then
MsgBox "Aucune donnée n'a été saisie"
Exit Sub
Else
MsgBox Num
End If
End Sub

sur un commandbutton click ,j'ai ça

Private Sub CommandButton1_Click()


[M1].Offset(Ligne - 1) = Me.TextBox1.Value
[N1].Offset(Ligne - 1) = Me.Arrhes.Value
[O1].Offset(Ligne - 1) = Me.TextBox2.Value
If OptionButton3 = True Then
Num_Cheque
Nom_Banque
With [O1].Offset(Ligne - 1).AddComment
.Text Text:=.Text & "Payé le" & Date & " chèque n°" & Num & Banque
.Shape.TextFrame.AutoSize = True
End With
End If
End Sub

les 2 procs se passent bien(Num_Cheque et Nom_Banque)

les valeurs des variables Num et Banque(même pocédure que pour Num) ne
sont pas prise en compte dans l'ajout du commentaire qui s'arrête à
"chèque n°"

merci de votre aide car je patauge et je vois pas pourquoi


Pierre52
Le #4867691
merci beaucoup c'est bon
sais tu comment faire un "à la ligne" dans un commentaire pour metter la
date le numéro et la banque sur des lignes différentes

merci d'avance

Bonsoir.
Parce que "Num" n'a pas d'existence hors de la macro. Tu peux mettre :
Public Num as String
au début de ton module (ôte alors la ligne "Dim Num as String")
ou alors, passe Num comme paramètre à la macro "Num_Cheque" :

Sub Num_Cheque(Num)
Num = InputBox("Numéro du chèque :", "Chéque")
If Num = "" Then
MsgBox "Aucune donnée n'a été saisie"
Exit Sub
Else
MsgBox Num
End If
End Sub

Private Sub CommandButton1_Click()

Dim Numero as String
[M1].Offset(Ligne - 1) = Me.TextBox1.Value
[N1].Offset(Ligne - 1) = Me.Arrhes.Value
[O1].Offset(Ligne - 1) = Me.TextBox2.Value
If OptionButton3 = True Then
Num_Cheque Numero
Nom_Banque
With [O1].Offset(Ligne - 1).AddComment
.Text Text:=.Text & "Payé le" & Date & " chèque n°" & Numero & Banque
.Shape.TextFrame.AutoSize = True
End With
End If
End Sub

Fais pareil pour Nom_Banque.
Cordialement.
Daniel
"Pierre52"
bonsoir à toutes et tous,

dans un module j'ai

Sub Num_Cheque()
Dim Num As String
Num = InputBox("Numéro du chèque :", "Chéque")
If Num = "" Then
MsgBox "Aucune donnée n'a été saisie"
Exit Sub
Else
MsgBox Num
End If
End Sub

sur un commandbutton click ,j'ai ça

Private Sub CommandButton1_Click()


[M1].Offset(Ligne - 1) = Me.TextBox1.Value
[N1].Offset(Ligne - 1) = Me.Arrhes.Value
[O1].Offset(Ligne - 1) = Me.TextBox2.Value
If OptionButton3 = True Then
Num_Cheque
Nom_Banque
With [O1].Offset(Ligne - 1).AddComment
.Text Text:=.Text & "Payé le" & Date & " chèque n°" & Num & Banque
.Shape.TextFrame.AutoSize = True
End With
End If
End Sub

les 2 procs se passent bien(Num_Cheque et Nom_Banque)

les valeurs des variables Num et Banque(même pocédure que pour Num) ne
sont pas prise en compte dans l'ajout du commentaire qui s'arrête à
"chèque n°"

merci de votre aide car je patauge et je vois pas pourquoi






Daniel
Le #4867671
En appuyant sur la touche "Entrée".
Daniel
"Pierre52"
merci beaucoup c'est bon
sais tu comment faire un "à la ligne" dans un commentaire pour metter la
date le numéro et la banque sur des lignes différentes

merci d'avance

Bonsoir.
Parce que "Num" n'a pas d'existence hors de la macro. Tu peux mettre :
Public Num as String
au début de ton module (ôte alors la ligne "Dim Num as String")
ou alors, passe Num comme paramètre à la macro "Num_Cheque" :

Sub Num_Cheque(Num)
Num = InputBox("Numéro du chèque :", "Chéque")
If Num = "" Then
MsgBox "Aucune donnée n'a été saisie"
Exit Sub
Else
MsgBox Num
End If
End Sub

Private Sub CommandButton1_Click()

Dim Numero as String
[M1].Offset(Ligne - 1) = Me.TextBox1.Value
[N1].Offset(Ligne - 1) = Me.Arrhes.Value
[O1].Offset(Ligne - 1) = Me.TextBox2.Value
If OptionButton3 = True Then
Num_Cheque Numero
Nom_Banque
With [O1].Offset(Ligne - 1).AddComment
.Text Text:=.Text & "Payé le" & Date & " chèque n°" & Numero &
Banque
.Shape.TextFrame.AutoSize = True
End With
End If
End Sub

Fais pareil pour Nom_Banque.
Cordialement.
Daniel
"Pierre52"
bonsoir à toutes et tous,

dans un module j'ai

Sub Num_Cheque()
Dim Num As String
Num = InputBox("Numéro du chèque :", "Chéque")
If Num = "" Then
MsgBox "Aucune donnée n'a été saisie"
Exit Sub
Else
MsgBox Num
End If
End Sub

sur un commandbutton click ,j'ai ça

Private Sub CommandButton1_Click()


[M1].Offset(Ligne - 1) = Me.TextBox1.Value
[N1].Offset(Ligne - 1) = Me.Arrhes.Value
[O1].Offset(Ligne - 1) = Me.TextBox2.Value
If OptionButton3 = True Then
Num_Cheque
Nom_Banque
With [O1].Offset(Ligne - 1).AddComment
.Text Text:=.Text & "Payé le" & Date & " chèque n°" & Num & Banque
.Shape.TextFrame.AutoSize = True
End With
End If
End Sub

les 2 procs se passent bien(Num_Cheque et Nom_Banque)

les valeurs des variables Num et Banque(même pocédure que pour Num) ne
sont pas prise en compte dans l'ajout du commentaire qui s'arrête à
"chèque n°"

merci de votre aide car je patauge et je vois pas pourquoi







Pierre52
Le #4867611
oui merci
je parlais de de la macro

.Text Text:=.Text & "Payé le" & Date & " chèque n°" & Numero &_
Banque
.Shape.TextFrame.AutoSize = True

En appuyant sur la touche "Entrée".
Daniel
"Pierre52"
merci beaucoup c'est bon
sais tu comment faire un "à la ligne" dans un commentaire pour metter la
date le numéro et la banque sur des lignes différentes

merci d'avance

Bonsoir.
Parce que "Num" n'a pas d'existence hors de la macro. Tu peux mettre :
Public Num as String
au début de ton module (ôte alors la ligne "Dim Num as String")
ou alors, passe Num comme paramètre à la macro "Num_Cheque" :

Sub Num_Cheque(Num)
Num = InputBox("Numéro du chèque :", "Chéque")
If Num = "" Then
MsgBox "Aucune donnée n'a été saisie"
Exit Sub
Else
MsgBox Num
End If
End Sub

Private Sub CommandButton1_Click()

Dim Numero as String
[M1].Offset(Ligne - 1) = Me.TextBox1.Value
[N1].Offset(Ligne - 1) = Me.Arrhes.Value
[O1].Offset(Ligne - 1) = Me.TextBox2.Value
If OptionButton3 = True Then
Num_Cheque Numero
Nom_Banque
With [O1].Offset(Ligne - 1).AddComment
.Text Text:=.Text & "Payé le" & Date & " chèque n°" & Numero &
Banque
.Shape.TextFrame.AutoSize = True
End With
End If
End Sub

Fais pareil pour Nom_Banque.
Cordialement.
Daniel
"Pierre52"
bonsoir à toutes et tous,

dans un module j'ai

Sub Num_Cheque()
Dim Num As String
Num = InputBox("Numéro du chèque :", "Chéque")
If Num = "" Then
MsgBox "Aucune donnée n'a été saisie"
Exit Sub
Else
MsgBox Num
End If
End Sub

sur un commandbutton click ,j'ai ça

Private Sub CommandButton1_Click()


[M1].Offset(Ligne - 1) = Me.TextBox1.Value
[N1].Offset(Ligne - 1) = Me.Arrhes.Value
[O1].Offset(Ligne - 1) = Me.TextBox2.Value
If OptionButton3 = True Then
Num_Cheque
Nom_Banque
With [O1].Offset(Ligne - 1).AddComment
.Text Text:=.Text & "Payé le" & Date & " chèque n°" & Num & Banque
.Shape.TextFrame.AutoSize = True
End With
End If
End Sub

les 2 procs se passent bien(Num_Cheque et Nom_Banque)

les valeurs des variables Num et Banque(même pocédure que pour Num) ne
sont pas prise en compte dans l'ajout du commentaire qui s'arrête à
"chèque n°"

merci de votre aide car je patauge et je vois pas pourquoi









LSteph
Le #4867561
Bonjour,

& vbcrlf &
ou
& chr(10) &

Cordialement.

lSteph

oui merci
je parlais de de la macro

.Text Text:=.Text & "Payé le" & Date & " chèque n°" & Numero &_
Banque
.Shape.TextFrame.AutoSize = True

En appuyant sur la touche "Entrée".
Daniel
"Pierre52"
merci beaucoup c'est bon
sais tu comment faire un "à la ligne" dans un commentaire pour metter
la date le numéro et la banque sur des lignes différentes

merci d'avance

Bonsoir.
Parce que "Num" n'a pas d'existence hors de la macro. Tu peux mettre :
Public Num as String
au début de ton module (ôte alors la ligne "Dim Num as String")
ou alors, passe Num comme paramètre à la macro "Num_Cheque" :

Sub Num_Cheque(Num)
Num = InputBox("Numéro du chèque :", "Chéque")
If Num = "" Then
MsgBox "Aucune donnée n'a été saisie"
Exit Sub
Else
MsgBox Num
End If
End Sub

Private Sub CommandButton1_Click()

Dim Numero as String
[M1].Offset(Ligne - 1) = Me.TextBox1.Value
[N1].Offset(Ligne - 1) = Me.Arrhes.Value
[O1].Offset(Ligne - 1) = Me.TextBox2.Value
If OptionButton3 = True Then
Num_Cheque Numero
Nom_Banque
With [O1].Offset(Ligne - 1).AddComment
.Text Text:=.Text & "Payé le" & Date & " chèque n°" & Numero &
Banque
.Shape.TextFrame.AutoSize = True
End With
End If
End Sub

Fais pareil pour Nom_Banque.
Cordialement.
Daniel
"Pierre52"
bonsoir à toutes et tous,

dans un module j'ai

Sub Num_Cheque()
Dim Num As String
Num = InputBox("Numéro du chèque :", "Chéque")
If Num = "" Then
MsgBox "Aucune donnée n'a été saisie"
Exit Sub
Else
MsgBox Num
End If
End Sub

sur un commandbutton click ,j'ai ça

Private Sub CommandButton1_Click()


[M1].Offset(Ligne - 1) = Me.TextBox1.Value
[N1].Offset(Ligne - 1) = Me.Arrhes.Value
[O1].Offset(Ligne - 1) = Me.TextBox2.Value
If OptionButton3 = True Then
Num_Cheque
Nom_Banque
With [O1].Offset(Ligne - 1).AddComment
.Text Text:=.Text & "Payé le" & Date & " chèque n°" & Num & Banque
.Shape.TextFrame.AutoSize = True
End With
End If
End Sub

les 2 procs se passent bien(Num_Cheque et Nom_Banque)

les valeurs des variables Num et Banque(même pocédure que pour Num)
ne sont pas prise en compte dans l'ajout du commentaire qui
s'arrête à "chèque n°"

merci de votre aide car je patauge et je vois pas pourquoi











Pierre52
Le #4867541
parfait comme d'habitude
merci beaucoup à tous les 2


Bonjour,

& vbcrlf &
ou
& chr(10) &

Cordialement.

lSteph

oui merci
je parlais de de la macro

.Text Text:=.Text & "Payé le" & Date & " chèque n°" & Numero &_
Banque
.Shape.TextFrame.AutoSize = True

En appuyant sur la touche "Entrée".
Daniel
"Pierre52"
merci beaucoup c'est bon
sais tu comment faire un "à la ligne" dans un commentaire pour
metter la date le numéro et la banque sur des lignes différentes

merci d'avance

Bonsoir.
Parce que "Num" n'a pas d'existence hors de la macro. Tu peux mettre :
Public Num as String
au début de ton module (ôte alors la ligne "Dim Num as String")
ou alors, passe Num comme paramètre à la macro "Num_Cheque" :

Sub Num_Cheque(Num)
Num = InputBox("Numéro du chèque :", "Chéque")
If Num = "" Then
MsgBox "Aucune donnée n'a été saisie"
Exit Sub
Else
MsgBox Num
End If
End Sub

Private Sub CommandButton1_Click()

Dim Numero as String
[M1].Offset(Ligne - 1) = Me.TextBox1.Value
[N1].Offset(Ligne - 1) = Me.Arrhes.Value
[O1].Offset(Ligne - 1) = Me.TextBox2.Value
If OptionButton3 = True Then
Num_Cheque Numero
Nom_Banque
With [O1].Offset(Ligne - 1).AddComment
.Text Text:=.Text & "Payé le" & Date & " chèque n°" & Numero &
Banque
.Shape.TextFrame.AutoSize = True
End With
End If
End Sub

Fais pareil pour Nom_Banque.
Cordialement.
Daniel
"Pierre52"
bonsoir à toutes et tous,

dans un module j'ai

Sub Num_Cheque()
Dim Num As String
Num = InputBox("Numéro du chèque :", "Chéque")
If Num = "" Then
MsgBox "Aucune donnée n'a été saisie"
Exit Sub
Else
MsgBox Num
End If
End Sub

sur un commandbutton click ,j'ai ça

Private Sub CommandButton1_Click()


[M1].Offset(Ligne - 1) = Me.TextBox1.Value
[N1].Offset(Ligne - 1) = Me.Arrhes.Value
[O1].Offset(Ligne - 1) = Me.TextBox2.Value
If OptionButton3 = True Then
Num_Cheque
Nom_Banque
With [O1].Offset(Ligne - 1).AddComment
.Text Text:=.Text & "Payé le" & Date & " chèque n°" & Num &
Banque
.Shape.TextFrame.AutoSize = True
End With
End If
End Sub

les 2 procs se passent bien(Num_Cheque et Nom_Banque)

les valeurs des variables Num et Banque(même pocédure que pour
Num) ne sont pas prise en compte dans l'ajout du commentaire qui
s'arrête à "chèque n°"

merci de votre aide car je patauge et je vois pas pourquoi













Philippe.R
Le #4867401
Bonsoir,

Perso, je préfère
& vbnewline &
qui a le mérite de bien passer sous mac

Amicalement

"LSteph" news:
Bonjour,

& vbcrlf &
ou
& chr(10) &

Cordialement.

lSteph

[...]>>> "Pierre52"


merci beaucoup c'est bon
sais tu comment faire un "à la ligne" dans un commentaire pour metter
la date le numéro et la banque sur des lignes différentes

[...]








LSteph
Le #4867351
Bonsoir Philippe,

Mais oui, mais oui il faut y penser aussi...

Amicalement.

lSteph



Bonsoir,

Perso, je préfère
& vbnewline &
qui a le mérite de bien passer sous mac

Amicalement

"LSteph" news:
Bonjour,

& vbcrlf &
ou
& chr(10) &

Cordialement.

lSteph

[...]>>> "Pierre52"


merci beaucoup c'est bon
sais tu comment faire un "à la ligne" dans un commentaire pour
metter la date le numéro et la banque sur des lignes différentes

[...]










Publicité
Poster une réponse
Anonyme