Bonjour Bassigny, bienvenue sur XLpages.com

C'est normal que tu ne puisses pas voir ta plage nommée dans la liste en zones de nom, ni dans la fenêtre "Atteindre", c'est le cas pour les plages faisant appel à des formules ou fonctions de calcul (DECALER ou NBVAL dans ton cas).

Ta référence de plage, même si elle n'est pas listée, reste toutefois utilisable dans n'importe quelle formule de calcul dans tes feuilles.

Tu peux également y faire référence dans ton code VBA. Sauf erreur, dans ton exemple, tu devrais pouvoir y accéder via l'instruction suivante notamment :

Sheets("RéunionsEnCours").Range("LeNomDeTaPlage")

Bien cordialement,

Bonjour nicos974, bienvenue sur XLpages.com

Puisque tu utililses une version Mac XL2011, j'imagine que tu dois pouvoir forcément aussi suivre la façon de faire suivante (réalisée depuis XL2010 PC) :

• Tu supprimes d'abord tes formats conditionnels (pour faire place nette !).
• Tu sélectionnes la plage B2:E2 (pour la 1ere ligne de ton tableau)
• Puis, depuis le Ruban, onglet Accueil / groupe Style / Mise en forme conditionnelle / Nouvelle règle...
• Dans la liste "Type de règle", tu choisis "Appliquer une mise en forme uniquement aux valeurs rangées parmi les premières ou dernières valeurs"
• En dessous, dans la liste déroulante, tu sélectionnes "derniers"
• Dans la zone de valeur tu saisies 1 (au lieu de 10 par défaut)
• Tu définis ensuite le format souhaité (fond couleur vert par exemple)
• Et tu valides le tout !

Ca devrait fonctionner pour ce que tu veux faire, qu'il y ait - ou non - des cellules vides dans la plage.

C'est beaucoup plus long à écrire qu'à faire !

Ces nouvelles MFC t'évitent de te creuser la tête pour trouver la bonne formule à appliquer, c'est toujours intéressant de les expérimenter et exploiter je pense...

Bien cordialement,

Bonsoir odilolo, bienvenue sur XLpages.com

Voici une façon de faire je pense...

Préparatifs obligatoires avant de faire fonctionner le code ci-dessous :

