Liaison d'une cellule avec le curseur

bonjour,

j'aurai souhaité faire une modification de ce vba

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Range("E:G")) Is Nothing Then

Range("A1") = Target

End If

End Sub

il faudrai que lorsque le curseur est placé sur A35 la cellule H1 affiche la cellule se trouvant à 5 cellule plus loin que le curseur c 'est a dire F35

puis dans la meme logique (curseur toujours placé sur A35) il faudrait que I1 affiche G35 ; J1 affiche K35 ; K1 affiche M35 ; L1 affiche N35 ; M1 affiche Q35 ; N1 affiche R35 ; O1 affiche S35 ; P1 affiche AB35 ; Q1 affiche AC35 ; R1 affiche AD35 ; S1 affiche AG35 ; T1 affiche AH35 ; U1 affiche AI35 ; V1 affiche AR35 ; W1 affiche AS35 ; X1 affiche AT35 ; Y1 affiche AW35 ; Z1 affiche AX35 ; AA1 affiche AY35

voila ..en esperant avoir été assez claire sur ma demande

d'avance merci .

Cordialement

Ship.

Bonjour

Je ne sais pas si c'est ce que tu cherches

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Colonnes
Dim I As Integer

  If Not Intersect(Target, Columns("A")) Is Nothing Then
    Colonnes = Split("F,G,K,M,N,Q,R,S,AB,AC,AD,AG,AH,AI,AR,AS,AT,AW,AX,AY", ",")
    For I = 0 To UBound(Colonnes)
      Cells(1, 8 + I) = Range(Colonnes(I) & Target.Row)
    Next I
  End If
End Sub

Si pas ça, un fichier en expliquant ce que tu veux sera utile

bonjour Banzai64,

Tout d'abord merci d'avoir repondu present a ma requette , de plus c'est exactement ce que je demandai je viens de l'essayer sur un fichier vierge et ca fonctionne bien , parcontre j'aimerai le compiler avec un autre vba qui est ,:

Private Sub Worksheet_Change(ByVal Target As Range)

'declaratiin

Dim myRow As Long

'init

myRow = Target.Row - 1

Me.Range(Me.Cells(myRow, 1), Me.Cells(myRow, 1)).Activate

End Sub

et quand je l'ajoute a celui-ci et que je l'active ca me met un message d'erreur , donc a mon avis je n'ai certainement pas su le coller au bon endroit...

pourrais tu eclaircir l'obscurité de ma faible connaissance en la matiere ...(un peu de poesie le samedi ) bref j'suis ds la m..lol

d'avance merci ..

ship

Bonjour

Banzai64 a écrit :

Si pas ça, un fichier en expliquant ce que tu veux sera utile

A te lire

RE

ton vba fonctionne parfaitement et c'est bien ce que je voulais , mais je voulais juste connaitre la manip a faire pour compiler les 2 vba en meme temps.

cordialement.

ship

bonjour ,

j'aurai souhaité faire fonctionner ces 2 vba sur la meme feuille

1er

Private Sub Worksheet_Change(ByVal Target As Range)

'declaratiin

Dim myRow As Long

'init

myRow = Target.Row - 1

Me.Range(Me.Cells(myRow, 1), Me.Cells(myRow, 1)).Activate

End Sub

2eme

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Colonnes

Dim I As Integer

If Not Intersect(Target, Columns("A")) Is Nothing Then

Colonnes = Split("F,G,K,M,N,Q,R,S,AB,AC,AD,AG,AH,AI,AR,AS,AT,AW,AX,AY", ",")

For I = 0 To UBound(Colonnes)

Cells(1, 8 + I) = Range(Colonnes(I) & Target.Row)

Next I

End If

End Sub

d'avance merci

ship.