Conserver un mot venant de la même cellule

tbft

XLDnaute Accro

• 12 Novembre 2010

• #2

Re : Conserver un mot venant de la même cellule

Bonjour

Voici un petit essai

VB:

Private Sub Bouton_Passe_Click()
'====================================
n = Application.CountA([H15:H19])
Range("H15:H19")(n, 1).ClearContents

'Efface les points un à un
  n = Application.CountA([J26:J31])
  Cells(26 + n, 10).Value = [K1].Value
    Label5.Caption = [H10].Value
    Label6.Caption = [H11].Value
    Label7.Caption = [H12].Value
    Label8.Caption = [H13].Value
    Label9.Caption = [H14].Value
    Label10.Caption = [H15].Value
    Label11.Caption = [H16].Value
    Label12.Caption = [H17].Value
    Label13.Caption = [H18].Value
    Label14.Caption = [H19].Value

End Sub

Dis moi ce que tu en pense!!

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 12 Novembre 2010

• #3

Re : Conserver un mot venant de la même cellule

Bonjour,
Merci de ton aide.
Ça me convient bien à part 2 petites chose.
1) Le premier mot doit s'inscrire en J26 et après J27,J28 etc....
Ça fonctionne en changeant 26 en 31 et en mettant -n à la place de +.
Peut être que ce n'est pas le bonne solution ?
2) Quand j'arrive à la fin en J31 si j'appuie par erreur sur nouveau cela me change le dernier, si c'est possible avoir un bloquage.
Cordialement.

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 12 Novembre 2010

• #4

Re : Conserver un mot venant de la même cellule

bonsoir
1) je pense que c'est bon
2) modifier la ligne

VB:

Cells(26 + n, 10).Value = [K1].Value

par

VB:

if n<=6 thenCells(26 + n, 10).Value = [K1].Value

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 13 Novembre 2010

• #5

Re : Conserver un mot venant de la même cellule

Bonjour,
Non,ça change rien, quand j'appuie sur "Passe" cela change le mot dans J31.
Cordialement

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 13 Novembre 2010

• #6

Re : Conserver un mot venant de la même cellule

Bonjour

J'ai merdé : je ne pas conserver le fichier avec les modifications......
Pourrais tu mettre à disposition la dernière version, stp?

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 13 Novembre 2010

• #7

Re : Conserver un mot venant de la même cellule

Bonjour,
Voici le fichier dernière version.
Quand on continu à cliquer sur nouveau le dernier mot change toujours.
Cordialement

 

Pièces jointes

• Fichier Type.zip

  28.9 KB · Affichages: 19
• Fichier Type.zip

  28.9 KB · Affichages: 19
• Fichier Type.zip

  28.9 KB · Affichages: 18

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 13 Novembre 2010

• #8

Re : Conserver un mot venant de la même cellule

Bonjour

Je crois que j'ai trouvé la boulette.
Modifie la ligne

VB:

If n <= 6 Then Cells(26 + n, 10).Value = [K1].Value

par

VB:

If (n <= 6) And (Cells(26 + n, 10).Value = "") Then Cells(26 + n, 10).Value = [K1].Value

Essaye et tiens moi au courant

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 13 Novembre 2010

• #9

Re : Conserver un mot venant de la même cellule

Bonjour,
Impeccable, merci encore de ton aide.
Cordialement
Guy

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 13 Novembre 2010

• #10

Re : Conserver un mot venant de la même cellule

de rien...
c'est normal

 

Vote positif 0 Vote négatif