• J'ai nommé ta 2ème listBox : "ListBoxMOUV"
• J'ai défini sa propriété ColumnCount à : 5
• Ta 1ére listbox est nommée "ListBox1" (j'ai laissé tel quel)

CODE VBA A AJOUTER AU MODULE DE CODE DE TON USERFORM1 :

Private Sub ListBox1_Change()
'myDearFriend! - www.mdf-xlpages.com 10/2017
Dim vTab As Variant
Dim CodeArticle As String
Dim Lmax As Long, L As Long
Dim C As Byte
    'Code article sélectionné ?
    With ListBox1
        If .ListIndex < 0 Then Exit Sub
        CodeArticle = .List(.ListIndex, 1)
    End With
    'Mettre à jour la liste des MOUVements
    With ListeBoxMOUV
        'RAZ du contenu
        .Clear
        'On stocke toutes les données "MOUV" dans une variable Tableau
        vTab = Sheets("MOUV").UsedRange.Value
        Lmax = UBound(vTab, 1)
        'Pour chaque ligne du Tableau
        For L = 2 To Lmax
            If vTab(L, 1) = CodeArticle Then     'Si le CodeArticle est trouvé...
                .AddItem vTab(L, 10)                        'Date
                .List(.ListCount - 1, 1) = vTab(L, 11)      'Type
                .List(.ListCount - 1, 2) = vTab(L, 9)       'Bénéficiaire
                .List(.ListCount - 1, 3) = vTab(L, 2)       'Article (Désignation)
                .List(.ListCount - 1, 4) = vTab(L, 4)       'Quantité
            End If
        Next L
    End With
End Sub

Bonjour ritchi3131, le Forum,

Sans fichier exemple ce n'est jamais facile d'aider...

Cela dit, voici ma vision de ton problème. Proposition de code pour remplacer le tien (dans son ensemble) ...

CODE A COLLER DANS LE MODULE DE TON USERFORM (en remplacement de l'ancien) :

Option Explicit

Private Sub annuler_Click()
    Unload Me
End Sub

Private Sub OK_Click()
Dim Sh As Worksheet
Dim NomFeuille As String
Dim I As Byte
    If ComboBox1 = "" Then
        MsgBox ("VEUILLEZ SELECTIONNER LA SEMAINE A CREER")
        Exit Sub
    End If
    NomFeuille = UCase(ComboBox1.Value) & "_" & Format(Now, "yyyy")
    On Error Resume Next
    Set Sh = Sheets(NomFeuille)
    On Error GoTo 0
    'La feuille existe déjà ?
    If Not Sh Is Nothing Then
        MsgBox ("La feuille " & UCase(ComboBox1) & " existe déjà, si vous désirez regénérer une feuille de données veuillez la supprimer avant toute action")
        Exit Sub
    End If
   
    ' Copie de la feuille "Reporting" sans les formules pour éviter que les données se mettent à jours
    Application.ScreenUpdating = False
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Reporting").Copy After:=Sheets(Sheets.Count)
    With ActiveSheet
        'Suppression des formules
        .Cells.Copy
        .Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        'Nom de feuille
        .Name = NomFeuille
        .Range("A1").Select
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim S As Byte
    For S = 42 To 52
        ComboBox1.AddItem "Semaine" & S
    Next S
End Sub

En espérant t'avoir dépanné.

Bien cordialement,
 

Bonsoir Fabio47, bienvenue sur Xlpages.com 

Tout d'abord je te remercie pour ton intérêt concernant cet utilitaire et surtout, te remercie grandement pour le partage de ton expérience et de cette astuce.

Je souhaite bien évidemment que cette solution soit efficace pour toi et pour d'autres également, mais j'avoue pour ma part que j'ai quand même un doute. La situation que tu décris (et que j'ai moi même observé de façon très aléatoire et donc très difficile à analyser) reste pour moi un vrai mystère que je n'ai pas réussi à cerner.

Merci encore à toi Fabio47 et soit le bienvenu.

Bien cordialement,

Bonjour marcdu68, Gaston, le Forum,

Effectivement, je confirme ce qu'écrit Gaston : le problème vient de la fin de vie des versions 6 et 7 de l'API Microsoft BingMaps, au profit d'une version 8 !

L'application mDF XLmap v2.1 (dont je suis l'auteur *) n'est donc plus fonctionnelle à ce jour.

Malheureusement, la nouvelle v8 de l'API Microsoft BingMaps change la donne,  et requiert notamment - sauf erreur - une clé d'authentification obligatoire dorénavant.

A vrai dire, je n'ai pas creusé davantage car une éventuelle migration nécessiterait une refonte complète de tout le code mis en place pour XLmap.

Pour ma part, depuis un certain temps et pour d'autres travaux (hors forum), je me suis tourné vers son concurrent historique , l'API Google Map. La mise en oeuvre est assez similaire et j'y ai trouvé des fonctionnalités n'existant pas à l'époque en v6 BingMaps.

En conclusion, si mDF XLmap revient, l'application exploitera certainement l'API Google Map en lieu et place de Microsoft Bing Maps (lui-même anciennement nommé Virtual Earth).

J'avoue cependant que la nouvelle version mDF XLmap n'est malheureusement pas encore à l'ordre du jour par manque de temps et j'en suis le premier navré... Nul doute que j'y reviendrai.

Bien cordialement,

* GéoContacts est une application de l'ami david84, basée sur les travaux réalisés pour mDF XLmap.

Bonjour Laurie76, bienvenue sur XLpages.com

Sans fichier, c'est toujours compliqué d'expliquer une manipulation...  J'ai donc considéré l'hypothèse suivante :

1. Ton tableau se situe en plage A1:AW100
2. Il possède une ligne d'entêtes. Les données commencent donc en ligne 2.
3. La dernière colonne est la colonne AW
4. La dernière ligne est la ligne 100

