Probleme pour alimenter plusieur variable

[soune26]

Bonjour,

Je vous explique mon problème.

Dim ADRESSE1 as string
Dim ADRESSE2 as string
Dim NB as byte

NB=1
For REF = 1 To 2
me.controls("ADRESSE" & REF) =NB c'est la que cela ne fonctionne pas
NB=NB+1
Next REF

En gros je voulais savoir si il était possible d'alimenter des variable comme des contrôles.

Merci.

 

[Pierrot93]

Re : Probleme pour alimenter plusieur variable

Bonjour,

pas tout compris.... il est erroné de déclarer des contrôles existant....

Dim NB as byte

NB=1
For NB = 1 To 2 
me.controls("ADRESSE" & REF) = NB 
Next NB

A voir le type de contrôle utilisé....

bonne journée
@+

 

[soune26]

Re : Probleme pour alimenter plusieur variable

Merci pour la rapidité, en fait je veux pouvoir alimenté plusieurs variable avec une boucle en gardant "ADRESSE" et l'incrémenté de 1 a chaque boucle.

Existe-t-il une solution?

 

[Pierrot93]

Re : Probleme pour alimenter plusieur variable

Re,

en fait je veux pouvoir alimenté plusieurs variable avec une boucle en gardant "ADRESSE" et l'incrémenté de 1 a chaque boucle.

bah... ceci doit le faire.... j'avais oublié d'enlever un REF....

Dim NB as byte
NB=1
For NB = 1 To 2 
me.controls("ADRESSE" & NB ) = NB 
Next NB

sinon... peut être nous en dire un peu plus....

 

[soune26]

Re : Probleme pour alimenter plusieur variable

Ce que je voulais, c'est que avec une boucle on alimente deux variable:

Dim ADRESSE1 as variant
Dim ADRESSE2 as Variant

Donc il faut juste me donner la syntaxe pour passé de ADRESSE1 à ADRESSE2

NB=1
For REF = 1 To 2
me.controls("ADRESSE" & REF) =NB c'est la que cela ne fonctionne pas
j'ai mis cela car je sais que sur les objet cela existe mais pour les variables y a t-il une autre syntaxe
NB=NB+1
Next REF

J'espère avoir été plus claire.

 

[Pierrot93]

Re : Probleme pour alimenter plusieur variable

Re,

tu veux peut être parler d'u tableau :

Dim ADRESSE(1 To 2) As Variant
Dim nb As Byte
For nb = 1 To 2
    ADRESSE(nb) = nb
Next nb
MsgBox ADRESSE(1)
MsgBox ADRESSE(2)

 

[soune26]

Re : Probleme pour alimenter plusieur variable

Non pas du tout,

je te met mon code:

Private Sub ENVOIMAIL_Click()
 Dim nb As Byte
 Dim REF As Byte
 Dim ADRESSE1 As Variant
 Dim ADRESSE2 As Variant
 
DESTINATAIREMAIL = TextBox12
MAGAZIN = ActiveSheet.Name
NBLIGNELISTE = ListBox1.ListCount + 1
nb = 1                                'le numero de ma variable "ADRESSE1"
For REF = 0 To NBLIGNELISTE
If ListBox1.Selected(REF) = True Then
lignemag = REF + 3
If Cells(lignemag, 14) < Cells(lignemag, 13) Then






Me.Controls("ADRESSE" & nb) = "K:\LEROY MERLIN\MAGASIN\" & MAGAZIN & "\" & Cells(lignemag, 17) & ".pdf"






nb = nb + 1                            'le numero de ma variable "ADRESSE2"
End If
End If
Next REF

Dim ol As New Outlook.Application
Dim OLmail As MailItem
Set ol = New Outlook.Application
Set OLmail = ol.CreateItem(olMailItem)
With OLmail
.To = DESTINATAIREMAIL
.Subject = "Votre dossier pal " & MAGAZIN
.Body = "Bonjour Emilie et Virginie," & vbNewLine & vbNewLine & _
              "" & vbNewLine & _
              "Voilà votre fichier palette en date du" & DERNIEREDATE & vbNewLine & _
              "" & vbNewLine & _
              "Cordialement" & vbNewLine & _
              "" & vbNewLine & _
              "Vincent Blanc"
.Attachments.Add ADRESSE1
.Attachments.Add ADRESSE2
.display
'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With

End Sub

voilà pourquoi j'ai besoin de passer d'une variable à l'autre, pour mettre des chemins de fichier diffèrent à ADRESSE1 et ADRESSE2.

 

[Pierrot93]

Re : Probleme pour alimenter plusieur variable

Re,

et bien cela corresponda tout à fait...

 

[soune26]

Re : Probleme pour alimenter plusieur variable

Ben non car quand j'arrive là :

Me.Controls("ADRESSE" & nb) = "K:\LEROY MERLIN\MAGASIN\" & MAGAZIN & "\" & Cells(lignemag, 17) & ".pdf"

j'obtiens "Objet spécifié introuvable"

 

[Pierrot93]

Re : Probleme pour alimenter plusieur variable

Re,

normal... regarde post #6... pas de "Me.Controls".... mais

ADRESSE(nb) = "K:\LEROY MERLIN\MAGASIN\" & MAGAZIN & "\" & Cells(lignemag, 17) & ".pdf"

il faudra revoir également les déclarations des variables.....

 

[soune26]

Re : Probleme pour alimenter plusieur variable

OK ça marche impec!!!

Je ne savais pas qu'on pouvais alimenter plusieurs variables avec une seule déclaration.

Je te remercie Pierrot