Bonsoir à toutes et à tous
Je voudrai modifier cette formule
Set Lisc = Sheets("services").Range("Catégories")
NC = Lisc.Count
Dim i As Single
Dim myarrayc(4, 1)
For i = 1 To NC '- 1
myarrayc(i, 0) = Lisc(i)
Next i
FrmServices.Catégories.List() = myarrayc
pour lui rajouter: Catégorie2, Catégorie3, Catégorie4 à la suite de
.Range("Catégories")
Merci pour votre aide
Bonsoir à toutes et à tous
Je voudrai modifier cette formule
Set Lisc = Sheets("services").Range("Catégories")
NC = Lisc.Count
Dim i As Single
Dim myarrayc(4, 1)
For i = 1 To NC '- 1
myarrayc(i, 0) = Lisc(i)
Next i
FrmServices.Catégories.List() = myarrayc
pour lui rajouter: Catégorie2, Catégorie3, Catégorie4 à la suite de
.Range("Catégories")
Merci pour votre aide
Bonsoir à toutes et à tous
Je voudrai modifier cette formule
Set Lisc = Sheets("services").Range("Catégories")
NC = Lisc.Count
Dim i As Single
Dim myarrayc(4, 1)
For i = 1 To NC '- 1
myarrayc(i, 0) = Lisc(i)
Next i
FrmServices.Catégories.List() = myarrayc
pour lui rajouter: Catégorie2, Catégorie3, Catégorie4 à la suite de
.Range("Catégories")
Merci pour votre aide
'------------------------------------
Sub Test()
Dim Lisc As Range, Myarray
'Détermine la plage de cellules
Set Lisc = Sheets("services").Range("Catégories")
'Ceci est suffisant
Myarray = Lisc
'Ceci suppose que tu as un formulaire dans lequel
'tu as un contrôle "List" nommé catégories
FrmServices.Catégories.List = Myarray
End Sub
'------------------------------------
"Peponne31" a écrit dans le message de
news:
Bonsoir à toutes et à tous
Je voudrai modifier cette formule
Set Lisc = Sheets("services").Range("Catégories")
NC = Lisc.Count
Dim i As Single
Dim myarrayc(4, 1)
For i = 1 To NC '- 1
myarrayc(i, 0) = Lisc(i)
Next i
FrmServices.Catégories.List() = myarrayc
pour lui rajouter: Catégorie2, Catégorie3, Catégorie4 à la suite de
..Range("Catégories")
Merci pour votre aide
'------------------------------------
Sub Test()
Dim Lisc As Range, Myarray
'Détermine la plage de cellules
Set Lisc = Sheets("services").Range("Catégories")
'Ceci est suffisant
Myarray = Lisc
'Ceci suppose que tu as un formulaire dans lequel
'tu as un contrôle "List" nommé catégories
FrmServices.Catégories.List = Myarray
End Sub
'------------------------------------
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: F5BD90ED-4555-45CC-95FE-8550B08D8ADE@microsoft.com...
Bonsoir à toutes et à tous
Je voudrai modifier cette formule
Set Lisc = Sheets("services").Range("Catégories")
NC = Lisc.Count
Dim i As Single
Dim myarrayc(4, 1)
For i = 1 To NC '- 1
myarrayc(i, 0) = Lisc(i)
Next i
FrmServices.Catégories.List() = myarrayc
pour lui rajouter: Catégorie2, Catégorie3, Catégorie4 à la suite de
..Range("Catégories")
Merci pour votre aide
'------------------------------------
Sub Test()
Dim Lisc As Range, Myarray
'Détermine la plage de cellules
Set Lisc = Sheets("services").Range("Catégories")
'Ceci est suffisant
Myarray = Lisc
'Ceci suppose que tu as un formulaire dans lequel
'tu as un contrôle "List" nommé catégories
FrmServices.Catégories.List = Myarray
End Sub
'------------------------------------
"Peponne31" a écrit dans le message de
news:
Bonsoir à toutes et à tous
Je voudrai modifier cette formule
Set Lisc = Sheets("services").Range("Catégories")
NC = Lisc.Count
Dim i As Single
Dim myarrayc(4, 1)
For i = 1 To NC '- 1
myarrayc(i, 0) = Lisc(i)
Next i
FrmServices.Catégories.List() = myarrayc
pour lui rajouter: Catégorie2, Catégorie3, Catégorie4 à la suite de
..Range("Catégories")
Merci pour votre aide
Bonsoir,
A mettre dans le module de ta Form :
Private Sub UserForm_Activate()
Dim I As Single
Dim J As Single
With ThisWorkbook
For I = 1 To .Names.Count
If InStr(.Names(I).Name, _
"Catégorie") <> 0 Then
For J = 1 To Range(.Names(I).Name).Count
FrmServices.Catégories.AddItem _
Range(.Names(I).Name)(J)
Next J
End If
Next I
End With
End Sub
Hervé.
"Peponne31" a écrit dans le message
de news:Bonsoir à toutes et à tous
Je voudrai modifier cette formule
Set Lisc = Sheets("services").Range("Catégories")
NC = Lisc.Count
Dim i As Single
Dim myarrayc(4, 1)
For i = 1 To NC '- 1
myarrayc(i, 0) = Lisc(i)
Next i
FrmServices.Catégories.List() = myarrayc
pour lui rajouter: Catégorie2, Catégorie3, Catégorie4 à la suite de
.Range("Catégories")
Merci pour votre aide
Bonsoir,
A mettre dans le module de ta Form :
Private Sub UserForm_Activate()
Dim I As Single
Dim J As Single
With ThisWorkbook
For I = 1 To .Names.Count
If InStr(.Names(I).Name, _
"Catégorie") <> 0 Then
For J = 1 To Range(.Names(I).Name).Count
FrmServices.Catégories.AddItem _
Range(.Names(I).Name)(J)
Next J
End If
Next I
End With
End Sub
Hervé.
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message
de news: F5BD90ED-4555-45CC-95FE-8550B08D8ADE@microsoft.com...
Bonsoir à toutes et à tous
Je voudrai modifier cette formule
Set Lisc = Sheets("services").Range("Catégories")
NC = Lisc.Count
Dim i As Single
Dim myarrayc(4, 1)
For i = 1 To NC '- 1
myarrayc(i, 0) = Lisc(i)
Next i
FrmServices.Catégories.List() = myarrayc
pour lui rajouter: Catégorie2, Catégorie3, Catégorie4 à la suite de
.Range("Catégories")
Merci pour votre aide
Bonsoir,
A mettre dans le module de ta Form :
Private Sub UserForm_Activate()
Dim I As Single
Dim J As Single
With ThisWorkbook
For I = 1 To .Names.Count
If InStr(.Names(I).Name, _
"Catégorie") <> 0 Then
For J = 1 To Range(.Names(I).Name).Count
FrmServices.Catégories.AddItem _
Range(.Names(I).Name)(J)
Next J
End If
Next I
End With
End Sub
Hervé.
"Peponne31" a écrit dans le message
de news:Bonsoir à toutes et à tous
Je voudrai modifier cette formule
Set Lisc = Sheets("services").Range("Catégories")
NC = Lisc.Count
Dim i As Single
Dim myarrayc(4, 1)
For i = 1 To NC '- 1
myarrayc(i, 0) = Lisc(i)
Next i
FrmServices.Catégories.List() = myarrayc
pour lui rajouter: Catégorie2, Catégorie3, Catégorie4 à la suite de
.Range("Catégories")
Merci pour votre aide
Salut Peponne31
j'ai regardé pour visage, je terminerai plus tard
http://cjoint.com/?lrkn4TrTJl
--
Cordialement
"Hervé" a écrit dans le message de
news:%Bonsoir,
A mettre dans le module de ta Form :
Private Sub UserForm_Activate()
Dim I As Single
Dim J As Single
With ThisWorkbook
For I = 1 To .Names.Count
If InStr(.Names(I).Name, _
"Catégorie") <> 0 Then
For J = 1 To Range(.Names(I).Name).Count
FrmServices.Catégories.AddItem _
Range(.Names(I).Name)(J)
Next J
End If
Next I
End With
End Sub
Hervé.
"Peponne31" a écrit dans le message
de news:Bonsoir à toutes et à tous
Je voudrai modifier cette formule
Set Lisc = Sheets("services").Range("Catégories")
NC = Lisc.Count
Dim i As Single
Dim myarrayc(4, 1)
For i = 1 To NC '- 1
myarrayc(i, 0) = Lisc(i)
Next i
FrmServices.Catégories.List() = myarrayc
pour lui rajouter: Catégorie2, Catégorie3, Catégorie4 à la suite de
.Range("Catégories")
Merci pour votre aide
Salut Peponne31
j'ai regardé pour visage, je terminerai plus tard
http://cjoint.com/?lrkn4TrTJl
--
Cordialement
jpmonnier-nospam@neuf.fr
"Hervé" <hmsilve-sanspub@wanadoo.fr> a écrit dans le message de
news:%23qXm9DCSJHA.588@TK2MSFTNGP06.phx.gbl...
Bonsoir,
A mettre dans le module de ta Form :
Private Sub UserForm_Activate()
Dim I As Single
Dim J As Single
With ThisWorkbook
For I = 1 To .Names.Count
If InStr(.Names(I).Name, _
"Catégorie") <> 0 Then
For J = 1 To Range(.Names(I).Name).Count
FrmServices.Catégories.AddItem _
Range(.Names(I).Name)(J)
Next J
End If
Next I
End With
End Sub
Hervé.
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message
de news: F5BD90ED-4555-45CC-95FE-8550B08D8ADE@microsoft.com...
Bonsoir à toutes et à tous
Je voudrai modifier cette formule
Set Lisc = Sheets("services").Range("Catégories")
NC = Lisc.Count
Dim i As Single
Dim myarrayc(4, 1)
For i = 1 To NC '- 1
myarrayc(i, 0) = Lisc(i)
Next i
FrmServices.Catégories.List() = myarrayc
pour lui rajouter: Catégorie2, Catégorie3, Catégorie4 à la suite de
.Range("Catégories")
Merci pour votre aide
Salut Peponne31
j'ai regardé pour visage, je terminerai plus tard
http://cjoint.com/?lrkn4TrTJl
--
Cordialement
"Hervé" a écrit dans le message de
news:%Bonsoir,
A mettre dans le module de ta Form :
Private Sub UserForm_Activate()
Dim I As Single
Dim J As Single
With ThisWorkbook
For I = 1 To .Names.Count
If InStr(.Names(I).Name, _
"Catégorie") <> 0 Then
For J = 1 To Range(.Names(I).Name).Count
FrmServices.Catégories.AddItem _
Range(.Names(I).Name)(J)
Next J
End If
Next I
End With
End Sub
Hervé.
"Peponne31" a écrit dans le message
de news:Bonsoir à toutes et à tous
Je voudrai modifier cette formule
Set Lisc = Sheets("services").Range("Catégories")
NC = Lisc.Count
Dim i As Single
Dim myarrayc(4, 1)
For i = 1 To NC '- 1
myarrayc(i, 0) = Lisc(i)
Next i
FrmServices.Catégories.List() = myarrayc
pour lui rajouter: Catégorie2, Catégorie3, Catégorie4 à la suite de
.Range("Catégories")
Merci pour votre aide
Salut Peponne31
J'ai continuer et je pense que tu tiens le bon bout
J'ai traité tous les cas de services
http://cjoint.com/?lrvASny3Hy
--
Cordialement
"JPMonnier" a écrit dans le message de
news:
> Salut Peponne31
> j'ai regardé pour visage, je terminerai plus tard
> http://cjoint.com/?lrkn4TrTJl
> --
> Cordialement
>
> "Hervé" a écrit dans le message de
> news:%
>> Bonsoir,
>>
>> A mettre dans le module de ta Form :
>>
>> Private Sub UserForm_Activate()
>> Dim I As Single
>> Dim J As Single
>> With ThisWorkbook
>> For I = 1 To .Names.Count
>> If InStr(.Names(I).Name, _
>> "Catégorie") <> 0 Then
>> For J = 1 To Range(.Names(I).Name).Count
>> FrmServices.Catégories.AddItem _
>> Range(.Names(I).Name)(J)
>> Next J
>> End If
>> Next I
>> End With
>> End Sub
>>
>> Hervé.
>>
>>
>> "Peponne31" a écrit dans le message
>> de news:
>>> Bonsoir à toutes et à tous
>>>
>>> Je voudrai modifier cette formule
>>>
>>> Set Lisc = Sheets("services").Range("Catégories")
>>> NC = Lisc.Count
>>> Dim i As Single
>>> Dim myarrayc(4, 1)
>>> For i = 1 To NC '- 1
>>> myarrayc(i, 0) = Lisc(i)
>>> Next i
>>> FrmServices.Catégories.List() = myarrayc
>>>
>>> pour lui rajouter: Catégorie2, Catégorie3, Catégorie4 à la suite de
>>> .Range("Catégories")
>>> Merci pour votre aide
>>>
>>
>>
>
Salut Peponne31
J'ai continuer et je pense que tu tiens le bon bout
J'ai traité tous les cas de services
http://cjoint.com/?lrvASny3Hy
--
Cordialement
jpmonnier-nospam@neuf.fr
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de
news:e1ACgVJSJHA.4916@TK2MSFTNGP06.phx.gbl...
> Salut Peponne31
> j'ai regardé pour visage, je terminerai plus tard
> http://cjoint.com/?lrkn4TrTJl
> --
> Cordialement
> jpmonnier-nospam@neuf.fr
> "Hervé" <hmsilve-sanspub@wanadoo.fr> a écrit dans le message de
> news:%23qXm9DCSJHA.588@TK2MSFTNGP06.phx.gbl...
>> Bonsoir,
>>
>> A mettre dans le module de ta Form :
>>
>> Private Sub UserForm_Activate()
>> Dim I As Single
>> Dim J As Single
>> With ThisWorkbook
>> For I = 1 To .Names.Count
>> If InStr(.Names(I).Name, _
>> "Catégorie") <> 0 Then
>> For J = 1 To Range(.Names(I).Name).Count
>> FrmServices.Catégories.AddItem _
>> Range(.Names(I).Name)(J)
>> Next J
>> End If
>> Next I
>> End With
>> End Sub
>>
>> Hervé.
>>
>>
>> "Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message
>> de news: F5BD90ED-4555-45CC-95FE-8550B08D8ADE@microsoft.com...
>>> Bonsoir à toutes et à tous
>>>
>>> Je voudrai modifier cette formule
>>>
>>> Set Lisc = Sheets("services").Range("Catégories")
>>> NC = Lisc.Count
>>> Dim i As Single
>>> Dim myarrayc(4, 1)
>>> For i = 1 To NC '- 1
>>> myarrayc(i, 0) = Lisc(i)
>>> Next i
>>> FrmServices.Catégories.List() = myarrayc
>>>
>>> pour lui rajouter: Catégorie2, Catégorie3, Catégorie4 à la suite de
>>> .Range("Catégories")
>>> Merci pour votre aide
>>>
>>
>>
>
Salut Peponne31
J'ai continuer et je pense que tu tiens le bon bout
J'ai traité tous les cas de services
http://cjoint.com/?lrvASny3Hy
--
Cordialement
"JPMonnier" a écrit dans le message de
news:
> Salut Peponne31
> j'ai regardé pour visage, je terminerai plus tard
> http://cjoint.com/?lrkn4TrTJl
> --
> Cordialement
>
> "Hervé" a écrit dans le message de
> news:%
>> Bonsoir,
>>
>> A mettre dans le module de ta Form :
>>
>> Private Sub UserForm_Activate()
>> Dim I As Single
>> Dim J As Single
>> With ThisWorkbook
>> For I = 1 To .Names.Count
>> If InStr(.Names(I).Name, _
>> "Catégorie") <> 0 Then
>> For J = 1 To Range(.Names(I).Name).Count
>> FrmServices.Catégories.AddItem _
>> Range(.Names(I).Name)(J)
>> Next J
>> End If
>> Next I
>> End With
>> End Sub
>>
>> Hervé.
>>
>>
>> "Peponne31" a écrit dans le message
>> de news:
>>> Bonsoir à toutes et à tous
>>>
>>> Je voudrai modifier cette formule
>>>
>>> Set Lisc = Sheets("services").Range("Catégories")
>>> NC = Lisc.Count
>>> Dim i As Single
>>> Dim myarrayc(4, 1)
>>> For i = 1 To NC '- 1
>>> myarrayc(i, 0) = Lisc(i)
>>> Next i
>>> FrmServices.Catégories.List() = myarrayc
>>>
>>> pour lui rajouter: Catégorie2, Catégorie3, Catégorie4 à la suite de
>>> .Range("Catégories")
>>> Merci pour votre aide
>>>
>>
>>
>
Bonsoir JPMonnier,
Je tiens à te remercier pour le temps que tu me consacre et pour ton
travail. Je ne pense pas y ètre arrivé sans ton aide. Peux tu me dire s'il
est possible de rajouter les zéros après la virgule ?. je souhaiterai
depuis
le formulaire ajouter dans la facture la désignation d'un produit et sa
valeur que se trouve dans la feuille Tarifs cela est-il réalisable?. Merci
pour tout et bonne soirée.
Peponne31
"JPMonnier" a écrit :Salut Peponne31
J'ai continuer et je pense que tu tiens le bon bout
J'ai traité tous les cas de services
http://cjoint.com/?lrvASny3Hy
--
Cordialement
"JPMonnier" a écrit dans le message de
news:
> Salut Peponne31
> j'ai regardé pour visage, je terminerai plus tard
> http://cjoint.com/?lrkn4TrTJl
> --
> Cordialement
>
> "Hervé" a écrit dans le message de
> news:%
>> Bonsoir,
>>
>> A mettre dans le module de ta Form :
>>
>> Private Sub UserForm_Activate()
>> Dim I As Single
>> Dim J As Single
>> With ThisWorkbook
>> For I = 1 To .Names.Count
>> If InStr(.Names(I).Name, _
>> "Catégorie") <> 0 Then
>> For J = 1 To Range(.Names(I).Name).Count
>> FrmServices.Catégories.AddItem _
>> Range(.Names(I).Name)(J)
>> Next J
>> End If
>> Next I
>> End With
>> End Sub
>>
>> Hervé.
>>
>>
>> "Peponne31" a écrit dans le
>> message
>> de news:
>>> Bonsoir à toutes et à tous
>>>
>>> Je voudrai modifier cette formule
>>>
>>> Set Lisc = Sheets("services").Range("Catégories")
>>> NC = Lisc.Count
>>> Dim i As Single
>>> Dim myarrayc(4, 1)
>>> For i = 1 To NC '- 1
>>> myarrayc(i, 0) = Lisc(i)
>>> Next i
>>> FrmServices.Catégories.List() = myarrayc
>>>
>>> pour lui rajouter: Catégorie2, Catégorie3, Catégorie4 à la suite de
>>> .Range("Catégories")
>>> Merci pour votre aide
>>>
>>
>>
>
Bonsoir JPMonnier,
Je tiens à te remercier pour le temps que tu me consacre et pour ton
travail. Je ne pense pas y ètre arrivé sans ton aide. Peux tu me dire s'il
est possible de rajouter les zéros après la virgule ?. je souhaiterai
depuis
le formulaire ajouter dans la facture la désignation d'un produit et sa
valeur que se trouve dans la feuille Tarifs cela est-il réalisable?. Merci
pour tout et bonne soirée.
Peponne31
"JPMonnier" a écrit :
Salut Peponne31
J'ai continuer et je pense que tu tiens le bon bout
J'ai traité tous les cas de services
http://cjoint.com/?lrvASny3Hy
--
Cordialement
jpmonnier-nospam@neuf.fr
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de
news:e1ACgVJSJHA.4916@TK2MSFTNGP06.phx.gbl...
> Salut Peponne31
> j'ai regardé pour visage, je terminerai plus tard
> http://cjoint.com/?lrkn4TrTJl
> --
> Cordialement
> jpmonnier-nospam@neuf.fr
> "Hervé" <hmsilve-sanspub@wanadoo.fr> a écrit dans le message de
> news:%23qXm9DCSJHA.588@TK2MSFTNGP06.phx.gbl...
>> Bonsoir,
>>
>> A mettre dans le module de ta Form :
>>
>> Private Sub UserForm_Activate()
>> Dim I As Single
>> Dim J As Single
>> With ThisWorkbook
>> For I = 1 To .Names.Count
>> If InStr(.Names(I).Name, _
>> "Catégorie") <> 0 Then
>> For J = 1 To Range(.Names(I).Name).Count
>> FrmServices.Catégories.AddItem _
>> Range(.Names(I).Name)(J)
>> Next J
>> End If
>> Next I
>> End With
>> End Sub
>>
>> Hervé.
>>
>>
>> "Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le
>> message
>> de news: F5BD90ED-4555-45CC-95FE-8550B08D8ADE@microsoft.com...
>>> Bonsoir à toutes et à tous
>>>
>>> Je voudrai modifier cette formule
>>>
>>> Set Lisc = Sheets("services").Range("Catégories")
>>> NC = Lisc.Count
>>> Dim i As Single
>>> Dim myarrayc(4, 1)
>>> For i = 1 To NC '- 1
>>> myarrayc(i, 0) = Lisc(i)
>>> Next i
>>> FrmServices.Catégories.List() = myarrayc
>>>
>>> pour lui rajouter: Catégorie2, Catégorie3, Catégorie4 à la suite de
>>> .Range("Catégories")
>>> Merci pour votre aide
>>>
>>
>>
>
Bonsoir JPMonnier,
Je tiens à te remercier pour le temps que tu me consacre et pour ton
travail. Je ne pense pas y ètre arrivé sans ton aide. Peux tu me dire s'il
est possible de rajouter les zéros après la virgule ?. je souhaiterai
depuis
le formulaire ajouter dans la facture la désignation d'un produit et sa
valeur que se trouve dans la feuille Tarifs cela est-il réalisable?. Merci
pour tout et bonne soirée.
Peponne31
"JPMonnier" a écrit :Salut Peponne31
J'ai continuer et je pense que tu tiens le bon bout
J'ai traité tous les cas de services
http://cjoint.com/?lrvASny3Hy
--
Cordialement
"JPMonnier" a écrit dans le message de
news:
> Salut Peponne31
> j'ai regardé pour visage, je terminerai plus tard
> http://cjoint.com/?lrkn4TrTJl
> --
> Cordialement
>
> "Hervé" a écrit dans le message de
> news:%
>> Bonsoir,
>>
>> A mettre dans le module de ta Form :
>>
>> Private Sub UserForm_Activate()
>> Dim I As Single
>> Dim J As Single
>> With ThisWorkbook
>> For I = 1 To .Names.Count
>> If InStr(.Names(I).Name, _
>> "Catégorie") <> 0 Then
>> For J = 1 To Range(.Names(I).Name).Count
>> FrmServices.Catégories.AddItem _
>> Range(.Names(I).Name)(J)
>> Next J
>> End If
>> Next I
>> End With
>> End Sub
>>
>> Hervé.
>>
>>
>> "Peponne31" a écrit dans le
>> message
>> de news:
>>> Bonsoir à toutes et à tous
>>>
>>> Je voudrai modifier cette formule
>>>
>>> Set Lisc = Sheets("services").Range("Catégories")
>>> NC = Lisc.Count
>>> Dim i As Single
>>> Dim myarrayc(4, 1)
>>> For i = 1 To NC '- 1
>>> myarrayc(i, 0) = Lisc(i)
>>> Next i
>>> FrmServices.Catégories.List() = myarrayc
>>>
>>> pour lui rajouter: Catégorie2, Catégorie3, Catégorie4 à la suite de
>>> .Range("Catégories")
>>> Merci pour votre aide
>>>
>>
>>
>