En pièce jointe, cet exemple mis en oeuvre (je me suis cependant arrêté à la couleur n° 5)

Ce n'est sans doute pas la réalité, mais il te faudra adapter ces explications selon la situation réelle...

Pour appliquer les formats conditionnels souhaités (sur une version Excel 2010), voici comment je procède pour ma part :

• Je sélectionne la première cellule de données, soit la cellule A2.
• Dans le Ruban Excel, onglet Acceuil / Mise en forme conditionnelle, je choisis Gérer les Règles.
• Je sélectionne ensuite le bouton Nouvelle Règle.
• Dans la liste, je choisis le dernier type "Utiliser une formule pour déterminer..."
• Dans la zone de saisie (plus bas), je saisie la formule suivante :

  =$AW2=1

• Je choisis ensuite le format de cellule souhaité (couleur de fond Rose)
• Et je valide par OK.
   
• Je sélectionne à nouveau le bouton Nouvelle Règle et je recommence pour le format correspondant à la valeur "2" (soit un fond Vert)
  La formule sera cette fois :

  =$AW2=2

• Et ainsi de suite, je recommence pour les 7 couleurs souhaitées...

J'obtiens donc quelque chose comme ça :

Il ne reste plus qu'à modifier la zone "S'applique à" pour prendre en compte le Tableau entier (hors entêtes):

Pour chaque ligne, je demande une application sur le Tableau entier, soit la plage =$A$2:$AW$100

Et voilà !

La saisie d'une valeur de 1 à 7 en colonne AW implique automatiquement la mise en couleur de la ligne correspondante.

En espérant avoir été clair et t'avoir dépanné.

Bien cordialement,

Bonsoir Fath, le Forum,

Si j'ai bien interprété ton souhait, je pense que tu étais presque sur la bonne solution ...

En F13, j'aurais plutot inscrit :

=SOMME.SI.ENS(Ventes!$F:$F;Ventes!$B:$B;"1";Ventes!$C:$C;C13)

Bien cordialement 

Bonsoir SGU2944, bienvenue sur XLPages.com

En théorie, un simple format conditionnel devrait suffire :

1. Tu sélectionnes ta plage A1:Z15
2. Puis, via le Ruban / Accueil / Mise en forme conditionnelle / Nouvelle règle...
3. Tu choisis le type "Utiliser une formule pour déterminer pour quelles cellules le format sera appliqué"
4. Dans la zone de saisie en dessous, tu écris la formule suivante :

   =NB.SI($AB:$AB;A1)

   Au final, tu définis le Format souhaité (couleur de fond de cellule par exemple) et tu valides l'ensemble.

En pièce jointe, ton fichier modifié en exemple.

En espérant t'avoir dépanné.

Bien cordialement,

Bonsoir zorbrax, le Forum,

Pas sûr que ça puisse répondre à 100% des cas possibles, et même si ce n'est pas ma spécialité, je me prête quand même à cet exercice en formules Excel

Je te propose une solution en 2 formules (avec un calcul intermédiaire donc). Il me semble que ça fonctionne pour l'ensemble des exemples que tu fournis dans ton fichier...

Soit le N° d'origine en colonne A (cellule A2).

En cellule B2, je réponds aux PHASES 1 et 2 comme suit :

=SUBSTITUE(SI(STXT($A2;3;1)="0";220;22) & $A2;"00";"";1) & "0"

En cellule C2, une réponse à la PHASE 3 (Luhn) :

=$B2 & DROITE(10-DROITE(STXT($B2;1;1)+STXT($B2;3;1)+STXT($B2;5;1)+STXT($B2;7;1)+STXT($B2;9;1)+STXT($B2;11;1)+(STXT($B2;2;1)+STXT($B2;4;1)+STXT($B2;6;1)+STXT($B2;8;1)+STXT($B2;10;1)+STXT($B2;12;1))*3;1);1)

Voir exemples dans ton fichier en pièce jointe.

En espérant que ça réponde à ta demande (ou que ça te donne au moins une bonne piste !).

Bien cordialement,