Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel suis-je sur la bonne colonne

suis-je sur la bonne colonne

5 réponses
Avatar
Bernard 360
Bonjour,
Mon problème j'ai une feuille excel avec un tableau où j'ai des boutons qui
actionnent diffèrentes macros et je voudrais qu'elles me s'effectuent pas si
je suis pas dans ou sur la bonne colonne.
D'avance merci.
Bernard 360
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
Bonsoir Bernard,

Pour connaître la colonne actuellement sélectionnée :

Sub quelcol()
MsgBox ActiveCell.Column
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Bernard 360" a écrit dans le message de news:
416961b4$0$8097$
Bonjour,
Mon problème j'ai une feuille excel avec un tableau où j'ai des boutons qui
actionnent diffèrentes macros et je voudrais qu'elles me s'effectuent pas si
je suis pas dans ou sur la bonne colonne.
D'avance merci.
Bernard 360




Avatar
Claude Trouet
Bonsoir,
Dans l'exemple ci-dessous, le bouton 1 exécute la macro ( ici message ) si
une cellule de la colonne 2 est sélectionnée
La macro du bouton 2 s'exécute si une cellule de la col 4 est sélectionnée.

Dans le module VB de la feuille où sont les boutons , recopier le code
suivant :
------------------------------------------------------------------------------
Dim col As Integer 'variable pour toutes les
procédures du module récupère le numéro de colonne

Private Sub CommandButton1_Click()
If col = 2 Then MsgBox "Bouton 1"
End Sub

Private Sub CommandButton2_Click()
If col = 4 Then MsgBox "Bouton 2"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
col = Target.Column
End Sub
---------------------------------------------------------------------------------

Est-ce bon ?
CT


"Bernard 360" a écrit dans le message de news:
416961b4$0$8097$
Bonjour,
Mon problème j'ai une feuille excel avec un tableau où j'ai des boutons
qui
actionnent diffèrentes macros et je voudrais qu'elles me s'effectuent pas
si
je suis pas dans ou sur la bonne colonne.
D'avance merci.
Bernard 360




Avatar
Bernard 360
Merci de m'avoir répondu ce n'est pas tout à fait ce que je cherchai mais
comme on m'a donné une autre méthode je l'ai fait la voici ci dessous mon
autre problème c'est que je voudrai faire la même chose que ci dessous( je
suis sur la 7èime ligne de mon tableau) mais que ce soit réalisable si je
suis m'inporte où dans la colonne 6 avec les celulles corespondandes de la
même ligne.
Si vous avez une idée
A+ et encore merci

Private Sub CommandButton2_Click()
If Selection.Column = 6 Then
ActiveWindow.SmallScroll ToRight:=-2
Range("J7:M7").Select
Selection.Copy
Range("N7").Select
ActiveSheet.Paste
Range("J7:M7").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.SmallScroll ToRight:=-5
Range("I7").Select
Selection.ClearContents
Range("F7").Select
Application.CommandBars("Stop Recording").Visible = False
Else
MsgBox "Vous n'êtes pas sur la bonne colonne 'Pour faire cette MACRO "
'Chr(10) Chr(13)
End If

End Sub

"Philippe.R" a écrit dans le message de news:

Bonsoir Bernard,

Pour connaître la colonne actuellement sélectionnée :

Sub quelcol()
MsgBox ActiveCell.Column
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Bernard 360" a écrit dans le message de news:
416961b4$0$8097$
Bonjour,
Mon problème j'ai une feuille excel avec un tableau où j'ai des boutons
qui


actionnent diffèrentes macros et je voudrais qu'elles me s'effectuent
pas si


je suis pas dans ou sur la bonne colonne.
D'avance merci.
Bernard 360








Avatar
Bernard 360
Bonsoir
idem
Merci de m'avoir répondu ce n'est pas tout à fait ce que je cherchai mais
comme on m'a donné une autre méthode je l'ai fait la voici ci dessous mon
autre problème c'est que je voudrai faire la même chose que ci dessous( je
suis sur la 7èime ligne de mon tableau) mais que ce soit réalisable si je
suis m'inporte où dans la colonne 6 avec les celulles corespondandes de la
même ligne.
Si vous avez une idée
A+ et encore merci

