bouton aller vers cellule

[Ilino]

Bonsoir Forum
mon souci d'autre facon
voila j'ai un tableau de 16 colonnes et 2013 lignes je voudrais ou souhaitai créer un bouton pour chaque colonne on clique sur un bouton, une fenêtre s’affiche on indiquant le num de la ligne a modifier ou a suprimer;
merci et bonne nuit

 

[job75]

Re : bouton aller vers cellule

Bonsoir Ilino,

Pour atteindre une cellule la touche F5 est bien commode savez-vous ?

A+

 

[Ilino]

Re : bouton aller vers cellule

Re JOb
merci pour la reponse
peut etre j'ai pas bien exprimé mon soucis
l'enssemble de mes colonnes sont proteger par un code de cet façon :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A3:A2013")) Is Nothing Then Range("A2").Select
If Not Intersect(Target, Range("B3:B2013")) Is Nothing Then Range("B2").Select
If Not Intersect(Target, Range("C3:C2013")) Is Nothing Then Range("C2").Select
If Not Intersect(Target, Range("D3:D2013")) Is Nothing Then Range("D2").Select
If Not Intersect(Target, Range("E3:E2013")) Is Nothing Then Range("E2").Select
If Not Intersect(Target, Range("F3:F2013")) Is Nothing Then Range("F2").Select
If Not Intersect(Target, Range("G3:G2013")) Is Nothing Then Range("G2").Select
If Not Intersect(Target, Range("H3:H2013")) Is Nothing Then Range("H2").Select
If Not Intersect(Target, Range("I3:I2013")) Is Nothing Then Range("I2").Select
If Not Intersect(Target, Range("J3:J2013")) Is Nothing Then Range("J2").Select
If Not Intersect(Target, Range("K3:K2013")) Is Nothing Then Range("K2").Select
If Not Intersect(Target, Range("M3:M2013")) Is Nothing Then Range("M2").Select
If Not Intersect(Target, Range("N3:N2013")) Is Nothing Then Range("N2").Select
If Not Intersect(Target, Range("O3:O2013")) Is Nothing Then Range("O2").Select
If Not Intersect(Target, Range("P3:P2013")) Is Nothing Then Range("P2").Select
End Sub

 

[job75]

Re : bouton aller vers cellule

Re,

Votre code peut se simplifier :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, Range("A3:P2013"))
If Not r Is Nothing Then Intersect(r.EntireColumn, Rows(2)).Select
End Sub

Maintenant si vous voulez atteindre une cellule, il faut sans doute un mot de passe pour neutraliser cette macro.

A+

 

[job75]

Re : bouton aller vers cellule

Re,

La colonne L ne semble pas concernée donc :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, [A3:K2013,M3:P2013])
If Not r Is Nothing Then Intersect(r.EntireColumn, Rows(2)).Select
End Sub

A+

 

[Ilino]

Re : bouton aller vers cellule

Bonjour JOB
MERCI d'avoir simplifier mon code
mais si tu permet est ce que mon souci dans le post #1 est réalisble ?
GRACIE

 

[job75]

Re : bouton aller vers cellule

Bonjour Ilino, le forum,

Voyez le fichier joint.

Le mot de passe est TOTO.

La variable Public mdp est mémorisée dans Module1.

A+

 

[Ilino]

Re : bouton aller vers cellule

Bonjour JOB , Bonjour Forum
Encore une fois un big Merci
afin d'ameleorer mon code
j'ai deplacé cette instruction

  If Not mdp Then UserForm1.Show

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, [A3:K2013,M3:P2013])
   If Not r Is Nothing Then
   If Not mdp Then Intersect(r.EntireColumn, Rows(2)).Select: Exit Sub
   If Not mdp Then UserForm1.Show
  'suite éventuelle du code
End If
End Sub

et je souhaiterai modifier le code de cette maniere
si je clic deux fois sur la cellule
demande le mot de passe ?
si tu as remarqué que les cellules ne sont pas accessible avec ce code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, [A3:K2013,M3:P2013])
   If Not r Is Nothing Then
   If Not mdp Then Intersect(r.EntireColumn, Rows(2)).Select: Exit Sub
 ...
End If
End Sub

merci

 

[job75]

Re : bouton aller vers cellule

Re,

C'est bien de modifier les codes qu'on propose mais il faut d'abord les comprendre.

Moi je ne modifie pas le vôtre car pas compris.

A+

 

[Ilino]

Re : bouton aller vers cellule

Re Bonjour JOB
désolé Job peut etre j'ai mal placé le mot , je voudrai dire que je souhaiterai avoir la boite de dialoge ( de mot de passe) lors de clic deux fois sur la cellue , parceque le code initiale il ne me permettre pas de selectionne la cellule
merci

 

[job75]

Re : bouton aller vers cellule

Re,

Alors le double-clic sur une cellule de la ligne 2 permet d'ôter la protection :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 2 Then Cancel = True: UserForm1.Show
End Sub

Fichier (2).

A+

 

[Ilino]

Re : bouton aller vers cellule

Re
merci pour la réponse , je vias la testée sur mon programme .
Gracie JOB
@+

 

[Ilino]

Re : bouton aller vers cellule

Re ,
UN GRAND merci Job ça fonctionne tres bien sur mA 1erE Application
@+