Microsoft 365 Formule Decaler

[jebibo]

Bonsoir

j'ai un petit problème avec un tableau qui à plus de 40000 lignes, je vous explique je voudrais que le code dans la colonne B se retrouve dans la cellule B6 peux importe ou je me trouve dans la ligne de mon tableau je n'ai pas trouver la formule après quelques recherches. merci à l'avance pour votre support Au Plaisir

 

[Phil69970]

@jebibo, le forum

Je te propose ceci :

@Phil69970

 

[jebibo]

Bonsoir Phil69970
Je ne vois pas ta proposition dans le fichier joint

 

[Phil69970]

Le fil

Si tu cliques dans la colonne B la valeur apparait bien en B6 comme tu as demandé

la colonne B se retrouve dans la cellule B6 peux importe ou je me trouve dans la ligne de mon tableau

@Phil69970

 

[jebibo]

Bonsoir Phil69970
Je ne vois pas ta proposition dans le fichier joint

 

[Phil69970]

Re

As tu cliqué dans la colonne B ?

@Phil69970

 

[jebibo]

Oups désolé
Je voudrais avoir le code en jaune peut importe la cellule de la ligne complet présentement je suis en E13
Est-ce possible?
Merci pour ton aide bien apprécier

 

[Phil69970]

Re

De ce que j'ai compris je te propose ceci.

@Phil69970

 

[soan]

Bonjour jebibo, Phil,

je propose le fichier joint ci-dessous.

sélectionne n'importe quelle cellule de la plage B9:F20 ;
ça marchera pareil quand ton tableau aura plus de lignes.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim dlg&, col%, lig&
  With Target
    If .CountLarge > 1 Then Exit Sub
    col = .Column: If col = 1 Or col > 6 Then [B6] = Empty: Exit Sub
    dlg = Cells(Rows.Count, 2).End(3).Row
    lig = .Row: If lig < 9 Or lig > dlg Then [B6] = Empty: Exit Sub
  End With
  With Cells(lig, 2)
    If IsEmpty(.Value) Then [B6] = Empty Else [B6] = .Value
  End With
End Sub

@Phil69970

voici un petit jeu, avec le fichier initial de jebibo ou avec ton fichier :
sélectionne un des codes de la colonne B, et fais F2 puis Entrée.

soan

 

[jebibo]

Je me suis mal Expliquer désolé, je recommence.
Je vais avoir à me déplacer sur la ligne complet donc si je suis sur la ligne 13 dans la colonne E donc cellule E13 je voudrais avoir le résultat de la colonne B13 et si je me déplace a F13 j'ai le résultat de la cellule B13
Donc peux importe ma position dans la ligne je veux toujours avoir le résultat de la colonne B
Désolé encore pour la confusion....
Merci encore

 

[jebibo]

Bonsoir Soan
Exactement le code qu'il me fallais....si j'ai plus de colonne quel ou est-ce que je dois modifié le code?
Merci à toi Phil69970 pour votre patience
Bonne soirée

 

[soan]

@jebibo

si tu as plus de colonnes, tu n'as qu'un seul changement à faire.

dans cette ligne de code VBA :

col = .Column: If col = 1 Or col > 6 Then [B6] = Empty: Exit Sub

remplace le 6 de col > 6 par le n° de la dernière colonne.

exemple : si tu ajoutes 4 colonnes, la dernière colonne sera la colonne J,
dont le n° est 10 ; donc :

col = .Column: If col = 1 Or col > 10 Then [B6] = Empty: Exit Sub

attention : ne change pas le 6 de [B6] !

soan

 

[Phil69970]

Le fil, Soan

Voici ma version

@Phil69970

 

[Phil69970]

Re
Et si tu rajoutes des colonnes tu modifies ceci, F étant à remplacer par la lettre de ta nouvelle colonne.

If Not Application.Intersect(Target, Range("B9:F" & Derlig)) Is Nothing Then
Range("B9:F" & Derlig).Interior.Color = vbWhite

@Phil69970

 

[soan]

@Phil69970

j'ai vu ton nouveau fichier, mais t'as zappé le petit jeu de mon post #9 !

tu verras, c'est sympa !

soan