Discussion :

[Kris41]

Bonjour à tous,

Je viens vers vous pour une petite question. J'ai créer un code d'insertion de ligne qui fonctionne bien sur le changement de valeur d'une cellule.
Si je fait "Tabulation" après le changement de valeur de la cellule tous ce passe bien. Par contre si je fais "entrée", le code fonctionne mais la ligne insérée n'est pas à la bonne place.

Je voudrais savoir s'il est possible d'exécuter le code sur la "tabulation", et d'exécuter le code corrigé sur "entrée" ?

Pourriez-vous me renseigner s'il vous plait ?

[Patrice740]

Bonjour,

Publies ton code qui fonctionne [presque] bien.

[Kris41]

Bonsoir,

Effectivement je n'ai pas mis le code car en fait, dans la feuille j'ai plusieurs tableaux de dimensions variables selon ce qui sera saisis. Ci-dessous le code. Je rajoute également le fichier en question.

TABLEAU DE SUIVI V7 CODER.xlsm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Sub INSERTIONLIGNERECAP()
 
Dim CELLULECIBLERECAP As Range
Dim CELLULECOPIERECAP As Range
Dim CELLULELIBELLERECAP As Range
 
    'DEFINITION DE LA VARIABLE "CELLULECIBLERECAP"
 
    Set CELLULECIBLERECAP = ActiveCell.Offset(1, -23)
 
    'INSERTION D'UNE LIGNE ENTIERE
 
    CELLULECIBLERECAP.EntireRow.Insert
 
    ' DEFINITION DE LA CELLULE DE COPIE DE LA LIGNE PRE-CONCUE
 
    Set CELLULECOPIERECAP = ActiveCell.Offset(1, -24)
 
    'AFFICHAGE DE LA LIGNE PRE-CONCUE "LIGNE_INVEST_MASQUEE"
 
    Range("LIGNE_INVEST_MASQUEE").EntireRow.Hidden = False
 
    'COPIE DE LA LIGNE PRE-CONCUE
 
    Range("LIGNE_INVEST_MASQUEE").EntireRow.Copy CELLULECOPIERECAP
 
    'MASQUE LA LIGNE PRE-CONCUE
 
    Range("LIGNE_INVEST_MASQUEE").EntireRow.Hidden = True
 
    'SELECTION DE LA CELLULE POUR UNE NOUVELLE SAISIE
 
    ActiveCell.Offset(1, -23).Select
 
End Sub

[Patrice740]

Re,

Au lieu d'utiliser Activecell, tu devrais transmettre Target à ta procédure INSERTIONLIGNERECAP

[patricktoulon]

re
bonsoir
et oui l'activecell c'est la cellule qui est atteinte pas celle qui a changé

[Kris41]

Bonsoir,

J'ai trouvé une option qui pourrais fonctionner, cela en désignant la touche de validation avec "application.onkey "{enter}", "procedure".

Je n'ai pas encore réussi à exécuter la procédure. C'est comme si il n'y avait pas de procédure.

Je continu de chercher sur cette voix.

Merci.

[Kris41]

Re,

Je dois être vraiment fatiguer ce soir.

Merci pour l'aide, il me fallait juste ajouter "Target.select" avant d'appeler la procédure.

Désolé pour le dérangement et encore merci.

[Patrice740]

Re,

Je dois être vraiment fatiguer ce soir.

Merci pour l'aide, il me fallait juste ajouter "Target.select" avant d'appeler la procédure.

Désolé pour le dérangement et encore merci.

Ça c'est la plus mauvaise des solutions !!!
En VBA il faut absolument éviter d'utiliser .Select !!!

[patricktoulon]

Bonsoir,

J'ai trouvé une option qui pourrais fonctionner, cela en désignant la touche de validation avec "application.onkey "{enter}", "procedure".

Je n'ai pas encore réussi à exécuter la procédure. C'est comme si il n'y avait pas de procédure.

Je continu de chercher sur cette voix.

Merci.

bonjour

j'ai vu ta discussion avant hier et c'est ce que j'ai pensé tout de suite mais apres test une redondence sans fin est opérée et impossible de la stopper
donc non application.onkey tu peux laisser tomber

sincerement tu trouve des claviers logitech avec touches programmables a moins de 40 € ne te casse pas la tete

[Transitoire]

Bonjour,

En VBA il faut absolument éviter d'utiliser .Select !!!

@Patrice740, si je souhaite atteindre la cellule H28 par VBA, ne suis-je pas obligé d'utiliser .Select ou .Activate? S'il existe une autre solution, je suis preneur, merci d'avance

En ce qui concerne les OnKeys, ainsi que le dit Patrick, il faut être prudent! A savoir qu'il vaut mieux le mettre en route automatiquement à l'activation de la feuille sur laquelle il doit être utilisé et le désactivater à la sortie de la feuille par le module de la feuille. Sinon, cela risque de s'appliquer sur toutes les feuilles du classeur.
Il convient aussi de le limiter aux cellules considérées.
Sinon, cela fonctionne très bien et permet des réponses différentes suivant des colonnes, lignes, plages, etc.
Enfin moi ce que j'en dit???
Cordialement

[Patrice740]

@Patrice740, si je souhaite atteindre la cellule H28 par VBA, ne suis-je pas obligé d'utiliser .Select ou .Activate? S'il existe une autre solution, je suis preneur, merci d'avance

Bonjour Transitoire,

Pour « atteindre » une cellule la commande VBA est Application.Goto.

Il est toujours possible de ne pas utiliser .Select, il vaut mieux utiliser .Activate,
ceci dit, « atteindre » n'est que très, très rarement le but recherché (cf. le code du fichier de Kris41).
Pour agir sur un objet, il est préférable de le définir plutôt que le sélectionner.

Je maintiens donc :

En VBA il faut absolument éviter d'utiliser .Select !!!

[Transitoire]

Bonsoir, merci @Patrice740. :
C'est en effet beaucoup plus efficace.
Ce qui m'avait un peu dérangé dans la phrase "En VBA il faut absolument éviter d'utiliser .Select !!!" C'est le coté absolu.
Pour ma part j'ai compris depuis longtemps que le select doit être éviter autant que faire se peut. mais....!
Cordialement