Conserver un mot venant de la même cellule

[guy72]

Bonjour,
Je souhaiterais conserver dans des cellules différentes, un mot différent venant de la même cellule à chaque impultion du bouton.
Explication dans le fichier joint.
Merci de votre aide.
Cordialement
Guy

 

[tbft]

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

Bonjour

Voici un petit essai

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!!

 

[guy72]

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.

 

[tbft]

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

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

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

par

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

 

[guy72]

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

 

[tbft]

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?

 

[guy72]

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

 

[tbft]

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

Bonjour

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

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

par

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

Essaye et tiens moi au courant

 

[guy72]

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

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

 

[tbft]

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

de rien...
c'est normal