Microsoft 365 Formule Decaler

Phil69970

XLDnaute Barbatruc

• 16 Mars 2021

• #2

@jebibo, le forum

Je te propose ceci :

@Phil69970

 

Pièces jointes

• Colonne B V1.xlsm

  15.5 KB · Affichages: 9

Vote positif 0 Vote négatif

J

jebibo

XLDnaute Occasionnel

• 16 Mars 2021

• #3

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 16 Mars 2021

• #4

Le fil

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

jebibo à dit:

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

Cliquez pour agrandir...

@Phil69970

 

Vote positif 0 Vote négatif

J

jebibo

XLDnaute Occasionnel

• 16 Mars 2021

• #5

jebibo à dit:

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 16 Mars 2021

• #6

Re

As tu cliqué dans la colonne B ?


@Phil69970

 

Vote positif 0 Vote négatif

J

jebibo

XLDnaute Occasionnel

• 16 Mars 2021

• #7

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

 

Pièces jointes

• 1615855186376.png

  41.4 KB · Affichages: 12

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 16 Mars 2021

• #8

Re

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

@Phil69970

 

Pièces jointes

• Colonne B V2.xlsm

  15.9 KB · Affichages: 6

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 16 Mars 2021

• #9

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.

VB:

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

 

Pièces jointes

• 15032021_FORMULE_DECALER.xlsm

  16.6 KB · Affichages: 4

Vote positif 0 Vote négatif

J

jebibo

XLDnaute Occasionnel

• 16 Mars 2021

• #10

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

 

Vote positif 0 Vote négatif

J

jebibo

XLDnaute Occasionnel

• 16 Mars 2021

• #11

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 16 Mars 2021

• #12

@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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 16 Mars 2021

• #13

Le fil, Soan

Voici ma version

@Phil69970

 

Pièces jointes

• Colonne B V3.xlsm

  16 KB · Affichages: 3

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 16 Mars 2021

• #14

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

 

Dernière édition: 16 Mars 2021

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 16 Mars 2021

• #15

@Phil69970

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

tu verras, c'est sympa ! 😄

soan

 

Vote positif 0 Vote négatif