A voir également:
- Selectionner 2 cellules automatiquemen en VBA
- Supercopier 2 - Télécharger - Gestion de fichiers
- Fusionner 2 cellules excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Verrouiller cellules excel - Guide
- Excel compter cellule couleur sans vba - Guide
9 réponses
Salut,
A coller dans les propriétés de la feuille (clic droit sur l'onglet/Visualiser le code)
s'applique à la colonne B, mais peut se restreindre à une partie de la colonne
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([B:B], Target) Is Nothing Then
Target.Offset(0, 7).Select
End If
End Sub
A coller dans les propriétés de la feuille (clic droit sur l'onglet/Visualiser le code)
s'applique à la colonne B, mais peut se restreindre à une partie de la colonne
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([B:B], Target) Is Nothing Then
Target.Offset(0, 7).Select
End If
End Sub
Bonjour
Je pense que cela répond à ta demande, autrement apporte des précisions
Sur l'onget de la feuille d'excel click droit et "visualiser le code" pour coller le code suivant. (Il y a peut-être mieux)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lIg, cOl
lIg = Target.Row
cOl = Target.Column
Cells(lIg, cOl + 7).Select
End Sub
Iama
Je pense que cela répond à ta demande, autrement apporte des précisions
Sur l'onget de la feuille d'excel click droit et "visualiser le code" pour coller le code suivant. (Il y a peut-être mieux)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lIg, cOl
lIg = Target.Row
cOl = Target.Column
Cells(lIg, cOl + 7).Select
End Sub
Iama
Re,
Et on peut faire plus court
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([B:B], Target) Is Nothing Then Target.Offset(0, 7).Select
End Sub
Et on peut faire plus court
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([B:B], Target) Is Nothing Then Target.Offset(0, 7).Select
End Sub
Salut,
Merci deja, est ce que quelqu'un peut il m'expliquer en francais ce que ces codes disent. j4arrive pas a capter.
MERCI D'AVANCE
Merci deja, est ce que quelqu'un peut il m'expliquer en francais ce que ces codes disent. j4arrive pas a capter.
MERCI D'AVANCE
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Au fait voila mon souci en plus clair:
un exemple: si je selectionne ma cellule A1 ca doit me selectionner la colonne I1, si je selectionne A5 je ve que ca me slectionne automatiquement I5. Le but étant de copier directement les donnees de la colonnes I de la même ligne quand je selectionne une cellule de la colonne A.
J'espere avoir était clair cette fois.
je pensais a ecrire une ligne de code qui me memorise les numeros de lignes des cellules selectionnées. Mais j'y arrive pas.
Si qqun pe m'aider svp.
Merci encore une fois
un exemple: si je selectionne ma cellule A1 ca doit me selectionner la colonne I1, si je selectionne A5 je ve que ca me slectionne automatiquement I5. Le but étant de copier directement les donnees de la colonnes I de la même ligne quand je selectionne une cellule de la colonne A.
J'espere avoir était clair cette fois.
je pensais a ecrire une ligne de code qui me memorise les numeros de lignes des cellules selectionnées. Mais j'y arrive pas.
Si qqun pe m'aider svp.
Merci encore une fois
Re,
Grossièrement,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
code macro privé, s'applique à la feuille (Worksheet) si la sélection change
If Not Intersect([B:B], Target) Is Nothing Then Target.Offset(0, 7).Select
Si la cellule active (Target) n'est pas en colonne B ne rien faire (Is Nothing) sinon (Then) depuis la cellule active (Target) en B sélectionner la cellule 7 cases à droite (Offset(0,7)
Fin de procédure (End Sub)
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Grossièrement,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
code macro privé, s'applique à la feuille (Worksheet) si la sélection change
If Not Intersect([B:B], Target) Is Nothing Then Target.Offset(0, 7).Select
Si la cellule active (Target) n'est pas en colonne B ne rien faire (Is Nothing) sinon (Then) depuis la cellule active (Target) en B sélectionner la cellule 7 cases à droite (Offset(0,7)
Fin de procédure (End Sub)
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Bonjoour,
Bonjour Mike, comme d'hab... faut lire entre les lignes :-)
A+
Bonjour Mike, comme d'hab... faut lire entre les lignes :-)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A:A], Target) Is Nothing Then
Target = Target.Offset(0, 8)
End If
End Sub
A+
Bonjour lermite222,
Je crois que tu as oublié le phénomène de récursivité !
Est-ce que je me trompe ?
Info
Je crois que tu as oublié le phénomène de récursivité !
Est-ce que je me trompe ?
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect([A:A], Target) Is Nothing Then
' Écriture -> Engendre la récursivité d'évènements
Target = Target.Offset(0, 8)
End If
Application.EnableEvents = True
End Sub
Info
Salut Lermite,
Non mais je vais finir par acheter une boule de cristal, dans la demande initiale il était question je site " je selectionne par exemple la cellule B9 elle me selectionne I9 et ainsi de suite B7 me selectionne automatiquement I7"
Sur le dernier post du demandeur "si je selectionne ma cellule A1 ca doit me selectionner la colonne I1, si je selectionne A5 je ve que ca me slectionne automatiquement I5. Le but étant de copier directement les donnees de la colonnes I de la même ligne quand je selectionne une cellule de la colonne A"
on ne parle plus de colonne B mais de A, non plus de sélection mais de rapatriement de données
Non mais je vais finir par acheter une boule de cristal, dans la demande initiale il était question je site " je selectionne par exemple la cellule B9 elle me selectionne I9 et ainsi de suite B7 me selectionne automatiquement I7"
Sur le dernier post du demandeur "si je selectionne ma cellule A1 ca doit me selectionner la colonne I1, si je selectionne A5 je ve que ca me slectionne automatiquement I5. Le but étant de copier directement les donnees de la colonnes I de la même ligne quand je selectionne une cellule de la colonne A"
on ne parle plus de colonne B mais de A, non plus de sélection mais de rapatriement de données
cellule A OU B C PAREIL? MOI CE QUI M4IMPORTE C LE PRINCIPE QUON SELECTIONNANT PAR EXEMPLE B9 CA ME SELECTIONNE I9.
Par contre j'ai une question bete, mais vu que je suis encore debutant sur VBA, je vais quand meme vous poser la question.
comment faire pour executer le code que vous m'avez donné. il est privé , je sias pas comment faire?
Par contre j'ai une question bete, mais vu que je suis encore debutant sur VBA, je vais quand meme vous poser la question.
comment faire pour executer le code que vous m'avez donné. il est privé , je sias pas comment faire?