Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel récupération valeur de variable

récupération valeur de variable

8 réponses
Avatar
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
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
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" a écrit dans le message de news:

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


Avatar
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" a écrit dans le message de news:

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






Avatar
Daniel
En appuyant sur la touche "Entrée".
Daniel
"Pierre52" a écrit dans le message de news:

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" a écrit dans le message de news:

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







Avatar
Pierre52
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" a écrit dans le message de news:

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" a écrit dans le message de news:

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









Avatar
LSteph
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" a écrit dans le message de news:

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" a écrit dans le message de news:

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











Avatar
Pierre52
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" a écrit dans le message de news:

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" a écrit dans le message de news:

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













Avatar
Philippe.R
Bonsoir,

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

Amicalement

"LSteph" a écrit dans le message de
news:
Bonjour,

& vbcrlf &
ou
& chr(10) &

Cordialement.

lSteph

[...]>>> "Pierre52" a écrit dans le message de news:


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

[...]








Avatar
LSteph
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" a écrit dans le message de
news:
Bonjour,

& vbcrlf &
ou
& chr(10) &

Cordialement.

lSteph

[...]>>> "Pierre52" a écrit dans le message de news:


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

[...]