utiliser contenu d'une cellule selon contenu d'une autre cellule

C

CPk

XLDnaute Impliqué

• 4 Mars 2016

• #2

Re : utiliser contenu d'une cellule selon contenu d'une autre cellule

Bonjour, je suis ok pour vous aider mais le fichier final aura t'il les mêmes emplacement de cellule que celui-ci ?

 

Vote positif 0 Vote négatif

M

MaTThi9u

XLDnaute Nouveau

• 4 Mars 2016

• #3

Re : utiliser contenu d'une cellule selon contenu d'une autre cellule

Oui les mêmes emplacements, mis à part en cas d'ajout ou suppression de feuilles ... la liste se verrait réduite ou augmenté ...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Mars 2016

• #4

Re : utiliser contenu d'une cellule selon contenu d'une autre cellule

Bonjour MaTThi9u, bienvenue sur XLD, hello CPk,

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ref As Range, tablo As Range, j As Variant, i&
Set ref = [B2] 'à adapter
If Intersect(Target, ref) Is Nothing Then Exit Sub
Set tablo = Feuil3.[M2:O5] 'CodeName+plage, à adapter
j = Application.Match(ref, tablo.Rows(1), 0)
On Error Resume Next 'si la feuille n'existe pas
For i = 2 To tablo.Rows.Count
  If IsError(j) Then
    Sheets(CStr(tablo(i, 1))).Visible = True
  Else
    Sheets(CStr(tablo(i, 1))).Visible = tablo(i, j) = ""
  End If
Next
End Sub

Si l'on efface B2 toutes les feuilles sont affichées.

A+

 

Vote positif 0 Vote négatif

M

MaTThi9u

XLDnaute Nouveau

• 4 Mars 2016

• #5

Re : utiliser contenu d'une cellule selon contenu d'une autre cellule

merci pour la réponse rapide mais serait-il possible de ne pas créer le tableau mais plutôt vérifier ligne par ligne afin de pallier a l'ajout de feuille qui nécessite du coup l’estimation éventuelle de la plage ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Mars 2016

• #6

Re : utiliser contenu d'une cellule selon contenu d'une autre cellule

Re,

Ma macro ne "crée" pas le tableau en Feuil3 et elle le vérifie ligne par ligne

Si vous ne voulez pas avoir à modifier la macro chaque fois que vous ajoutez des feuilles il suffit de prendre de la marge :

Code:

Set tablo = Feuil3.[M2:O100] 'CodeName+plage, à adapter

A+

 

Vote positif 0 Vote négatif

M

MaTThi9u

XLDnaute Nouveau

• 4 Mars 2016

• #7

Re : utiliser contenu d'une cellule selon contenu d'une autre cellule

merci, je vais faire ainsi.

 

Vote positif 0 Vote négatif