Activer une cellule.

B

britchouleloup

Guest

• 5 Juin 2007

• #2

Re : Activer une cellule.

Private sub OK_click()
range("adresse cellule")=textbox1.txt ou .value
range("adresse cellule")=textbox2.txt ou .value
End sub

 

Vote positif 0 Vote négatif

B

Bichon 94

Guest

• 5 Juin 2007

• #3

Re : Activer une cellule.

Merci Britchouleloup,

Mais cela ne rempli pas dans la colonne qui se trouve dans la cellule d'a coté.

Je joint un exemple.

Dans la feuille acceuil, j'utilise le bouton pour faire apparaitre le user form.

Dans la premiere case je saisi 3. dans la seconde 4.

Je voudrais après validation qu'il me renseigne dans la feuille support en D4 qu'il me renseigne la valeur 4.

 

Pièces jointes

• Gestion des emballages.zip

  13.2 KB · Affichages: 18

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Juin 2007

• #4

Re : Activer une cellule.

bonsoir

pas tout compris

mais vois si on approche de ce que tu souhaites

 

Pièces jointes

• Gestion des emballages.xls

  41 KB · Affichages: 61

Vote positif 0 Vote négatif

B

Bichon 94

Guest

• 6 Juin 2007

• #5

Re : Activer une cellule.

Bonjour PierreJean, le forum

La macro ne fonctionne pas car il me signal un bug dans la ligne suivante:

Range("A1:A10") = TextBox1

Pour info, l'idée de ce tableau correspond un peu à la géstion d'une bibliotheque, saisir un livre et le nom de la personne qui le prend et mettre a jour la base ou se trouve la liste de mes livres.

Moi meme en me relisant je ne trouve pas ça très clair.
Dites moi.

Merci

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 6 Juin 2007

• #6

Re : Activer une cellule.

re

je ne comprends pas !!
chez moi pas de probleme
ou veux-tu transmettre le contenu de Textbox1 ?

 

Vote positif 0 Vote négatif

B

Bichon 94

Guest

• 6 Juin 2007

• #7

Re : Activer une cellule.

Re,
Désolé de ne pas etre très explicite, alor je reformule:
Dans TextBox1 (qui se trouve dans feuille1), je saisie une valeur dans le Textbox2 je saisie une autra valeur.

Je voudrais rechercher dans feuille2 deux la cellule qui contient la valeur du TextBox1 et écrire dans la cellule qui se trouve dans la colonne suivante la valeur du TextBox2.

Cel

 

Vote positif 0 Vote négatif

B

Bichon 94

Guest

• 6 Juin 2007

• #8

Re : Activer une cellule.

Oups mes doigt ont ripés,

Donc je ne souhaite pas transmettre la valeur du TextBox1 mais l'utiliser pour une recherche.

Merci à toi PierreJean ainsi qu'au autres personnes qui porte un interet meme des moindre à ma problèmatique.

 

Vote positif 0 Vote négatif

B

Bichon 94

Guest

• 6 Juin 2007

• #9

Re : Activer une cellule.

Super, j'ai trouvé.
Alors si la solution interesse quelqu'un, la voici.


Private Sub CommandButton1_Click()
Sheets("Support").Select
Range("A1").Select
Cells.Find(what:=TextBox1.Value).Activate
ActiveCell.Offset(0, 2).Value = TextBox2.Value
End Sub

Merci quand meme à vous tous et à ce super forum.

 

Vote positif 0 Vote négatif