Selectionner 2 cellules automatiquemen en VBA

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

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

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

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

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

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.

Bonjoour,
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+

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

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?