Private Sub CommandButton2_Click()
If Selection.Column = 6 Then
ActiveWindow.SmallScroll ToRight:=-2
Range("J7:M7").Select
Selection.Copy
Range("N7").Select
ActiveSheet.Paste
Range("J7:M7").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.SmallScroll ToRight:=-5
Range("I7").Select
Selection.ClearContents
Range("F7").Select
Application.CommandBars("Stop Recording").Visible = False
Else
MsgBox "Vous n'êtes pas sur la bonne colonne 'Pour faire cette MACRO "
'Chr(10) Chr(13)
End If

End Sub

Merci encore A+

"Claude Trouet" a écrit dans le message de
news: #
Bonsoir,
Dans l'exemple ci-dessous, le bouton 1 exécute la macro ( ici message ) si
une cellule de la colonne 2 est sélectionnée
La macro du bouton 2 s'exécute si une cellule de la col 4 est
sélectionnée.


Dans le module VB de la feuille où sont les boutons , recopier le code
suivant :
--------------------------------------------------------------------------
----

Dim col As Integer 'variable pour toutes les
procédures du module récupère le numéro de colonne

Private Sub CommandButton1_Click()
If col = 2 Then MsgBox "Bouton 1"
End Sub

Private Sub CommandButton2_Click()
If col = 4 Then MsgBox "Bouton 2"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
col = Target.Column
End Sub
--------------------------------------------------------------------------
-------


Est-ce bon ?
CT


"Bernard 360" a écrit dans le message de news:
416961b4$0$8097$
Bonjour,
Mon problème j'ai une feuille excel avec un tableau où j'ai des boutons
qui
actionnent diffèrentes macros et je voudrais qu'elles me s'effectuent
pas


si
je suis pas dans ou sur la bonne colonne.
D'avance merci.
Bernard 360








Avatar
Philippe.R
Bonsoir Bernard,
Ceci convient il ?

Private Sub CommandButton2_Click()
Dim laRow As Long, laCol As Integer
laRow = Selection.Row
If Selection.Column = 6 Then
For laCol = 10 To 13
Cells(laRow + 1, laCol + 4) = Cells(laRow + 1, laCol)
Next laCol
Cells(laRow + 1, 9).ClearContents
Else
MsgBox "Vous n'êtes pas sur la bonne colonne", , "ATTENTION !"
End If
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.

"Bernard 360" a écrit dans le message de news:
416a7244$0$24679$
Merci de m'avoir répondu ce n'est pas tout à fait ce que je cherchai mais
comme on m'a donné une autre méthode je l'ai fait la voici ci dessous mon
autre problème c'est que je voudrai faire la même chose que ci dessous( je
suis sur la 7èime ligne de mon tableau) mais que ce soit réalisable si je
suis m'inporte où dans la colonne 6 avec les celulles corespondandes de la
même ligne.
Si vous avez une idée
A+ et encore merci

Private Sub CommandButton2_Click()
If Selection.Column = 6 Then
ActiveWindow.SmallScroll ToRight:=-2
Range("J7:M7").Select
Selection.Copy
Range("N7").Select
ActiveSheet.Paste
Range("J7:M7").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.SmallScroll ToRight:=-5
Range("I7").Select
Selection.ClearContents
Range("F7").Select
Application.CommandBars("Stop Recording").Visible = False
Else
MsgBox "Vous n'êtes pas sur la bonne colonne 'Pour faire cette MACRO "
'Chr(10) Chr(13)
End If

End Sub

"Philippe.R" a écrit dans le message de news:

Bonsoir Bernard,

Pour connaître la colonne actuellement sélectionnée :

Sub quelcol()
MsgBox ActiveCell.Column
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Bernard 360" a écrit dans le message de news:
416961b4$0$8097$
Bonjour,
Mon problème j'ai une feuille excel avec un tableau où j'ai des boutons
qui


actionnent diffèrentes macros et je voudrais qu'elles me s'effectuent
pas si


je suis pas dans ou sur la bonne colonne.
D'avance merci.
Bernard 360