Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1740 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Déplacement de plusieurs cellules avec Private sub Worksheets_Change

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Déplacement de plusieurs cellules avec Private sub Worksheets_Change

n°2164711
hiena86
Posté le 20-11-2012 à 11:29:27  profilanswer
 

Bonjour à tous .
J'ai l'habitude de faire des macro mais uniquement avec le développeur.
Donc je n'arrive pas en faire une avec PRIVATE SUB Worksheets_Change)
Je souhaite que dans une colonne, lorsque j'arrive en bas du tableau , après avoir validé, je remonte dans la case située à droite et en haut du tableau et non de la colonne entière.
J'ai mis ceci que l'on m'a prescrit, mais ça ne fonctionne pas
Private Sub Worksheets_Change(ByVal sel As Range)
If sel.Count=1 And sel Row45 Then
Cell(3,sel Colum+2) Select
End If
End Sub
 
Je peux vous fournir un tableau mais comment?
 
Merci à vous et bonne journée
 
 

mood
Publicité
Posté le 20-11-2012 à 11:29:27  profilanswer
 

n°2164723
Takama13
Posté le 20-11-2012 à 12:19:03  profilanswer
 

Bonjour Hiena,
 
Essaie plutôt :
 
Private Sub Worksheet_Change(ByVal sel As Range)
 If sel.Count = 1 And sel.Row = 45 Then
  Cells(3, sel.Column + 1).Select
 End If
End Sub

n°2164794
hiena86
Posté le 20-11-2012 à 20:44:19  profilanswer
 

Merci takama13
 
J'ai bien essayé mais rien ne se produit.  
Mon tableau va de la cellule A3 à A32 et comporte 50 colonnes.
Ce tableau est à recopier sur 3 autres ordi portables, pour pouvoir travailler en même temps, et surtout gagner du temps.  
 
J'ai mis la première ligne, mais avec un MsgBox et cela fonctionne très bien.
Merci encore et bonne soirée.

n°2164837
pvclunacy
Posté le 21-11-2012 à 11:02:37  profilanswer
 

Salut, pour un tableau qui va de A3 à A32 sur 50 colonnes :
 
Dans le code de la feuille concernée :
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 32 And Target.Column < 51 Then
Cells(3, Target.Column + 1).Select
End If
End Sub
 
 
 

n°2164893
hiena86
Posté le 21-11-2012 à 14:40:21  profilanswer
 

Merci pvclunacy
 
Je dois avoir un problème avec mon ordi car votre suggestion me parait pourtant la plus logique, car lorsque je serai dans une case "c32", par exemple, après validation, je devrai remonter dans la case "d33". C'est ce que je voudrai, mais RIEN ne se produit.
Je crois que je vais malheureusement abandonner mon projet.
 
Merci Beaucoup à vous tous

n°2164927
pvclunacy
Posté le 21-11-2012 à 16:23:41  profilanswer
 

Je viens de tester encore une fois, ca fonctionne bien, si je valide une saisie en C32, ça sélectionne automatiquement la cellule D3.
 
Attention, il faut que le code soit dans la feuille concerné et pas dans un module, dans l'explorateur de projet, double clique sur la feuille sur laquelle cette macro doit fonctionner et colle le code du Sub.

n°2164954
Takama13
Posté le 21-11-2012 à 17:31:34  profilanswer
 

et je rajoute qu'il faut entrer une valeur dans cette cellule, pas seulement valider par "entrée"

n°2165154
Marc L
Posté le 22-11-2012 à 15:27:23  profilanswer
 

 
 Dans ce cas, vaudrait mieux utiliser alors l'évènement  Private Sub Worksheet_SelectionChange  …


Message édité par Marc L le 22-11-2012 à 15:29:41

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Déplacement de plusieurs cellules avec Private sub Worksheets_Change

 

Sujets relatifs
Problème formule à plusieurs conditions[VBA] Fonction find avec plusieurs criteres
[Powershell] Déplacement de groupe entre une OU et une OUpage HTML pour centrer verticalemetn plusieurs objets
Son mp3 qui change à chaque actualisation de la page.[RESOLU] ma variable qui change de type comme par magie
Attribution droits NTFS sur plusieurs dossiersrécupérer la valeur d'une cellule dans plusieurs classeurs
Rendu de plusieurs "plans d'eau" non aligné en OpenGLPlusieurs TCD sur une même feuille
Plus de sujets relatifs à : Déplacement de plusieurs cellules avec Private sub Worksheets_Change


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR