XL 2010 Champs à taille variable et cellules vide.

Nylream

XLDnaute Junior
Bonjour à tous,

Je cherche à rendre le fichier ci-joint plus intuitif et évolutif pour les autres utilisateurs de celui ci.
J'aimerais du coup, faire les modifications suivantes.

Fichier dans sa globalité :
Mon fichier ci joint comporte des champs définis dans plusieurs feuilles.
Serait il possible que la taille de ses champs soit variable en fonction du contenu des cellules ?

Feuille "Members" uniquement :
Sur chaque ligne, si A = "non vide", mettre "Unknow" dans les cellules vides à l’intérieur du tableau
Mettre "New member" dans la première (uniquement) cellule vide sur la colonne A.

Il commence a y avoir pas mal de macro sur ce fichier, et j'ai un peu peur des effet de bord dans un domaine que je ne maitrise absolument pas.

Merci d'avance pour votre aide,
 

Pièces jointes

  • Test_Tool - v3.1.xlsm
    117.1 KB · Affichages: 23

Nylream

XLDnaute Junior
Update:
Je viens de trouver pour les champs variable, j'ai remplacé
Code:
=Members!$A$2:$A$250
par
Code:
=DECALER(Members!$A$2;1;0;NBVAL(Members!$A:$A)-1;1)
pour CHAR dans mon gestionnaire de nom, je devrais pouvoir faire la même chose pour les autres champs.

Du coup, il ne me reste que mon problème de cellule vide sur la feuille "Members"

Merci d'avance pour votre aide,
 

Nylream

XLDnaute Junior
Bonjour Nacher,

Je viens de comprendre, et ce n'est pas applicable. Je ne peux pas garder 2 tableaux identique,, l'un à modifier et l'autre en a regarder.

Je me demande si un VBA ne serait pas plus adapté du coup

Si quelqu'un à une idée...

Merci d'avance,
 

Nylream

XLDnaute Junior
Bonsoir Nacher,

Ce n'est toujours pas ce que je recherche, mais je te remercie.

Le code suivant en VBA me permet presque de faire ce que je veux, mais je dois encore sélectionner la cellule vide pour que le "Unknow" apparaisse.
Idéalement, j'aimerais que cela apparaissent dès l'instant ou j'ajoute un nom dans la colonne A

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    DefinirListeNoms
    DefinirZoneUtile ActiveSheet

    If Not Intersect(ZoneUtile, Target) Is Nothing Then

    If Target.Text = "" Then Target.Offset(0, 0).Value = "Unknow"

    End If

End Sub
Je m'appuie sur le code situé en module 1 (merci Mapomme ) qui est à la base pour autre chose, mais me permet d'appliquer mon code sur la zone utilisé ce qui est extrêmement pratique.

Merci d'avance pour toute aide,
 

Pièces jointes

  • Test_Tool - v3.1.xlsm
    121.9 KB · Affichages: 17

Nylream

XLDnaute Junior
Bonjour,

En fait, j'aimerais affiner un peu ma demande
Il faudrait que:
Si A = non vide
alors
Dans les colonne B, C, F, I, J, K
Si vide = Unknow

Pour l'instant, ça fonctionne mais sur toute la ligne, j'aimerais exclure certaines colonnes, et aussi faire que ça apparaisse sans avoir besoin de sélectionner chaque cellule.

Merci d'avance pour votre aide,
 

Discussions similaires

Réponses
9
Affichages
393

Statistiques des forums

Discussions
312 176
Messages
2 085 961
Membres
103 066
dernier inscrit
bobfils