Discussion :

[skorpio]

Bonjour,
j'ai petit problème,
j'ai crée un UserForm dans le quel il y a un TexBox, et un CommandBotton,
et dans ma page excel, feuil1, j'ai créer un Liste (grâce à Données/Liste/Créer une liste). donc voila ou j'en suis,
j'aimerai lorsque j'introduit une donné X dans mon TexBox et que je valide grâce au CommandBotton, que celle-ci se mette dans ma liste (sachant que ma liste peut être situé n'importe où dans la Feuil1)

ça parait simple, mais je galère depuis un moment , car je ne connaît pas les propriétés de la liste pour y introduire X

Merci à celui ou celle, qui parviendra à résoudre se petit problème....

[Invité]

Bonsoir Skorpio,

C'est le n'importe où qui peut être gênant. Votre liste a la bougeotte ?
Je plaisante (à peine).
Si par exemple dans la cellule qui précède immédiatement la 1ère de votre liste il y a un titre bien précis, il y a sans doute une possibilité.

Amicalement.

[skorpio]

Merci Jacques Jean,

Mais comment se serait possible, même si ma liste n'aurait pas la bougeot
ce serait koi le code...

[Invité]

Bonsoir Skorpio,

J'ai testé une procédure qui fonctionne chez moi. Il me reste à trouver une solution pour initialiser une variable.

Pour cela une question :

votre liste fait référence à une plage de cellules sur une feuille ou vous avez entré les valeurs dans la fenêtre "Source".

Je suis obligé d'arrêter maintenant, mais en fonction de votre réponse et si vous n'avez pas reçu d'autres réponses, je vois ça demain matin.

Amicalement.

[Maxence HUBICHE]

Merci Jacques Jean,

Mais comment se serait possible, même si ma liste n'aurait pas la bougeot
ce serait koi le code...

Je n'ai plus 2003 sur mon poste.
Mais, sauf erreur de ma part, Donnée/Liste ... crée une plage Nommée.
Non ?
Cela signifie qu'il y a un nom quelque part dasn ta feuille.
Exact ?
Imaginons que ce nom soit... MaListe.

Tu pourrais avoir un code comme ceci :

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
17
 
Dim n1 as Long    '// N° de la première ligne de la plage
Dim n2 as Long    '// Nombre de lignes de la plage
Dim rng as Range '// définition de la plage de saisie
 
'// Se positionner sur la bonne feuille
LaFeuilleDeLaListe.select
'// récupérer le n° de la première cellule de la plage MaListe
n1 = Range("MaListe").range("A1").row
'// récupérer le nombre de lignes de la plage MaListe
n2 = Range("MaListe").Rows.count
'// définition de la plage de saisie
set rng= Cells(n2-n1+2,range("Maliste").range("A1").column)
'// inscrire le texte
rng.value=MaZoneDeText.Value
'// renommer la plage
thisworkbook.names.add "MaListe", "=" & Union(Range("MaListe"), rng).address (true, true, xlR1C1, true)

[skorpio]

oui jacques jean,
c'est une liste qui fait référence à une plage de cellules sur une feuille,
j'ai fais données/liste/créer une liste

[skorpio]

Merci Maxence,

j'ai essayé ce que tu m'a donnée, mais il y a un problème au niveau de:

n1 = Range("MaListe").Range("A1").Row

Moi ma liste, s'appel "Liste1", et j'ai quand essayé avec celle-ci mais ça ne marche pas non plus...

voici la macro qui ma permis de trouver la nom de ma liste peut-être que ça peut aider. En fait j'ai créer une liste mais ça ne me donné pas lé propriété de la liste, alors j'ai fais données/liste/redimensionner la liste et j'ai modifier ma liste et voila le code que ça me donne:

Code :

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

1
2
3
4
5
6
7
8
Sub Macro1()
 
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$E$1"), , xlNo).Name = _ "Liste1"
Range("A1:E2").Select
ActiveSheet.ListObjects("Liste1").Resize Range("$A$1:$D$2")
Range("A3").Select
 
End Sub

[skorpio]

encore un truc maxence, moi ma zonedetexte, s'apel TextBox1, g même fais gaffe à ça et sa marche pas