Information textbox et afficher un message.

[Nagrom]

Bonjour tout le monde,

J'ai deux choses à demander:

- J'ai un formulaire fait par une userform et je souhaiterai que le Textbox1 affiche la dernière valeur de la colonne A et y rajout 1 à celle-ci.

- Je voudrai réalisé un message (comme les erreur windows) qui appraît lorsque la colonne A présente deux mot identiques. On pourra quitter cette fenêtre en cliquant sur OK.
Le problème c'est que je ne sais pas faire ça.

Merci de votre précieuse aide.
Nagrom.

 

[deudecos]

Bonsoir Nagrom, le forum,

Donc pour la premiere question, le code suivant devrais faire l'affaire.

private sub commandbutton1_click()

Dim L As Integer
L = Sheets('Feuil1').Range('a65536')End(XlUp).Row ' Trouve automatiquement la derniere cellule renseignee en imaginant bien entendu que ta colonne A soit en Feuil1
Userform1.TextBox1.value = Sheets('feuil1').range('A' & L) + 1
End sub


Par contre pour ta deuxieme question, je planche encore dessus parce que j'ai un peu oublie comment faire...

Mais en gros

Private Sub CommandButton1_click()
If Sheets('feuil1').Range('A1') = UserForm1.TextBox1.value then
MsgBox 'Saisie deja effectuee, veuillez verifier'
Exit Sub
end If
End Sub

Mais ca, ca ne fait la verif que pour la cellule A1, pas les autres.

J'espere que ca va commencer a t'aider

Bonne soiree

Olivier

Message édité par: Deudecos, à: 11/09/2005 21:12

 

[Nagrom]

Bonjour deudecos,

Merci beaucoup.
Je vais regarder pour voir si je peux étendre à la colonne entière pour la réponse de la deuxième question.

Nagrom

 

[deudecos]

Re Nagrom,

J'ai fais une petite erreur dans le code de la seconde question
Tu peux enlever le mot .Value puisqu'il s'agit de mot et nom d'une valeur...

Bonne soiree

Olivier

 

[myDearFriend!]

Bonsoir Nagrom, deudecos, le Forum.

En complément de la réponse de deudecos, ci-joint un exemple qui pourrait peut-être répondre à tes demandes...

Cordialement, [file name=mDF_PourNagrom.zip size=17093]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mDF_PourNagrom.zip[/file]

 

[Nagrom]

Bonjour,

Merci pour le fichier, c'est exactement ce que je voulais.

Par contre, je me suis mal exprimé concernant la question 2:

En faite ce que j'aimerai c'est:
Quand je clisque sur le bouton GESTION qui est sur la feuille, l'userfom s'ouvre. J'obtiens ceci:

http://img336.imageshack.us/my.php?image=14pm1.jpg


J'aimerai que la textbox affiche directement la dernière valeur de la colonne A (ici 4) et y rajoute +1.

Donc en faite quand j'ouvre l'userform, La case N° devrait déjà être rempli par la valeur 5.
C'est une sorte d'incrémentation.

Merci.
Nagrom

Message édité par: Nagrom, à: 12/09/2005 17:51

 

[myDearFriend!]

Bonjour nagrom, deudecos,

Heu... sauf erreur, il s'agit de ta question 1 là (et pas 2).

Par ailleurs, je ne comprends pas, dans mon exemple, à l'ouverture du USF (quand tu cliques sur le bouton 'mDF'), tu as bien automatiquement la denière valeur de la colonne A incrémenté de 1 dans le TextBox... ce n'est pas ce que tu veux ?

Pour info, à l'Initialize() du USF, le code est :

Private Sub UserForm_Initialize()
Dim L As Long
      With Sheets('Base')
            L = .Range('A65536').End(xlUp).Row
            TextBox1.Text = .Cells(L, 1).Value + 1
      End With
End Sub

Cordialement,

 

[Nagrom]

Bonsoir,

Merci bien, je suis désolé, mais je n'avais pas vu de suite la macro USF.

Merci.
Nagrom