[RESOLU] Incrémenter cellule cible d'une textbox

phlaurent55

Nous a quittés en 2020

Repose en paix

• 13 Novembre 2014

• #2

Re : Incrémenter cellule cible d'une textbox

Bonjour Babytroll,

Avez-vous une idée, ou est-ce que je dois revoir la conception de ma feuille ?

Cliquez pour agrandir...

Bien sur qu'on a des idées, il suffit de déterminer la position de la dernière cellule

comme ceci, .......... sans garantie vu l'absence de fichier

Code:

Private Sub TextBox1_Change()
Sheets("19recto (2)").Cells(Range("B65535").End(xlUp).Row + 1, 2) = UserForm4.TextBox1
End Sub


Private Sub TextBox10_Change()
Sheets("19recto (2)").Cells(Range("N65535").End(xlUp).Row + 1, 14) = UserForm4.TextBox10
End Sub

Private Sub TextBox11_Change()
Sheets("19recto (2)").Cells(Range("O65535").End(xlUp).Row + 1, 15) = UserForm4.TextBox11
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 13 Novembre 2014

• #3

Re : Incrémenter cellule cible d'une textbox

Bjr Babytroll

la cellule B12 devient B13 ou elle prend la valeur du TextBox1 ?

Cordialement, Gérard

 

Vote positif 0 Vote négatif

B

Babytroll

Guest

• 13 Novembre 2014

• #4

Re : Incrémenter cellule cible d'une textbox

Merci à vous 2.
phlaurent55 - je n'ai pas l'impression que cela fonctionne.

natorp - B12 prend la valeur saisie dans TextBox1, on valide et la saisie suivante dans Textbox1 va dans B13, etc...

Désolé pour l'absence de fichier, j'ai dû effacer la plupart des infos, c'est pour le boulot...

Le voici.
Ordre : Bouton - faire les choix - saisie autocontrole - renseigner les txtbox (les fameuses) valider pour sortir (qui deviendrai donc le bouton pour valider et passer à la ligne suivante) - terminer les saisies.

Merci.

 

Pièces jointes

• Test autocontrole - Copie - Copie.xls

  225 KB · Affichages: 26

Vote positif 0 Vote négatif

B

Babytroll

Guest

• 17 Novembre 2014

• #5

Re : Incrémenter cellule cible d'une textbox

Hello !

Je suis toujours coincé malgré différentes tentatives, quelqu'un pour m'aider ?

Merci.

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 17 Novembre 2014

• #6

Re : Incrémenter cellule cible d'une textbox

Re,

et comme ça en validant par le bouton "Validé"

Cordialement, Gérard

 

Pièces jointes

• Test autocontrole Copie.xls

  288 KB · Affichages: 26
• Test autocontrole Copie.xls

  288 KB · Affichages: 30
• Test autocontrole Copie.xls

  288 KB · Affichages: 24

Vote positif 0 Vote négatif

B

Babytroll

Guest

• 17 Novembre 2014

• #7

Re : Incrémenter cellule cible d'une textbox

Re,

Merci, mais cela ne fonctionne pas ??!!

Aucune valeur n’apparaît dans les cellules...

 

Vote positif 0 Vote négatif

B

Babytroll

Guest

• 17 Novembre 2014

• #8

Re : Incrémenter cellule cible d'une textbox

Autant pour moi, il y a bien quelques données en colonne B2 et à partir de B36. Mais les autres colonnes non et il y a donc un décalage certain.

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 17 Novembre 2014

• #9

Re : Incrémenter cellule cible d'une textbox

Re

Cette fois cela écrit bien sur la feuille "19recto (2)" dans les cellules concernées, mais je ne comprends pas la création des différentes feuilles....

1) j'ai mis en commentaire le remplissage de la cellule B34 (à quoi ça sert ?)
2) il faut éviter à tout prix les cellules fusionnées

Cordialement, Gérard

 

Pièces jointes

• Test autocontrole Copie.xls

  493.5 KB · Affichages: 26
• Test autocontrole Copie.xls

  493.5 KB · Affichages: 31
• Test autocontrole Copie.xls

  493.5 KB · Affichages: 33

Vote positif 0 Vote négatif

B

Babytroll

Guest

• 17 Novembre 2014

• #10

Re : Incrémenter cellule cible d'une textbox

Merci, mais j'ai encore un décalage, ça commence en ligne 2, après c'est OK à partir de la ligne 11.

La création des différentes feuilles est utilisée plus tard pour les renommer et en recréer par la suite (le fichier a bien évolué depuis).

La B34 me sert de référence pour l'utilisation d'une recherchev, j'imagine qu'il y a plus simple, mais je commence juste à entre- apercevoir les possibilités de VB...

Ok pour les cellules fusionnées, le soucis vient du fait que je bosse à partir de fichiers existants créés par d'autres...

Merci encore Gérard !

 

Vote positif 0 Vote négatif

B

Babytroll

Guest

• 19 Novembre 2014

• #11

Re : Incrémenter cellule cible d'une textbox

J'ai à partir de l'aide de natorp, réussi à me dépatouiller, j'ai défusionné les cellules qui l'étaient.

En gros ça donne ça :

Désignation de la cellule cible initiale :

Private Sub CommandButton2_Click()
Sheets("19recto (2)").Activate
Range("B12").Select
End Sub

Assignation de chaque textbox à la cellule suivante :

Private Sub TextBox1_Change()
ActiveCell = UserForm4.TextBox1.Value
End Sub

Private Sub TextBox10_Change()
ActiveCell.Offset(0, 9) = UserForm4.TextBox10
End Sub

Private Sub TextBox11_Change()
ActiveCell.Offset(0, 10) = UserForm4.TextBox11
End Sub[/B]

....

Passage à la ligne suivante sur click bouton :

'passer à la ligne suivante
ActiveCell.Offset(1, 0).Select




Merci à natorp pour son aide.

 

Vote positif 0 Vote négatif