Aprovisionner les cellules via list box et text box

[MAN]

bonjour le forum
je voudrai construire un petit fichier dont l'ébauche est joint.
cet usf multiple a deux plages mais tous identiques. il s'agit de saisir une donnée dans la zone de texte et qu'elle apparaisse dans la ligne suivante libre de la colonne intitulée.
elle doit aussi apparaitre dans la list box et pouvoir y etre modifié.
je me débrouille simplement en VBA mais je peux comprendre.
merci d'avance

 

[CHALET53]

Re : Aprovisionner les cellules via list box et text box

bonjour,

J'ai commencé
Il reste l'ajout et le retrait pour la listview2
A toi de jouer

 

[MAN]

Re : Aprovisionner les cellules via list box et text box

Merci baucoup CHALET53 merci baucoup le forum
encore un soucis pourquoi l'usf est si instable. comment ferais je poir que les dimensions et les positions des list box soient absolues afin qu'ils ne se baladent pas n'importe comment dans l'usf au point de masquer meme certains parametres.
voici le fichier relooké.

 

[CHALET53]

Re : Aprovisionner les cellules via list box et text box

Bonjour,

Pour l'instant, je ne vois pas la cause de ce problème. J'ai pourtant des userforms multipage et je n'ai aucun problème.

Peut-être, soumets ce problème dans une nouvelle demande (s'agissant d'un autre problème)

a+

 

[MAN]

Re : Aprovisionner les cellules via list box et text box

BONSOIR LE FORUM BONSOIR A TOUS
J'AI RESOLU LE PROBLEME en divisant cet userform en 2
j'ai portant créé un autre la supression de l'intitulé supprime plutot la cellule innitiale. voici le bout de code que je n'ai pas pu convertir
Private Sub CommandButton2_Click()
a = Range("L" & 1 + Rng)
Range("L" & 1 + Rng).Delete
End Sub
Voici aussi le fichier avec un seul USF que je pourrai multiplier.

 

[CHALET53]

Re : Aprovisionner les cellules via list box et text box

Re,

rajoute devant la première procédure :
Dim rng as integer (la variable ainsi définie est reconnue par toutes les procédures parce que placée en tête)

Dans CommandButton2_Click
rajoute devant End Sub : userform_initialize (pour actualiser la listview)
a+

 

[MAN]

Re : Aprovisionner les cellules via list box et text box

tres grand merci ça marche a merveille ou lala
meeerciii

 

[MAN]

Re : Aprovisionner les cellules via list box et text box

encore un soucis. il ne faut mas les doublons

 

[CHALET53]

Re : Aprovisionner les cellules via list box et text box

Plus précisément :
Tu ne veux pas les doublons affichés dans la listview ?
Si oui : que fais-tu pour supprimer un enregistrement qui serait sur deux lignes (lequel prendre?)

tu veux aussi interdire l'enregistrement s'il existe déjà ?

 

[MAN]

Re : Aprovisionner les cellules via list box et text box

Bonjour le forum bonjour a tous.
je veux simplement interdire un nouvel enregistrement si celui ci existe dejà. si possible avec un msg box
remerci pour tout

 

[CHALET53]

Re : Aprovisionner les cellules via list box et text box

Bonjour,

Modifie comme suit Commandbutton1_Click

Private Sub CommandButton1_Click()
derligne = Sheets("Feuil1").Range("L65536").End(xlUp).Row
For i = 1 To derligne
If TextBox1 = Cells(i, 12) Then
MsgBox ("Personne déjà présente")
TextBox1 = ""
Exit Sub
End If
Next i
derligne = Sheets("Feuil1").Range("L65536").End(xlUp).Row + 1
Range("L" & derligne) = TextBox1
TextBox1 = ""
userform_initialize
End Sub

 

[MAN]

Re : Aprovisionner les cellules via list box et text box

Merci baucoup ça marche comme sur des roulettes
GRAND MERCI CHALET53

 

[MAN]

Re : Aprovisionner les cellules via list box et text box

BONSOIR LE FORUM
j'éprouve encore une difficulté suplémentaire dans mon usf
je l'ai intégré dans un Usf plus grand et plus complexe mais, seul la listview fonctionne les doutons sont inactifs. je vous propose un bout de fichier allégé.
VOIR FEUIL b DU FICHIER
contrairement a ce qui s'applique, je voudrai que quelque soit l'endroit ou se trouve l'usf 1, que l'usf 2 n'ait pour source que la feuil 1. tout ce qu'on peut faire sur cet usf n'est appliqué que sur la feuil1

 

[Si...]

Re : Aprovisionner les cellules via list box et text box

salut

Si... tu tiens au contrôle ListView, un exemple (après nettyoage)

 

[MAN]

Re : Aprovisionner les cellules via list box et text box

MERCI LE FORUM
MERCI CHALET53 MERCI SI...
au fait comment faire comprendre au forum que le probleme est résolu