remplir tableau: formule ou macro?

[JJ1]

Bonsoir Le Forum,
je ne sais pas comment faire pour remplir un tableau à partir d'une saisie (environ 500 saisies)
mon tableau fait 6 colonnes et 8 lignes, toutes les cellules sont à 0.
Quand je saisis une "case" (par ex 23, qui correspond à col2 lig 3, j'ai pas trouvé plus simple?)
alors cette case passe à 1 et ainsi de suite les 500 saisies vont incrémenter chaque case +1
si vous avez une idée?
merci et bonne soirée
JJ

 

[wilfried_42]

Re : remplir tableau: formule ou macro?

salut jj1

tu peux envoyer un ptit exemple de ton tableau merci

a te lire

 

[JJ1]

Re : remplir tableau: formule ou macro?

Bonsoir, tu sais mon tableau est fort simple:
48 cases (=cellules) de A1 à F8 ( à incrémenter selon saisie)
1 cellule (ou une colonne si formule et non macro?) en G1 pour la saisie :
ex: en G1: 34 donc la cellule col 3 lig 4 , donc C4 en Excel) passe à 1 et ainsi de suite...pour mes 500 saisies!!!
merci

 

[JJ1]

Re : remplir tableau: formule ou macro?

je précise que c'est moi qui ait choisi la forme 34 par ex pour dire col3 ligne 4 , donc C4 mais toute autre saisie est possible, j'ai choisi la plus courte à saisir.

 

[SergiO]

Re : remplir tableau: formule ou macro?

Bonsoir JJ1, Wilfried,

Peut-être une autre méhode par VBA mais je ne sais pas trop si ça conviendra.

Ci-joint le tableau de 8 lignes et 6 colonnes.

Si tu double-cliques sur une cellule à l'intérieur de ces 48 cellules, la valeur s'incrémente de 1.

@+

 

[wilfried_42]

Re : remplir tableau: formule ou macro?

bonjour sergiO

tres interressant ton ptit programme, j'ai pique pour un usage futur 😀 😀 😀

merci à toi

Bonne soirée et à plus

 

[JJ1]

Re : remplir tableau: formule ou macro?

Bonjour a tous,
SUPER idée !
Encore merci

 

[Pierrot93]

Re : remplir tableau: formule ou macro?

Bonjour JJ1, Wilfried, Sergio

J'ai un peu modifié ton code Sergio, j'ai enlevé la suppression du raffraichissement d'écran et déplacé le cancel, je trouve que ca réagit plus vite.

J'espère que tu ne m'en voudras pas...

Bon après midi à tous
@+

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1:F8")) _
Is Nothing Then
    Target = Target + 1
    Cancel = True
End If
End Sub

 

[SergiO]

Re : remplir tableau: formule ou macro?

Bonjour Pierrot,

Sans rancune ! 😀

En effet, c'est mieux comme cela.

Merci pour l'info

@ bientôt

 

[JJ1]

Re : remplir tableau: formule ou macro?

Bonsoir à vous tous et merci our ce tableau.
j'aurais un addendum....si possible, créer un historique de saisie en colonne G(jusqu'à 65000 lignes , c'est suffisant !)
si je double clic en A2, G1=A2
puis B3 donc G2=B3 etc....
merci encore
JJ

 

[SergiO]

Re : remplir tableau: formule ou macro?

Bonsoir JJ1,

Voici mon fichier modifié avec la prise en compte de l'historique en colonne G.

Bonne soirée.

 

[JJ1]

Re : remplir tableau: formule ou macro?

Bonsoir SergiO, le Forum
je viens de télécharger ton fichier modifié -merci beaucoup- mais il est exactement comme le précédent, je ne vois aucun historique s'afficher en G quand je saisis?
Pourrais-tu prévoir une modif sup, à savoir compter le nb de lignes d'écart entre 2 cellules identiques en col H pour suivre la tendance?
ex🙁en G)
A2 en H: 0 (car 1ère fois)
B3 0
A2 2(car 2 lignes au dessus)
C4 0
C5 0
B3 4
etc.. etc..

Encore merci et bonne soirée
JJ

 

[SergiO]

Re : remplir tableau: formule ou macro?

Bonsoir JJ1,

Le dernier fichier envoyé fonctionne chez moi : dès que je fais un double clic sur une case du tableau, sa référence s'affiche dans la colonne G.

Dans la version ci-jointe, j'ai tenu compte de ta dernière demande : l'écart entre 2 cases identiques s'affichera en colonne H.

En espérant que ça convienne...

@+

 

[JJ1]

Re : remplir tableau: formule ou macro?

Bonsoir à tous et Merci SergiO pour ton fichier
Bon WE